Bonjour à tous
je viens vous exposer un petit probleme
je recherche une solution grace à une boucle pour inserer le caption de plusieur checkbox dans une cellulle
exemple si checkbox1 et checkbox 3 sont cocher le caption de ces checkbox est incrementer dans la cellule A1 comme ceci Checkbox1,Checkbox3,
j'ai tenter ce petit code mais sa me met que le caption de la derniere checkbox
pouvez vous m'aider svp merci
je viens vous exposer un petit probleme
je recherche une solution grace à une boucle pour inserer le caption de plusieur checkbox dans une cellulle
exemple si checkbox1 et checkbox 3 sont cocher le caption de ces checkbox est incrementer dans la cellule A1 comme ceci Checkbox1,Checkbox3,
j'ai tenter ce petit code mais sa me met que le caption de la derniere checkbox
Code:
Sub Geste_Action()
Dimb As Long, NL As Long
NL = [Feuil1].Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
With Fiche
For b = 1 To 3
Worksheets("BDD").Cells(NL, 1).Value = .Controls("C12_" & b).Caption
Next b
End With
End Sub
pouvez vous m'aider svp merci