UserForm

Y compris Power BI, Power Query et toute autre question en lien avec Excel
L
LEFEBVRE T
Jeune membre
Jeune membre
Messages : 22
Inscrit le : 17 décembre 2018
Version d'Excel : 2013

Message par LEFEBVRE T » 14 janvier 2019, 00:55

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
g
gmb
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'842
Appréciations reçues : 364
Inscrit le : 4 avril 2013
Version d'Excel : 2016

Message par gmb » 14 janvier 2019, 05:27

Bonjour

Tu devrais joindre un fichier et expliquer avec des exemples de que tu veux obtenir.
Bye !
T
Theze
Passionné d'Excel
Passionné d'Excel
Messages : 4'019
Appréciations reçues : 306
Inscrit le : 26 janvier 2011
Version d'Excel : 2007/2019

Message par Theze » 14 janvier 2019, 06:43

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 !
Il vaut mieux un qui sait que cent qui cherchent :wink:

Ce forum étant un lieu de partage, je n'accepte pas les messages privés !
L
LEFEBVRE T
Jeune membre
Jeune membre
Messages : 22
Inscrit le : 17 décembre 2018
Version d'Excel : 2013

Message par LEFEBVRE T » 14 janvier 2019, 09:29

Bonjour,

Merci pour les réponses.
Ci-joint fichier correspondant à ma demande.
Bonne réception.

Cdlt
Thierry
Classeur1.xlsx
(14.31 Kio) Téléchargé 17 fois
L
LEFEBVRE T
Jeune membre
Jeune membre
Messages : 22
Inscrit le : 17 décembre 2018
Version d'Excel : 2013

Message par LEFEBVRE T » 14 janvier 2019, 14:32

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
Avatar du membre
Ausecour
Passionné d'Excel
Passionné d'Excel
Messages : 3'119
Appréciations reçues : 346
Inscrit le : 31 mai 2018
Version d'Excel : 2010 FR, 2013 FR

Message par Ausecour » 14 janvier 2019, 14:50

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 :wink:
Plus un sujet a un titre précis, des explications claires, et un fichier Excel bien préparé, plus il a de chances d'avoir une réponse qui répond au besoin, mettez toutes les chances de votre côté :bien:
"100% des gagnants auront tenté leur chance" :trfl:
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message