Valeur d'un OptionButton sur une feuille (trou de mémoire)

Pierrot93

XLDnaute Barbatruc

• 18 Avril 2007

• #2

Re : Valeur d'un OptionButton sur une feuille (trou de mémoire)

Bonjour Bruno

peut être comme ceci :

Code:

Dim x As Boolean
x = OptionButton1

@+

 

Vote positif 0 Vote négatif

P

pierrof

XLDnaute Occasionnel

• 18 Avril 2007

• #3

Re : Valeur d'un OptionButton sur une feuille (trou de mémoire)

Re
G trouver ce code peut être que ça peut t'aider

Sub Affcheck()
If Option1.Value = True Then Label2.Caption = "Boutton cocher = oui" Else Label2.Caption = "Boutton cocher = non"
'Si le boutton d'option 1 est cocher alors la caption du Label2 sera Boutton Cocher = oui Sinon sa caption sera Boutton cocher = non
If Option2.Value = True Then Label3.Caption = "Boutton cocher = oui" Else Label3.Caption = "Boutton cocher = non"
'Si le boutton d'option 2 est cocher alors la caption du Label3 sera Boutton Cocher = oui Sinon sa caption sera Boutton cocher = non
End Sub
PS/ Pense à regarder mon post sur la MsgBox
Merci d'avance

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 18 Avril 2007

• #4

Re : Valeur d'un OptionButton sur une feuille (trou de mémoire)

Désolé les gars, mais ce n'est pas ça !

pierrot93 à dit:

Dim x As Boolean
x = OptionButton1​

Cliquez pour agrandir...

Message d'erreur : Variable non définie

pierrof à dit:

Sub Affcheck()
If Option1.Value = True Then Label2.Caption = "Boutton cocher = oui" Else Label2.Caption = "Boutton cocher = non"

Cliquez pour agrandir...

Merci Pierrof, mais ce code n'est utilisable que dans un USF.

ALors que moi j'ai 6 OptionButton sur une feuille Excel et je voudrais savoir celui qui est coché !?

Allez les pros du VBA, un petit coup de main SVP 🙂​

 

Vote positif 0 Vote négatif

P

pierrof

XLDnaute Occasionnel

• 18 Avril 2007

• #5

Re : Valeur d'un OptionButton sur une feuille (trou de mémoire)

Je vais regarder si j'ai rien sur ça.
Pense à regarder mon post sur la msgbox quand tu aura le temps.il y a une modif que je n'arrive pas à faire .merci aplus😉

 

Vote positif 0 Vote négatif

P

pierrof

XLDnaute Occasionnel

• 18 Avril 2007

• #6

Re : Valeur d'un OptionButton sur une feuille (trou de mémoire)

G trouver ça je pense que ça marche

Bon, le plus simple est de lier une cellule au premier bouton (clic-droit Format de contrôle, dernier onglet). Ceci va te permettre de récupérer l'indice du bouton qui a été coché (j'ai pas trouvé comment modifier cet indice, mais ça doit pouvoir se faire).

