Détection d'un clic sur un bouton

Y compris Power BI, Power Query et toute autre question en lien avec Excel
B
BabarZ
Jeune membre
Jeune membre
Messages : 19
Inscrit le : 26 septembre 2018
Version d'Excel : 2010

Message par BabarZ » 14 mai 2019, 11:04

Bonjour à tous,

Je suis novice en VBA et ma question en découle: j'ai un UserForm faisant intervenir plusieurs ComboBox (en cascade) permettant d'afficher des Image / TextBox. Lorsque les textbox s'affichent, la saisie d'un texte est possible, et j'aimerai que lorsqu'un bouton est activé, le contenu des TextBox soit copié dans une feuille. Autrement-dit, mettre à jour la base de donnée via l'UserForm. Grossièrement j'aimerai avoir une ligne "Si la valeur de la ComboBox4 est "Séquence libre" (l'utilisateur peut remplir deux textbox), une fois le bouton activé, alors, copie des text en "D7" "H7". Le problème est qu'une centaine de case contienne "séquence libre". Ci joint une bribe du code:
Private Sub ComboBox4_Change()

If ComboBox4.Value = Sheets("database").Range("D7:D7") And ComboBox4.Value = "Séquence libre" Then
    TextBox1.Value = Sheets("database").Range("E7:E7")
    TextBox2.Value = Sheets("database").Range("F7:F7")
    TextBox3.Visible = True
    TextBox4.Visible = True
    CommandButton1.Visible = True

If CommandButton1.Activate Then
    Sheets("database").Range("D7") = TextBox4.Value
    Sheets("database").Range("H7") = TextBox3.Value
End If
    
ElseIf ComboBox4.Value = Sheets("database").Range("D7:D7") Then
    TextBox1.Value = Sheets("database").Range("E7:E7")
    TextBox2.Value = Sheets("database").Range("F7:F7")
    TextBox3.Value = Sheets("database").Range("H7:H7")
    CommandButton1.Visible = False
    TextBox3.Visible = True
    TextBox4.Visible = True
End If

End Sub
S'il n'y a vraiment pas possibilité, je serai obligé de créer une centaine de bouton et des les contrôler indépendamment.

PS: J'imagine que la commande
If CommandButton1.Activate Then
n'existe pas...

Merci par avance de vos retours :)
Avatar du membre
Alex777f
Membre habitué
Membre habitué
Messages : 73
Appréciation reçue : 1
Inscrit le : 1 janvier 2019
Version d'Excel : 2010

Message par Alex777f » 14 mai 2019, 11:13

Bonjour Babar, le forum
Tu peux joindre un fichier illustratif pour qu'on comprenne mieux?

Ca sera plus simple a mon avis.

cdt

A
B
BabarZ
Jeune membre
Jeune membre
Messages : 19
Inscrit le : 26 septembre 2018
Version d'Excel : 2010

Message par BabarZ » 14 mai 2019, 12:17

Je ne peux pas joindre le fichier d'origine par soucis de confidentialité, mais j'en ai crée un qui se rapproche du principe. Je ne sais pas s'il sera très parlant sans l'userform. J'ai juste ajouté le code dont je parlais en feuille 1.
Fichier Forum.xlsx
(13.73 Kio) Téléchargé 3 fois
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message