Posez votre question Signaler

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

Messages postés
80
Date d'inscription
lundi 22 octobre 2007
Statut
Membre
Dernière intervention
30 juillet 2008
 - - Dernière réponse : AiDuK
Messages postés
80
Date d'inscription
lundi 22 octobre 2007
Statut
Membre
Dernière intervention
30 juillet 2008
 - 20 juin 2008 à 10:54
Visual Basic 6 Posez votre question Signaler
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

Meilleure réponse
Signaler Commenter la réponse de mortalino
Messages postés
6812
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
 15
3
Merci
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"

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 120 internautes nous ont dit merci ce mois-ci

Commenter la réponse de mortalino
Signaler Commenter la réponse de AiDuK
Messages postés
80
Date d'inscription
lundi 22 octobre 2007
Statut
Membre
Dernière intervention
30 juillet 2008
0
Merci
Personne ne saurait me renseigner s'il vous plait ?
Commenter la réponse de AiDuK
Signaler Commenter la réponse de AiDuK
Messages postés
80
Date d'inscription
lundi 22 octobre 2007
Statut
Membre
Dernière intervention
30 juillet 2008
0
Merci
Merci beaucoup
Commenter la réponse de AiDuK
Répondre Posez votre question