Il ne te reste plus qu'à mettre sur le clic de chacun des boutons ton test en fonction de l'indice stocké dans ta cellule. En effet, comme un seul bouton option peut être coché dans une même feuille (sauf en cas de frame, mais là j'ai pas testé), tu en déduis facilement la valeur de chaque bouton 🙂

Ex : J'ai 3 boutons option sur ma feuille.
Je lie le premier à la cellule A1
Si tu cliques sur chacun des 3 boutons, tu verras la valeur de A1 varier entre 1 et 3.
Sur le clic de chaque bouton, je mets :

Select case activesheet.cells(1,1).value
case 1
msgbox "Le 1er bouton est coché"
case 2
msgbox "Le 2eme bouton est coché"
case 3
msgbox "Le 3eme bouton est coché"
case else
msgbox "aucun bouton coché"
end select

 

Vote positif 0 Vote négatif

C

Caillou

XLDnaute Impliqué

• 18 Avril 2007

• #7

Re : Valeur d'un OptionButton sur une feuille (trou de mémoire)

Bonjour,

La réponse de Pierrot me semble correcte si tu as créé le bouton d'option avec la barre d'outils "Contrôles", sinon si tu l'as fait avec la barre d'outil "Formulaires", tu peux tester la cellule liée.

Caillou

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 18 Avril 2007

• #8

Re : Valeur d'un OptionButton sur une feuille (trou de mémoire)

Je pense que l'on ne se comprends pas 😕

Je vous mets donc un fichier ci-joint, si vous pouvez faire les manip dessus SVP, ce serait cool ...

Sinon je vais me débrouiller autrement,
Haaaa ce n'est pas beau de vieillir, je vous le dis 😀

 

Pièces jointes

• BrunoM45 - OptionButton.xls

  17 KB · Affichages: 246

Vote positif 0 Vote négatif

P

pierrof

XLDnaute Occasionnel

• 18 Avril 2007

• #9

Re : Valeur d'un OptionButton sur une feuille (trou de mémoire)

regarde..ete tient moi au courant

 

Pièces jointes

• BrunoM45 - OptionButton2.xls

  29 KB · Affichages: 301

Vote positif 0 Vote négatif

JYLL

Nous a quitté

Repose en paix

• 18 Avril 2007

• #10

Re : Valeur d'un OptionButton sur une feuille (trou de mémoire)

Bonsoir BrunoM45 et le Forum.

Tout dépend si tu as fait tes "OptionButton" avec la barre d'outils "Formulaire" ou "Visual basic" . Dans le cas de "Formuliare" sur un groupe "OptionButton" tu retournes la valeur de celle qui est sélectionnée dans une cellule et dans l'autre cas tu as les même prorièté que dans VB . tu double cliques dessus et ta auras les propriètés de "OptionButton.value " à false ou true;

Particularité si tu places une Zone de groupe avec "Formulaire, tu vas pouvoir créer des groupes qui fonctionnent indépendament les uns des autres.

Bon test.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 18 Avril 2007

• #11

Re : Valeur d'un OptionButton sur une feuille (trou de mémoire)

Re

comprend pas, le code que je t'ais donné fonctionne chez moi dans le classeur que tu as joins ? Code placé dans le module de la feuille sur laquelle se trouve les boutons, si dans un module standard faire précédé du nom de la feuille comme ci dessous :

Code:

Dim x As Boolean
x = Feuil1.OptionButton1

@+

 

Vote positif 0 Vote négatif

JYLL

Nous a quitté

Repose en paix

• 18 Avril 2007

• #12

Re : Valeur d'un OptionButton sur une feuille (trou de mémoire)

Bonsoir BrunoM45 et tous,

Je compléte par ton classeur avec le code dans feuil1, mais c'est une réponse d'un presque soixantenaire, alors à prendre avec des pincettes (pas le soixantenaire).

Bon test.

 

Pièces jointes

• BrunoM45_-_OptionButton.xls

  29.5 KB · Affichages: 404

Dernière édition: 18 Avril 2007

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 18 Avril 2007

• #13

Re : Valeur d'un OptionButton sur une feuille (trou de mémoire)

pierrof à dit:

regarde..ete tient moi au courant

Cliquez pour agrandir...

Merci Pierrof pour ton boulot 😉

Malheureusement ta solution m'oblige à mettre un code derrière chaque OptionButton ! Ce que je ne voulais pas.

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 18 Avril 2007

• #14

Re : Valeur d'un OptionButton sur une feuille (trou de mémoire)

JYLL à dit:

Bonsoir BrunoM45 et tous,
Je compléte par ton classeur avec le code dans feuil1

Cliquez pour agrandir...

Salut Jean-Yves et MERCIIIIIII

Voilà ce que je cherchais, punaise, j'ai eu beau essayé sur ma feuille de départ et rien à faire 😱

Et c'est super simple en fait, je n'ai pas tout compris, là ...

Mais c'est tout simplement parfait ...

, mais c'est une réponse d'un presque soixantenaire, alors à prendre avec des pincettes (pas le soixantenaire).

Cliquez pour agrandir...

Si je peux te rassurer, tu ne les fait pas, vu comme ça tout juste sorti de l'eau

Bon manque peut-être un petit coup de brossage de poil, mais bon ...

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 18 Avril 2007

• #15

Re : Valeur d'un OptionButton sur une feuille (trou de mémoire)

Pierrot93 à dit:

Re
comprend pas, le code que je t'ais donné fonctionne chez moi dans le classeur que tu as joins ? Code placé dans le module de la feuille sur laquelle se trouve les boutons, si dans un module standard faire précédé du nom de la feuille comme ci dessous :
@+

Cliquez pour agrandir...

Merci à toi également Pierrot,

Effectivement ton code placé dans la Feuil1 (ou sont mes OptionButton) fonctionne parfaitement 😉

Sinon il faut faire

Pierrot93 à dit:

Code:

Dim x As Boolean
x = Feuil1.OptionButton1

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif