Executer une macro dans toutes les feuilles d'un classeur

[marcopm]

Bonjour,

Je voudrais exécuter une même marco dans toutes les feuilles d'un classeur ouvert.
Comment puis-je faire ? j'ai essayer ce code sans succès.

Sub SupprColonneADouble()
For Each ws In Worksheets
Dim i As Long
For i = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
If Range("A" & i).Value = Range("A" & i - 1).Value Then Range("A" & i).EntireRow.Delete
Next i
Next
End Sub

D'avance merci

 

[Pierrot93]

Re : Executer une macro dans toutes les feuilles d'un classeur

Bonjour,

il faut préciser l'objet feuille en question :

For Each ws In Worksheets
Dim i As Long
For i = ws.Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
If ws.Range("A" & i).Value = ws.Range("A" & i - 1).Value Then ws.Range("A" & i).EntireRow.Delete
Next i
Next

bonne journée
@+

 

[marcopm]

Re : Executer une macro dans toutes les feuilles d'un classeur

Ca fonctionne !
Merci