Pb de code VBA qui ne fonctionne plus

Bonjour,

Hier j'ai crée une macro, puis je l'ai tranformé en code vba.
Ce code fonctionnait très bien, et cet après-midi, cellui-ci ne fonctionne plus.
Voici le code:

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub CommandButton1_Click() Range("B3:H72").Select For A = 3 To 22 Selection.Replace What:=Range("AE" & A).Value, Replacement:=Range("AE" & A).Value, LookAt:=xlWhole, _ SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _ ReplaceFormat:=True   Next A End Sub

---

Exemple que devait effectuer ce code:
Si dans la plage "B3:H72" il y avait la même valeur que dans la cellule AE3, il devait remplacer dans la plage "B3:H72" toute les valeurs en couleur rouge.

Hier, je l'avais fait fonctionné un dizaine de fois, et cet après-midi plus rien.

Merci de votre aide

Cordialement

Christian

Tu as quelque chose qui ne va pas ou tes explications sont insuffisantes

Edit: je viens de relire et comprendre
tu dois définir le format de remplacement

Code:

---

1 2 3 4 5 6 7 8 9

Dim i As Integer   Application.ReplaceFormat.Interior.Color = 255 With Sheets("Feuil6") 'à adapter For i = 3 To 22 .Range("B3:H72").Replace What:=.Range("AE" & i).Value, Replacement:=.Range("AE" & i).Value, ReplaceFormat:=True Next i End With Application.ReplaceFormat.Clear

---

PS: Evite le Select et Selection

re mercatog,

Super!
Ca fonctionne très bien.
J'ai juste changé "Interior.Color " par "Font.Color".

Merci de ta rapidité et de ton éfficacité.:ccool::ccool:

A bientôt sur ce trés bon site

Cordialement

Bonjour mercatog,

Je reviens vers toi, car le code ne fonctionne plus.
Je ne comprends pas trop.
cela à fonctionné quand j'ouvrai l'onglet rechercher remplacer, et puis bizarement plus rien ne fonctionne.
Ci-dessous le code que j'ai mis:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub CommandButton1_Click() Dim i As Integer   Application.ReplaceFormat.Font.Color = 255 With Sheets("Lundi") 'à adapter For i = 3 To 22 .Range("B3:H72").Replace What:=.Range("AE" & i).Value, Replacement:=.Range("AE" & i).Value, ReplaceFormat:=True Next i End With Application.ReplaceFormat.Clear   End Sub

---

merci de ton aide

Christian

Re,

Je viens de refaire un test et maintenant cela fonctionne.
Bref, je ne comprends pas.
Je vais voir pourquoi, il y a eu un probléme.
Je clos l'incident.

Merci