Bonjour,
Je bloque sur un bout de programme qui à pourtant l'air tout bête ( faut dire que mes bases c'est pas trop ça )
En gros j'ai 26 Checkbox face à 26 Label, et j'aimerais que lorsqu'on s'acquitte du menu, tous les labels correspondant aux checkbox cochées soient listés. Par exemple, admettons que Checkbox7, Checkbox12, et Checkbox21 soient cochées, j'aimerais qu'il soit renvoyé sur ma Feuil1 : Label7 en A1; Label12 en A2; Label21 en A3...
J'avais donc pensé à un truc du genre :
Private Sub CommandButton2_Click()
Dim ligne As Integer
For i = 1 To 26
If ("CheckBox" & i).Value = True
Then Range ("A1").Value = ("Label" & i).Value
ligne = Sheets("Feuil1").Range("A456541").End(xlUp).Row + 1
Next i
End Sub
Ce qui présente surement de nombreux problèmes de syntaxe
A l'aiiiiiiide