UserForm

Bonsoir,

Est-il possible de copier la valeur (Nom ou Caption) d'un OptionButton d'un UserForm1 dans un textbox d'un Userform2 ?

Le premier Userform1 comprend 12 OptionButton, donc affichage de chacune des valeurs (Nom ou Caption) en lieu et place dans la TextBox. Ensuite validation enclenchant le reset de certaines cellules.

En faisant un choix sur une cellule déroulante (Validation de données), est-il possible de remplir une cellule automatiquement avec une formule (exemple : =Si(J16<8;J16;8) ?

Cdlt

Thierry

Bonjour

Tu devrais joindre un fichier et expliquer avec des exemples de que tu veux obtenir.

Bye !

Bonjour,

Tu peux faire un code dans le genre sachant que le second UserForm doit être ouvert :

Private Sub OptionButton1_Click()

   EntrerCaption OptionButton1

End Sub

Private Sub OptionButton2_Click()

    EntrerCaption OptionButton2

End Sub

Private Sub OptionButton3_Click()

    EntrerCaption OptionButton3

End Sub

'Etc...
'...

Sub EntrerCaption(Opt As MSForms.OptionButton)

    UserForm2.TextBox1.Text = Opt.Caption

    'Ensuite validation enclenchant le reset de certaines cellules.

    'Ici par exemple...
    '...

End Sub

Par contre pour ta seconde question, j'ai un peu de mal à comprendre ton souhait mais peut être avec Indirect() :

=SI(INDIRECT(J16)<8;INDIRECT(J16);8)

L'adresse de la cellule cible se trouvant en J16 !

Bonjour,

Merci pour les réponses.

Ci-joint fichier correspondant à ma demande.

Bonne réception.

Cdlt

Thierry

17classeur1.xlsx (14.31 Ko)

Bonjour Theze,

Pourrais-tu me donner des explications par rapport à ma demande initiale, car je ne comprends pas.

Private Sub OptionButton1_Click()

EntrerCaption OptionButton1

End Sub

Cdlt

Thierry

Bonjour à vous deux

Je me permets de répondre comme je passe sur le sujet:

Private Sub OptionButton1_Click()

 EntrerCaption OptionButton1

 End Sub

Sert à appeler un programme qui s'appelle EntreCaption auquel tu fournis comme objet, ton contrôle actuel

Le programme

Sub EntrerCaption(Opt As MSForms.OptionButton)

    UserForm2.TextBox1.Text = Opt.Caption

    'Ensuite validation enclenchant le reset de certaines cellules.

    'Ici par exemple...
    '...

End Sub

S'occupe ensuite d'affecter à ta Textbox1 dans ton userform2, la valeur de la propriété caption du bouton que tu as donné à la fonction.

La raison pour laquelle c'est pratique de passer par une fonction comme celle là, c'est que si tu dois l'appeler via d'autres boutons, tu n'as qu'à recopier la ligne de code EntrerCaption OptionButton1 en changeant uniquement le nom du bouton, pas besoin de recopier tout le programme que tu appelles à chaque fois, ça permet que le programme soit plus facile à modifier mais aussi à lire

Rechercher des sujets similaires à "userform"