UserForm et macro d'un CommandButton

Bonjour,

J'espère que vous allez pouvoir m'éclairer.
J'ai créer un CommandButton dans la feuille1 qui exécute une macro
En cliquant dessus au début elle fait un test et si vrai, elle ouvre un userform(1 bouton confirmer et 1 bouton annuler)
confirmer= poursuivre la macro
annuler= sortir de la macro

Problème, je n'arrive pas à lier le choix de l'userform avec la macro du commandbutton.

Est ce que vous pouvez m'aiguiller ??

MERCI BEAUCOUP

Bonsoir le forum, :D

Voici un exemple que j'ai créé avec une MSGBOX mais tu peux l'adapter à ton userform.

Code:

---

1 2 3 4 5 6 7

Dim vReponse   vReponse = MsgBox("BLABLA", vbCritical + vbOKCancel, "TITRE")   If vReponse = 2 Then 'si clic sur bouton "ANNULER" de la BOX Exit Sub End If

---

Citation:

---

Envoyé par charlesbruno

Problème, je n'arrive pas à lier le choix de l'userform avec la macro du commandbutton.

---

Qu'est ce que t'entends par " lier le choix " ?


Exemple :

Code:

---

1 2 3 4 5

If cells(1, 1) = "toto" Then Userform.show 'Affiche le userform Else exit sub end if

---

cela dit sans ton code et sans expliciter ton problème de manière claire, tu ne pourras pas avoir une réponse pertinente.

Bon courage

Voici la macro qui s'exécute quand je clique sur le bouton de commande mis la feuille "Import"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

Sub CommandButton1_Click()   Dim T As Variant For Each T In [Liste!A6:A100] If T = [Import!C3] And Sheets("Liste").Range(T.Cells(1, 2), T.Cells(1, 2)) <> "" Then Load UserForm2 'le test est vrai donc il charge l'userform' UserForm2.Show End If Next   ' et là je voudrais qu'en cliquant sur le bouton NON contenu dans l'userform , qu'on sorte de la macro'   If ActionCmdNON = True Then Exit Sub End If   'si bouton OK alors on continue la macro'   If ActionCmdOK = True Then .....   'ci dessous un bout de la macro qui suit, elle fonctionne parfaitement'   Dim A As Variant Dim i As Integer Dim C As Range For i = 1 To 48 For Each A In [Import!B21:B130] For Each C In Sheets(B(i)).Range("A1:A100") If A.Value = B(i) And C = [Import!C3] Then Range(A.Cells(1, 2), A.Cells(1, 9)).Copy Sheets(B(i)).Range(C.Cells(1, 2), C.Cells(1, 2)).PasteSpecial Paste:=xlPasteValues End If

---

A noter que l'userform apparait bien selon la condition du test et disparait bien quand je clique sur l'un ou l'autre bouton de l'userform
ci dessous code dans l'userform, mais sans succès !!

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub CmdNON_Click() ActionCmdNON = True Unload UserForm2 End Sub   Private Sub CmdOK_Click() ActionCmdOK = True Unload UserForm2 End Sub

---

J'espère que c'est plus clair comme ça !!!
MERCI

Tu déclare une variable boolean globale Flag
sur OK de l'USF, elle prend Flag=True
sur Cancel, elle prend Flage=Flase


dans ta macro, tu vas donc tester sur Flag

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

public Falg as boolean 'en tête de module Sub CommandButton1_Click()   Dim T As Variant For Each T In[Liste!A6:A100] If T = [Import!C3] And Sheets("Liste").Range(T.Cells(1, 2), T.Cells(1, 2)) <> "" Then Load UserForm2 'le test est vrai donc il charge l'userform' UserForm2.Show End If if Not Flag Then Exit Sub Next ...La suite de ton code

---

à tester

EDIT: C'est ce que tu as fais en partie, il faut juste déclarer tes variables boolean en Public

EDIT 2:
le test sur Flag doit être après le End If

Question, pourquoi passer par un userform alors qu'un simple MsgBox fera largement l'affaire?

Bonjour,

Merci mercatog pour ton aide, et effectivement j'ai cherché à compliquer les choses, un simple msgBox fait l'affaire !!
J'ai quand même voulu essayer avec l'userform en prenant en compte tes indications, mais sans succès...
et avec un msgbox, le problème a été résolu en 5min !!

MERCI à TOUS