superbog
XLDnaute Occasionnel
Bonsoir à vous,
J'ai un classeur avec de nombreuses feuilles dont beaucoup porte un nom numérique (1428,1429,2486...) et d'autres un nom alphabétique (clients, VR...)
J'ai besoin dans toutes les feuilles numériques dans les cellules H6:H900 de remplacer les mentions "EP" et "CL" par la mention "C2"
J'ai donc fait la macro ci dessous mais elle ne fonctionne pas, sauf sur la première feuille, pourriez vous m'aider?
merci d'avance
J'ai un classeur avec de nombreuses feuilles dont beaucoup porte un nom numérique (1428,1429,2486...) et d'autres un nom alphabétique (clients, VR...)
J'ai besoin dans toutes les feuilles numériques dans les cellules H6:H900 de remplacer les mentions "EP" et "CL" par la mention "C2"
J'ai donc fait la macro ci dessous mais elle ne fonctionne pas, sauf sur la première feuille, pourriez vous m'aider?
Code:
Sub remplaceCOLLAB()
Dim ws As Worksheet
On Error Resume Next
With ThisWorkbook
For Each ws In .Worksheets
If IsNumeric(ws.Name) Then
Range("H6:H900").Select
Selection.Replace What:="EP", Replacement:="C2", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("H6:H900").Select
Selection.Replace What:="CL", Replacement:="C2", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End If
Next
End With
MsgBox "opération effectuée"
End Sub
merci d'avance