Récupérer une valeur d'un Bouton d'Option

Bonjour,

De nouveau sur VBA-Excel après 15 ans, je travaille sur le développement d'un utilitaire de suivi des heures en construction.

Pour cela, j'ai créer un formulaire afin de faciliter la saisie (environ 70 personnes par jour sur 18 mois) et je rencontre un problème concernant les cases à option à la validation de mes données.

J'ai créer une frame (Frame5) contenant 3 boutons d'option.

• le 1er défini un travailleur "Local"
• le 2eme défini un travailleur "TCN"
• le 3eme défini un travailleur "Expat"

A la validation de mon formulaire (commandbutton validation) comment puis-je récupérer la valeur choisie avec les boutons d'option de la frame5 et la copier sur une nouvelle ligne de ma base de données en même temps que les autres saisies ?

Merci d'avance de votre aide car je n'ai pas trouvé de réponse à travers les différents forums dédiés à excel et VBA.

JLF64

Bonjour JLF, bonjour le forum,

Essaie comme ça :

For Each Ctrl In Frame5.Controls
    If TypeOf Ctrl Is MSForms.OptionButton Then
        If Ctrl.Value = True Then
            Range("G" & L) = Ctrl.Caption
            Exit For
        End If
    End If
Next Ctrl

Bonjour ThauThème,

merci pour le code, néanmoins, il me reste une question en rapport:

Faut-il coller ce code dans "Validation_Click()" ou bien dans "OptionButton_Click()" auquel cas je n'ai pas d'instruction à la validation et je ne sais pas sur quelle ligne la valeur sera copiée.

Merci d'avance

JLF64

Re,

j'ai copié ton code dans ma séquence de validation et ça marche nickel.

A+ pour d'autres sujet très certainement car là, j'attaque un gros développement et j'avance doucement.

Merci encore