remplacer un caractère suivant critère dans toutes les feuilles

[Francis]

Bonsoir le forum
Je cherche à remplacer dans une cellule un caractère et le remplacer par un autre et ce dans toutes les feuilles du classeur.

J’ai fait ces quelques lignes

For I = 1 To Sheets.Count
With Sheets(I)
If range("C55").Value = "P" Then
range("C55").Value = "Pa"
End If
End With
Next I

Or cela ne marche que dans la feuille active..
Si quelqu’un a une idée
Merci
Francis

 

[wilfried_42]

Re : remplacer un caractère suivant critère dans toutes les feuilles

bonjour francis

If range("C55") ----> il manque un point devant range pour l'associer au With

if .Range

 

[Francis]

Re : remplacer un caractère suivant critère dans toutes les feuilles

Bonsoir le forum
Merci pour ces réponses rapides; ça marche très bien
Francis