Discussion :

[Oh!Tofocus]

Salut à tous

Dans le code d'un Userform je fais appel à un Msgbox
je voudrais pouvoir faire disparaitre l'UserForm pendant le choix de la Msgbox
pour que l'utilisateur puisse voir la feuille de calcul sous l'Userform.
j'essaye

Code :

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

1
2
3
4
 
mon_Userform.visible = False
MsgBox "admirez la feuille de calcul"
mon_Userform.visible =True

mais ça ne marche pas

Erreur de compilation:
Nombre d'arguments incorrect ou affectation de propriété incorrecte

Avez vous une solution ?

[SilkyRoad]

bonsoir

Tu peux tester

Code :

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

1
2
3
4
5
Private Sub CommandButton1_Click()
    Me.Hide
    MsgBox "Coucou"
    Me.Show
End Sub

michel

[Oh!Tofocus]

OK ça marche
Merci SilkyRoad

[Oh!Tofocus]

En fait non ça ne marche pas si bien que ça

la boucle dans laquelle UserForm1.hide & UserForm1.Show sont integrés ne se poursuie pas et on revient à la fenetre initiale

testez ce code vous comprendrez

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CommandButton2_Click()
For r = 1 To 10
UserForm1.Hide
MsgBox "coucou"
Range("a" & r).Value = r
UserForm1.Show
' ici apres le premier passage le for next est interompu !
Next r
End Sub

[grrimag]

Hello,
je ne sais pas exactement ce que tu cherches à faire mais ton code me paraît assez bizarre.
Si tu regardes séquentiellement ce qui se passe, tu fais userform.show suivi par userform.hide avec strictement rien au milieu, ce qui ne doit pas servir à grand chose...

Est-ce que quelque chose du genre:

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub CommandButton2_Click()
UserForm1.Hide
For r = 1 To 10
    MsgBox "coucou"
    Range("a" & r).Value = r
Next r
UserForm1.Show
End Sub

pourrait te convenir? (je n'ai pas testé, tu me diras si c'est bon??)

[Plateforme3]

Bonjour, essaye avec ça
Dans un module:

Code :

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

1
2
3
4
5
6
7
8
9
 
Global I As Integer
 
Public Sub Lanceur()
For I = 1 To 10
UserForm1.Show
' ici apres le premier passage le for next est interompu !
Next
End Sub

Puis

Code :

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

1
2
3
4
5
Private Sub CommandButton2_Click()
UserForm1.Hide
MsgBox "coucou"
Range("a" & I).Value = I
End Sub

Testé et approuvé
Slts