Appel macro dans une boucle

[treza88]

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.

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
 
         [COLOR=red]Affiche_0[/COLOR]
 
          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

Merci d'avance

 

[tototiti2008]

Re : Appel macro dans une boucle

Bonjour treza88,

oui mais pour ça il faudrait que l'on sache à quoi ressemble Affiche_0... est-ce une Sub ou une Function ? y a-t-il des paramètres ?

 

[suistrop]

Re : Appel macro dans une boucle

Bonjour ,


Call Affiche_0


peut etre ...

 

[treza88]

Re : Appel macro dans une boucle

Salut tototiti2008

En essayant de te repondre je pense que j'ai trouvé la solution, j'ai integrer la parti de ma macro directement dans la boucle, j'ai pas testé mais ça doit marcher.
Affiche_0 me permet de réhafficher les lignes qui était préalablement masqué.

 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
         
         
          For I = 5 To Range("D65536").End(xlUp).Row
          [COLOR=red]ActiveWorkbook.Worksheets(j).Cells(I, 3).EntireRow.Hidden = False[/COLOR]
      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
   
End Sub