Discussion :

[scoubi77]

Bonsoir à tous,

J'ai deux colonnes de 8 chekbox dans un userform.

donc :

- colonne A de la chekbox1 à 8

- colonne B de la 9 à 16




je recopie un tableau comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub CommandButton1_Click()
 Dim dl As Long, i As Long, j As Long
 Dim NewLig As Long
 With Feuil8
   NewLig = Application.Max(.Cells(.Rows.Count, "B").End(xlUp).Row + 2, 25)
   .Rows("2:25").Copy Destination:=.Rows(NewLig)
   .Rows(NewLig & ":" & NewLig + 24).Hidden = False
   Application.CutCopyMode = False
   For i = 1 To 8
     .Range("V" & NewLig + i + 2) = IIf(Me.Controls("CheckBox" & i), "Oui", "")
   Next i
   .Range("b4,f5:u12,b14:t22,e24,i24").ClearContents
   For j = 1 To 8
   .Range("W" & NewLig + j + 2) = IIf(Me.Controls("CheckBox" & j), "Non", "")
 Next j
 .Range("F" & NewLig + 3) = ComboBox11
 .Range("G" & NewLig + 3) = ComboBox1
 
 End With
 Unload Me
 End Sub

Je voudrais faire deux boucles distinctes sur les checkboxs de la colonne A et une autre sur la colonne B mais en lui indiquant que dans la colonne A c'est les check de 1 à 8

et colonne B les check de 9 à 16 !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
  For i = 1 To 8
     .Range("V" & NewLig + i + 2) = IIf(Me.Controls("CheckBox" & i), "Oui", "")
   Next i
 
   For j = 1 To 8
   .Range("W" & NewLig + j + 2) = IIf(Me.Controls("CheckBox" & j), "Non", "")
 Next j

Je vous remercie par avance pour m'aider sur ce problème de syntaxe

[Theze]

Bonjour,

Normalement, une seule boucle suffit car les bornes sont les mêmes (1 to 8), il te faut juste ajouter 8 à i pour les CheckBox de 9 à 16 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
For i = 1 To 8
 
    .Range("V" & NewLig + i + 2) = IIf(Me.Controls("CheckBox" & i), "Oui", "")
    .Range("W" & NewLig + i + 2) = IIf(Me.Controls("CheckBox" & i + 8), "Non", "")
 
Next i

Hervé.

[scoubi77]

Un grand merci à vous deux