Boucle checkbox

C

Creepy

XLDnaute Accro

• 25 Juillet 2011

• #2

Re : Boucle checkbox

Bonjour le Forum, Ludosipm,

Créez un userform avec des textbox + un bouton. Coche des textbox au hasard.

Mets ce code dans le bouton :

Code:

Private Sub CommandButton1_Click()
Dim Ctrl As Control

For Each Ctrl In Me.Controls
    If TypeOf Ctrl Is MSForms.CheckBox And Ctrl.Value = True Then
        MsgBox Ctrl.Caption
    End If
Next Ctrl

End Sub

Et voila, on teste tous les contrôles du userform et si c'est une checkbox + cochée alors on affiche sa caption.

A toi d'adapter.

Creepy

 

Vote positif 0 Vote négatif

L

ludosipm

XLDnaute Nouveau

• 25 Juillet 2011

• #3

Re : Boucle checkbox

Merci Creepy d'avoir répondu si vite !

J'ai essayé ta méthode mais j'ai le message d'erreur suivant : "Propriété ou méthode non gérée par cet objet" en désignant cette ligne :

If TypeOf Ctrl Is MSForms.CheckBox And Ctrl.Value = True Then

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Juillet 2011

• #4

Re : Boucle checkbox

Bonjour,

modifie peut être ainsi :

Code:

If TypeOf Ctrl Is MSForms.CheckBox And Ctrl.Object.Value Then

bonne fin d'après midi
@+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Juillet 2011

• #5

Re : Boucle checkbox

Re,

en fonction des types de contrôles présents sur ton usf, faire le test en 2 temps :

Code:

Dim Ctrl As Control
For Each Ctrl In Me.Controls
    If TypeOf Ctrl Is MSForms.CheckBox Then
        If Ctrl.Object.Value = "" Then MsgBox "ok"
    End If
Next Ctrl

 

Vote positif 0 Vote négatif

L

ludosipm

XLDnaute Nouveau

• 26 Juillet 2011

• #6

Re : Boucle checkbox

Merci beaucoup le test fonctionne.
Une dernière question, comment faire pour copier les Caption des Checkbox sélectionnées et les copier dans une feuilles Excel ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Juillet 2011

• #7

Re : Boucle checkbox

Bonjour,

peut être comme ceci :

Code:

Dim Ctrl As Control
For Each Ctrl In Me.Controls
    If TypeOf Ctrl Is MSForms.CheckBox Then
        If Ctrl.Object.Value = True Then
            Sheets("Feuil1").Range("A65536").End(xlUp)(2).Value = Ctrl.Object.Caption
        End If
    End If
Next Ctrl

bonne journée
@+

 

Vote positif 0 Vote négatif

L

ludosipm

XLDnaute Nouveau

• 26 Juillet 2011

• #8

Re : Boucle checkbox

Super !
Merci beaucoup, bonne journée

 

Vote positif 0 Vote négatif