Bonjour a tous
Dans une double boucle , une sur les lignes d'une feuille et l'autre sur les feuilles impaires du classeur je voudrais inserer un appel de macro en l'occurence "Affiche_0", pour quel soit lancer sur chaque feuille impaire, mais depuis mon code ci desous je ne vois pas comment faire.
Merci d'avance
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26 Dim I As Integer Dim j As Integer Dim Retour As Integer Dim WS_Count As Integer Retour = MsgBox("Voulez vous supprimer toute les lignes SPE", vbYesNo + vbCritical, "Attention") If Retour = vbYes Then WS_Count = ActiveWorkbook.Worksheets.Count For j = 5 To (WS_Count - 2) Step 2 Affiche_0 For I = 5 To Range("D65536").End(xlUp).Row If ActiveWorkbook.Worksheets(j).Cells(I, 3).Value = "SPE" Then ActiveWorkbook.Worksheets(j).Cells(I, 3).EntireRow.Delete I = I - 1 End If Next I Next j Else Exit Sub End If
Partager