Microsoft 365 rechercher remplacer condition en vba

[LEPATOCHE]

Bonsoir le forum ,
j'ai une colonne A avec plein de chiffres et en D1 une liste déroulante et en C1 une liste déroulante aussi !
donc mon énorme problème c'est que je voudrais rechercher et remplacer dans ma colonne A uniquement tout les chiffres
qui ont la même valeur que la cellule C1 et le remplacer par le chiffre qui est en D1 je vous joint un fichier
merci de votre aide ! attention a tout moment dans mes 2 listes déroulante je changerai de chiffres
je vous joint un fichier

 

[sylvanu]

Bonsoir Lepatoche,
Le message est pour les bigleux ?
Un essai en PJ avec :

Sub Remplacer()
    Application.ScreenUpdating = False
    ValC = [C1]: ValD = [D1]
    Columns("A:A").Replace What:=ValC, Replacement:=ValD, LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

 

[LEPATOCHE]

Bonsoir sylvanu
j'ai testé votre macro est elle marche ! encore mille bravo
si seulement j'avais votre intelligence mais peux être un jour je comprendrais le VBA
bonsoir sylvanu . excusez moi pour le message marquer en gros sur le poste #1

 

[sylvanu]

si seulement j'avais votre intelligence

Malheureusement, ça n'a rien à voir avec l'intelligence, ce n'est que de l'huile de coude.
Zidane a dit un jour: " Pour progresser il faut trois choses : du travail, du travail et du travail. "