Valider checkbox par selection dans combobox

[ministef_21]

Bonjour le forum,

Après avoir cherché et fouillé sur les différents posts je n'ai rien trouvé! 🙁
Je fais donc appel à vous encore une fois!

Je souhaite valider des Checkbox en sélectionnant le critère dans une liste déroulante de ComboBox.
Ci-joint un fichier d'exemple simple pour expliciter un peu... 😉

Cordialement

 

[Pierrot93]

Re : Valider checkbox par selection dans combobox

Bonjour,

regarde ceci :

Private Sub ComboBox1_Click()
If ComboBox1.ListIndex <> -1 Then Me.OLEObjects("CheckBox" & ComboBox1.ListIndex + 1).Object.Value = True
End Sub

bonne journée
@+

 

[13GIBE59]

Re : Valider checkbox par selection dans combobox

Bonjour Ministef

Essaie le fichier joint.

Edit : oups, salut Pierrot. Beaucoup plus court ton code...

 

[stefan373]

Bonjour ministef_21 et le forum.

Voilà si cela vous convient, il vous suffit de terminer pour les autres checkbox(sauf Faible qui fonctionne.)🙂

A +

Edit bonjour pierrot et 13gibe59 pas rafraichis.

 

[Pierrot93]

Re : Valider checkbox par selection dans combobox

Re, GIBE, Stefan

pour exclure les autres checkbox :

Private Sub ComboBox1_Click()
Dim c As OLEObject
If ComboBox1.ListIndex <> -1 Then
    For Each c In Me.OLEObjects
        If c.Name Like "CheckBox*" Then c.Object.Value = False
    Next c
    Me.OLEObjects("CheckBox" & ComboBox1.ListIndex + 1).Object.Value = True
End If
End Sub

 

[ministef_21]

Re : Valider checkbox par selection dans combobox

Bonjour à tous et merci pour vos réponses toujours très pertinentes!
C'est exactement ce qu'il me fallait!!

La dernières petite astuce pour ne valider qu'une à la fois est vraiment sympa! 😉

Ministef

 

[ministef_21]

Re : Valider checkbox par selection dans combobox

Re à tous,

Je vais vous par-être vraiment exigent!
Comment rajouter la fonctionnalité au code pour que l'on puisse par un second click dé-selectionner la CheckBox?

 

[stefan373]

Re.

Par double clic et à ajouter au code de pierrot.

Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
 For Each c In Me.OLEObjects
        If c.Name Like "CheckBox*" Then c.Object.Value = False
 Next c
 ComboBox1.Value = ""
End Sub

A +

 

[Pierrot93]

Re : Valider checkbox par selection dans combobox

Re,

si le click ne déclenche pas de modification, l'événement du contrôle ne se déclenche pas....

 

[ministef_21]

Re : Valider checkbox par selection dans combobox

Le code fonctionne très bien sur ma feuille.
J'ai essayé de l'intégrer avec les modifications adéquates pour pouvoir faire la même manipulation que précédemment mais en ouvrant la ComBoBox depuis une UserForm.
C'est à dire je fais apparaître ma UserForm, je choisie dans la combobox la valeur voulu et je devrais pouvoir cocher dans ma feuille une chexkbox et que celle-ci soit active.
Seul problème, ma CheckBox se valide mais elle n'est pas active, les labels associés à la coche de la Checkbox n'apparaissent pas...

Une solution?? :s

Voici le morceau de code que j'ai mis en place dans l'userform :

Private Sub ComboBox1_Click()
Select Case ComboBox1.Value

Case "Toute tuyauterie"
ActiveSheet.CheckBox41 = CheckBox41


Case "Tuyauterie en relation avec tous réservoirs dont capacité est <= 10m3"
ActiveSheet.CheckBox1 = CheckBox1

Case "Tuyauterie en relation avec réservoirs existant dont capacité est > 10m3"
ActiveSheet.CheckBox53 = CheckBox53

Case "Tuyauterie en relation avec des rétentions"
ActiveSheet.CheckBox42 = CheckBox42

Case "Rénovation tuyauteries sur réservoirs dont capacité >10m3"
ActiveSheet.CheckBox12 = CheckBox12

Case "Flexible"
ActiveSheet.CheckBox43 = CheckBox43

Case "Pompe de transfert de liquides inflammables"
ActiveSheet.CheckBox46 = CheckBox46

End Select
End Sub

Merci d'avance! 🙂

 

[Pierrot93]

Re : Valider checkbox par selection dans combobox

Re,

Seul problème, ma CheckBox se valide mais elle n'est pas active

cela veut dire quoi ??

tu as les même "checkbox" sur ta feuille de calcul et dans ton usf ??

 

[ministef_21]

Re : Valider checkbox par selection dans combobox

Re,

Cela veut dire que dans mon UserForm j'ai juste la ComboBox.
Les CheckBox sont dans ma feuille et je veux les valider en cliquant dans la comboBox.
A l'heure actuelle j'arrive à valider, une coche apparaît dans la case de la checkBox mais mes labels n'apparaissent pas... 🙁

 

[Pierrot93]

Re : Valider checkbox par selection dans combobox

Re,

essaye en précisant sstèmatiquement le nom de la feuille devant le nom des objets :

Sheets("NomFeuille").CheckBox46

 

[ministef_21]

Re : Valider checkbox par selection dans combobox

Re,

Le résultat est toujours le même, la checkBox se coche mais n'est pas activée!
Je vous joins le fichier exemple pour que vous vous fassiez une vraie idée de ce problème! 🙂

 

[Pierrot93]

Re : Valider checkbox par selection dans combobox

Re,

ceci ne veut rien dire :

Sheets("Feuil1").CheckBox1 = CheckBox1

tu travaillerais en "option explicit" le problème t'aurais été signalé..

pour cocher une checkbox sur la feuille :

Sheets("Feuil1").CheckBox1 = True

le mieux est tout de même de préciser ce que l'on veut et ne pas changer de direction constamment...