OptionButton

Question

Je suis nouveau à VBA et j'ai passé mon week end à créer du code;

J'ai n problème avec les OptionButton
Je veux récupérer la valeur Monsieur, Madame et Mademoiselle de mes OptionButton pour remplir une lettre type Word à l'emplacement d'un signet <>.
J'ai créé une variable pour la mettre à la valeur Monsieur, Madame, Madmoiselle suivant le bouton coché mai je n'arrive pas à l'introduire dans mon signet, la valeur affichée est "Faux"
Merci de votre aide.

Marc

econs · Answer

salut,

c'est sans doute parce que tu utilises mal la propriété (checked ou value, je sais plus trop) du bouton.
Tu dois récupérer la valeur de chacun de tes boutons et l'associer à la valeur du caption :

If Option1(1).Value = True Then
ma_variable = "Monsieur"
End if

If Option1(2).Value = True Then
ma_variable = "Madame"
End if

...

Manu

Guidelor · Answer

Juste une petite petite astuce simplifiante :

A lieu de mettre 
If Option1(1).value = True then ma_var...
Mets donc :
If option1(1).value then ma_var...

Ouaaa  trop bien !
En fait c vraiment pas grand chose mais ca pe servir d'une manière generale...

:: Guidelor ::

mervaillie · Answer

Merci à Manu et Guidelor,

Voila ce que j'avais écris qui doit être bon, c'est plutôt la deuxième partie qui doi poser problème car je ne retrouve pas la variable dans mon courrier type.

Dim ValOption As String
If OptMr = True Then
ValOption = "Monsieur"
ElseIf OptMme = True Then
ValOption = "Monsieur"
Else
ValOption = "Mademoiselle"
End If

ActiveDocument.Bookmarks("Titre1").Select
Selection.TypeText ValOption

What about?

Marc du Gabon

Guidelor · Answer

Ah la je suis désolé je ne connais pas cette dernière commande ...

@+ et bonjour au Gabon ! :)
:: Guidelor ::

mervaillie · Answer

Mon problème est résolu.

J'ai trouvé le code de mise à jour des champs à l'adresse suivante :
www.fontstuff.com/vba/vbatut09pfv.htm

Merci à tous.

Marc

OptionButton

5 réponses

Discussions similaires