Faire des conditions sur les checkbox
Résolu/Fermé
niny
-
4 mars 2008 à 11:41
Fxbrg Messages postés 711 Date d'inscription samedi 17 mars 2007 Statut Membre Dernière intervention 16 novembre 2013 - 4 mars 2008 à 14:59
Fxbrg Messages postés 711 Date d'inscription samedi 17 mars 2007 Statut Membre Dernière intervention 16 novembre 2013 - 4 mars 2008 à 14:59
A voir également:
- Faire des conditions sur les checkbox
- Mise en forme conditionnelle 2 conditions ✓ - Forum Bureautique
- Sierreur plusieurs conditions - Forum Excel
- Vba checkbox value ✓ - Forum Excel
- Publipostage avec plusieurs conditions - Forum Word
- Libreoffice calc si plusieurs conditions ✓ - Forum Excel
5 réponses
Fxbrg
Messages postés
711
Date d'inscription
samedi 17 mars 2007
Statut
Membre
Dernière intervention
16 novembre 2013
196
4 mars 2008 à 11:50
4 mars 2008 à 11:50
Salut,
Quel application? (XL, Word, Access, oOo)
:-)
Quel application? (XL, Word, Access, oOo)
:-)
Fxbrg
Messages postés
711
Date d'inscription
samedi 17 mars 2007
Statut
Membre
Dernière intervention
16 novembre 2013
196
4 mars 2008 à 12:08
4 mars 2008 à 12:08
oki :-)
Pour ne pas pouvoir cocher plus d'un choix, ça peut se faire avec des checkbox, mais tu n'est pas arrivé!! lol Il suffit de remplacer tes checkbox par des boutons d'option, qui sont mutuellement exclusifs.
Ensuite pour récupérer la valeur cochée, tu parcoures tous les boutons...Je suppose que tu a sun bouton Ok sur le formulaire? Mettre ça derrière :
Private Sub OK_Click()
Dim Ctrl As Control
Dim str As String
For Each Ctrl In Me.Controls
If TypeName(Ctrl) = "OptionButton" Then
If Ctrl.Value = True Then
str = Ctrl.Caption
End If
End If
Next Ctrl
Set Ctrl = Nothing
MsgBox str
End Sub
:-)
Pour ne pas pouvoir cocher plus d'un choix, ça peut se faire avec des checkbox, mais tu n'est pas arrivé!! lol Il suffit de remplacer tes checkbox par des boutons d'option, qui sont mutuellement exclusifs.
Ensuite pour récupérer la valeur cochée, tu parcoures tous les boutons...Je suppose que tu a sun bouton Ok sur le formulaire? Mettre ça derrière :
Private Sub OK_Click()
Dim Ctrl As Control
Dim str As String
For Each Ctrl In Me.Controls
If TypeName(Ctrl) = "OptionButton" Then
If Ctrl.Value = True Then
str = Ctrl.Caption
End If
End If
Next Ctrl
Set Ctrl = Nothing
MsgBox str
End Sub
:-)
Fxbrg
Messages postés
711
Date d'inscription
samedi 17 mars 2007
Statut
Membre
Dernière intervention
16 novembre 2013
196
4 mars 2008 à 13:55
4 mars 2008 à 13:55
Si j'avais voulu me moquer je ne t'aurais pas aidé...:-)
Content que ça marche, n'hésite pas si besoin,
:-)
Content que ça marche, n'hésite pas si besoin,
:-)
oui ca marche !
le seul hic reste qu'il faut que le bouton de ma feuille excel prenne le nom récupéré du bouton caption. comment faire pour faire le lien de l'interface avec ce bouton?
j'ai vu qu'en executant ton code un mgbox apparait avec le nom du bon caption, est ce que ce msg je peux le réorienter sur le nom du bouton de ma feuille excel ? oula je sais aps si c'est trés clair !
le seul hic reste qu'il faut que le bouton de ma feuille excel prenne le nom récupéré du bouton caption. comment faire pour faire le lien de l'interface avec ce bouton?
j'ai vu qu'en executant ton code un mgbox apparait avec le nom du bon caption, est ce que ce msg je peux le réorienter sur le nom du bouton de ma feuille excel ? oula je sais aps si c'est trés clair !
Fxbrg
Messages postés
711
Date d'inscription
samedi 17 mars 2007
Statut
Membre
Dernière intervention
16 novembre 2013
196
4 mars 2008 à 14:33
4 mars 2008 à 14:33
A supposer que le bouton (de ta feuille) dont tu veux changer le nom (ne serait-ce pas plutôt la légende, c-à-d ce qui est affiché sur le bouton?) soit le CommandButton1, mets ça à la fin de ton code sur le bouton Ok de ton userform : tu remplaces X par le numéro de ta feuille, et Caption (légende) par name si c'est vraiment c'est le nom que tu veux changer (mais dans ce cas attention, ta macro ne va marcher qu'une fois lol
Worksheets(X).CommandButton1.Caption = str
:-)
Worksheets(X).CommandButton1.Caption = str
:-)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Fxbrg
Messages postés
711
Date d'inscription
samedi 17 mars 2007
Statut
Membre
Dernière intervention
16 novembre 2013
196
4 mars 2008 à 14:59
4 mars 2008 à 14:59
C'est possible, mais pas simple...
https://silkyroad.developpez.com/VBA/ClasseursFermes/
Bon courage!
:-)
https://silkyroad.developpez.com/VBA/ClasseursFermes/
Bon courage!
:-)
4 mars 2008 à 11:53
excel avec VBA,
mon bouton se trouve sur une feuille excel et non pas un userform. les checkbox en revanche sont bien sur un userform