Discussion :

[charlesbruno]

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

[Duddy]

Bonsoir le forum,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casavba]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[charlesbruno]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[charlesbruno]

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