Bonjour,
Le but est le suivant :
Si la cellule visé est différente de "0" alors on sélectionne la colonne de cette cellule, on tris les cellules non vide et imprime la sélection
puis on rétablis le filtre
on recommance jusqu'au mot "FIN"
Ci après le code:
J'aimerai changer de sélection de colonne lorsque la formule boucle.
Ex : Columns (C+1)
Je ne sais pas si ma fonction IF est bien placé
Merci de votre aide
Le but est le suivant :
Si la cellule visé est différente de "0" alors on sélectionne la colonne de cette cellule, on tris les cellules non vide et imprime la sélection
puis on rétablis le filtre
on recommance jusqu'au mot "FIN"
Ci après le code:
Code:
Sub Impression_tracabilité()
'macro pour imprimer les étiquettes de tracabilité
'Application.ScreenUpdating = False
Dim C As Integer
Dim L As Integer
Dim FIN As Integer
Sheets("fp1").Select
C = 6
L = 3
Do While Cells(L, C) <> "FIN"
If Cells(L, C) <> "0" Then
'filtrer sur les cellules non vide
Selection.AutoFilter Field:=6, Criteria1:="<>"
[COLOR="Red"] Selection.Columns (C)[/COLOR]
Selection.PrintOut Copies:=1, Collate:=True
'rétablir le filtre
Selection.AutoFilter Field:=6
'Colonne suivante
C = C + 1
End If
Loop
Application.ScreenUpdating = True
End Sub
J'aimerai changer de sélection de colonne lorsque la formule boucle.
Ex : Columns (C+1)
Je ne sais pas si ma fonction IF est bien placé
Merci de votre aide