Discussion :

[rch05]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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