Boucle avec 3 variables

[Gexk5]

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

 

[Paritec]

Re : Boucle avec 3 variables

Bonsoir Gexk5
voilà déjà comment tu peux commencer
quand à tes variables entre " " là cela ne marchera jamais
a+
papou

If Range("C" & i) <> "" Then
If [COLOR=Red]controls[/COLOR]("CheckBox" & [COLOR=Red]j[/COLOR]) Then
Sheets("C" &[COLOR=Red] k[/COLOR]).Select
"je te laisse finir la suite"

EDIT en plus j'avais pas regardé de plus près mais tu as trois For et 1 next !!!!! là il faut au moins autant de next que de for c'est impératif!!!

 

[Gexk5]

Re : Boucle avec 3 variables

Re le forum, Paritec
J'ai une erreur ( incompatibilité de type sur cette ligne !!

If controls("CheckBox" & j) Then

Au secours

 

[ROGER2327]

Re : Boucle avec 3 variables

Bonjour à tous

[COLOR="DarkSlateGray"][B]Private Sub CocherTout()
Dim i%
  For i = 1 To 60
    If [C22].Offset(i, 0).Value = "" Then
      Sheets("MENU").OLEObjects("CheckBox" & i).Object.Value = False
    Else
      Sheets("MENU").OLEObjects("CheckBox" & i).Object.Value = True
      Sheets("C" & i).PrintOut Copies:=1, Collate:=True
    End If
  Next i
End Sub[/B][/COLOR]

ou simplement

[COLOR="DarkSlateGray"][B]Private Sub CocherTout()
Dim i%, tf As Boolean
  For i = 1 To 60
    tf = [C22].Offset(i, 0).Value <> ""
    Sheets("MENU").OLEObjects("CheckBox" & i).Object.Value = tf
    If tf Then Sheets("C" & i).PrintOut Copies:=1, Collate:=True
  Next i
End Sub[/B][/COLOR]

ROGER2327
#4224

Lundi 23 Absolu 138 (Sainte Varia-Miriam, amphibie, SQ)
9 Vendémiaire An CCXIX
2010-W39-4T21:33:36Z

 

[Gexk5]

Re : Boucle avec 3 variables

bonjour le forum, paritec, roger
Merci pour ta reponse , je teste

 

[Gexk5]

Re : Boucle avec 3 variables

Re le forum, paritec, roger
Merci Roger, deja testé et c'est top

MERCI