Checkbox multiples, afficher leur labels dans cell

[Mi_]

Bonsoir le forum,

Situation: USF avec des nombreux checkbox, chacun avec son label.

Lorsqu'on coche les checkbox voulus, puis sur un bouton OK de l'USF, je voudrais que les labels des checkbox cochés s'affichent dans la cellule A1: label1, label3, label8, ..... label10, le dernier sans virgule.

Connaissez-vous des exemples (fichiers) en ce sens ? Mes recherches dans les archives n'ont rien donné.

Merci pour toute idée,
Mi_

 

[Hervé]

Re:Checkbox multiples, afficher leur labels dans c

Salut Mi_

Dans l'immediat, j'ai pas encore de réponse.

Par contre, j'ai une question, tu utilises des labels indépendants, à côté des checkboxs ?

pourquoi ne pas utiliser directement le caption du checkbox, ca serait plus facile, et ensuite utiliser un truc dans ce style :

With CheckBox1
        Range('a1') = IIf(.Value = True, .Caption, '')
End With

non ?

salut

 

[Mi_]

Re:Checkbox multiples, afficher leur labels dans c

Oh un Hervé !

Oui, c'est bien les ComboBox1.Caption que j'utilise en tant que 'label'.

Je vais essayer ton code, mais comment faire dans le cas de plusieurs checkbox (chacun avec son caption), et comment faire pour avoir des virgules entre ces captions, une fois introduits dans les cellules ?

En tout cas, merci

 

[Robert]

Re:Checkbox multiples, afficher leur labels dans c

Bonsoir Mi, Hervé, bonsoir le forum,

Hervé a été encore plus rapide sur ce coup là... Je te propose en pièce jointe un exemple avec huit CheckBoxes qui devrait te convenir. [file name=Mi_20051108224826.zip size=10590]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Mi_20051108224826.zip[/file]

 

[Mi_]

Re:Checkbox multiples, afficher leur labels dans c

Heu, en fait ça ne me convient pas trop, les checkbox ne sont pas de couleur rose et tu a mis 'Mi' au lieu de 'Mi_'. 🙂
=============


Bah, merci Robert, c'est super !

 

[Hervé]

Re:Checkbox multiples, afficher leur labels dans c

re

bah tu es quand meme plus rapide en deuxième service robert 🙂

Bon comme j'ai bossé, je joins quand meme mon bidule :

Private Sub CommandButton1_Click()
Dim i As Byte
Dim premier As Boolean

premier = True

For i = 1 To 8
    With Me.Controls('Checkbox' & i)
        If .Value Then
            If premier Then
                Range('a1') = .Caption
                premier = False
            Else
                Range('a1') = Range('a1') & ',' & .Caption
            End If
        .Value = False
        End If
    End With
Next i

End Sub

salut

 

[Robert]

Re:Checkbox multiples, afficher leur labels dans c

Bonsoir Mi_, Hervé, bonsoir le forum,

Désolé Mi_. Je promets de ne plus jamais faire ça... [file name=Mi_.zip size=10490]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Mi_.zip[/file]

 

[Mi_]

Re:Checkbox multiples, afficher leur labels dans c

Merci Hervé et Robert, c'est très gentil.

Cordialement,
Mi_