Exclusion dans boucle

[fabio]

bonjour

J'utilise une boucle pour imprimer des factures, la boucle se fait via un tableau croisé dynamique qui va chercher les codes clients a partir de la cellule a6 puis a7 etc...de l'onglet recap

Dans cette bouche j'aimerai exclure "Total" et "Vide"
Comment puis je faire ??

La macro que j'utilise est celle ci :

Sub IMPRESSION_DETAILS()
With Sheets("RECAP")

lgfin = .Cells(6, 1).End(xlDown).Row
Set plage = .Range(.Cells(6, 1), .Cells(lgfin, 1))
End With
For Each i In plage
Sheets("DETAILS").Range("L1") = i
Call DEFINIR_DETAIL 'permet de selectionner la zone d'impression
ActiveWindow.SelectedSheets.PrintPreview
'ActiveWindow.SelectedSheets.PrintOut Copies:=1

Next
End Sub

merci d'avance
cordialement
fabio

 

[Pierrot93]

Re : Exclusion dans boucle

Bonjour,

peut être faire un test comme ceci :

For Each i In plage
    If i <> "Total" And i <> "Vide" Then
        Sheets("DETAILS").Range("L1") = i
        Call DEFINIR_DETAIL
        ActiveWindow.SelectedSheets.PrintPreview
    End If
Next

bon après midi
@+

 

[fabio]

Re : Exclusion dans boucle

grand merci pierrot

ca marche

cordialement
fabio