Gexk5
XLDnaute Occasionnel
Bonsoir le forum,
Voici mon code
Private Sub CocherTout()
Dim I
Dim J
Dim K
For I = 23 To 82
For J = 1 To 60
For K = 1 To 60
If Range("C" & "I") <> "" Then
CheckBox & "J" = True ' erreur sur le &
If CheckBox & "J" = True Then
Sheets("C" & "K").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("MENU").Select
End If
Else: CheckBox & "J" = False ' erreur sur le &
End If
Next
End Sub
Je verifie une valeur en colonne C de la ligne 23 a 82
Si different de vide je coche un checkbox de 1 a 60
Si coché, je vais sur l'onglet ( de c1 a c60 ) pour imprimer
ex, cel C23 non vide, je coche checkbox1, j'imprime onglet C1
Ou est mon erreur ?????
Merci d'avance de vos conseils
Voici mon code
Private Sub CocherTout()
Dim I
Dim J
Dim K
For I = 23 To 82
For J = 1 To 60
For K = 1 To 60
If Range("C" & "I") <> "" Then
CheckBox & "J" = True ' erreur sur le &
If CheckBox & "J" = True Then
Sheets("C" & "K").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("MENU").Select
End If
Else: CheckBox & "J" = False ' erreur sur le &
End If
Next
End Sub
Je verifie une valeur en colonne C de la ligne 23 a 82
Si different de vide je coche un checkbox de 1 a 60
Si coché, je vais sur l'onglet ( de c1 a c60 ) pour imprimer
ex, cel C23 non vide, je coche checkbox1, j'imprime onglet C1
Ou est mon erreur ?????
Merci d'avance de vos conseils