1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6

[Excel | VBA] Macro fonction "Remplacer" avec variables [Résolu]

Signaler
Messages postés
80
Date d'inscription
lundi 22 octobre 2007
Statut
Membre
Dernière intervention
30 juillet 2008
 -
Messages postés
80
Date d'inscription
lundi 22 octobre 2007
Statut
Membre
Dernière intervention
30 juillet 2008
 -
Bonjour à toutes et à tous,

Je travail actuellement sur un classeur Excel contenant plusieurs feuille.
Je souhaiterais réaliser une macro qui éffectue la fonction remplacer en prennant comme valeur à rechercher la concaténation de deux cellule : F91 et G68
Et qui remplacerait cela par la concaténation de deux autres cellules : F91 et G67

J'ai la macro de la fonction remplacer par, mais celle ci ne fonctionne que lorsque l'on renseigne les champs à chercher, et à remplacer à la main :

Sub Remplacer()


    Cells.Replace What:" 1ere concaténation ", Replacement:"2eme concaténation", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
       
End Sub

Merci d'avance pour votre aide.

Cordialement,

AiDuK
Afficher la suite

3 réponses

Réponse 1 / 3
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
 16
salut,
    Cells.Replace What:Range("F91").Value & Range("G68").Value , Replacement:Range("F91").Value & Range("G67").Value, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

@++

le mystérieux chevalier,"Provençal, le gaulois"
Réponse 2 / 3
Messages postés
80
Date d'inscription
lundi 22 octobre 2007
Statut
Membre
Dernière intervention
30 juillet 2008
Personne ne saurait me renseigner s'il vous plait ?
Réponse 3 / 3
Messages postés
80
Date d'inscription
lundi 22 octobre 2007
Statut
Membre
Dernière intervention
30 juillet 2008
Merci beaucoup
Répondre Posez votre question