Remplacer texte par valeur cellule

YANOU

XLDnaute Junior
Bonjour à tous.
Je veux rechercher/remplacer "Dossier type" (dans les Cellules C3 à C6) par la valeur de ma cellule E3
Pour l'instant, j'en suis à :
Code:
Sub Rempacer()
'
' Rempacer Macro
'

'
    Range("C3:C6").Select
    Selection.Replace What:="Dossier type", Replacement:="2", LookAt:=xlPart _
        , SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True
End Sub
Pour l'instant, j'ai juste mis "2" dans ma formule pour faire fonctionner ma macro correctement.
Je n'arrive pas à trouver le code pour cibler la valeur "2" de ma cellule E3.
Merci pour votre aide.
 

Pièces jointes

  • Classeur3.xlsm
    19 KB · Affichages: 40

Dranreb

XLDnaute Barbatruc
Vous avez oublier d'implanter ma Sub ChangerLien du poste #22 dans un module standard de service.
Mais il y a autre chose: vous avez maintenant mis une formule en B7 qui renvoie la valeur de A24.
Alors elle ne changera plus de contenu mais seulement de valeur. Il faut maintenant tester ElseIf Target.Address = "$A$24" Then
 
Dernière édition:

Discussions similaires

Réponses
1
Affichages
122

Statistiques des forums

Discussions
312 203
Messages
2 086 196
Membres
103 153
dernier inscrit
SamirN