Petite question sur les boucles et deux series de checkbox dans deux colonnes
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:
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:
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
