Bonjour
j'ai créer trois userforms, que je désire lancer à tour de rôle afin de ne
pas lasser l'utilisateur
j'ai une condition simple du genre
Merci beaucoup
Flo riant
If toto > 20 then
userform1.show
puis la fois suivante
userform2.show
puis la fois suivante
userform3.show
puis retour sur le 1etc.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Florian,
Dans un module standard :
'Dans le haut du module , déclaration de la variable. Public TourDeRole As Integer
'Tu peux appeler cette procédure de n'importe quelle autre procédure. Assure-toi seulement que ta variable Toto est déclarée comme la Variable TourDeRole (Public) avec le type approprié à son contenu.
'------------------- Sub LancerLesFormulaires()
If Toto > 20 Then Select Case TourDeRole Case 0 TourDeRole = 1 UserForm1.Show 'en fenetre modale ou nom Case 1 TourDeRole = TourDeRole + 1 UserForm1.Show 'en fenetre modale ou nom Case 2 TourDeRole = 0 UserForm1.Show 'en fenetre modale ou nom End Select End If End Sub '-------------------
Salutations!
"Florian" a écrit dans le message de news:% Bonjour j'ai créer trois userforms, que je désire lancer à tour de rôle afin de ne pas lasser l'utilisateur j'ai une condition simple du genre Merci beaucoup Flo riant
If toto > 20 then userform1.show puis la fois suivante userform2.show puis la fois suivante userform3.show puis retour sur le 1etc.
Bonjour Florian,
Dans un module standard :
'Dans le haut du module , déclaration de la variable.
Public TourDeRole As Integer
'Tu peux appeler cette procédure de n'importe quelle autre procédure.
Assure-toi seulement que ta variable Toto est déclarée comme la
Variable TourDeRole (Public) avec le type approprié à son contenu.
'-------------------
Sub LancerLesFormulaires()
If Toto > 20 Then
Select Case TourDeRole
Case 0
TourDeRole = 1
UserForm1.Show 'en fenetre modale ou nom
Case 1
TourDeRole = TourDeRole + 1
UserForm1.Show 'en fenetre modale ou nom
Case 2
TourDeRole = 0
UserForm1.Show 'en fenetre modale ou nom
End Select
End If
End Sub
'-------------------
Salutations!
"Florian" <Florian@toto.fr> a écrit dans le message de news:%23eeneE8WEHA.716@TK2MSFTNGP11.phx.gbl...
Bonjour
j'ai créer trois userforms, que je désire lancer à tour de rôle afin de ne
pas lasser l'utilisateur
j'ai une condition simple du genre
Merci beaucoup
Flo riant
If toto > 20 then
userform1.show
puis la fois suivante
userform2.show
puis la fois suivante
userform3.show
puis retour sur le 1etc.
'Dans le haut du module , déclaration de la variable. Public TourDeRole As Integer
'Tu peux appeler cette procédure de n'importe quelle autre procédure. Assure-toi seulement que ta variable Toto est déclarée comme la Variable TourDeRole (Public) avec le type approprié à son contenu.
'------------------- Sub LancerLesFormulaires()
If Toto > 20 Then Select Case TourDeRole Case 0 TourDeRole = 1 UserForm1.Show 'en fenetre modale ou nom Case 1 TourDeRole = TourDeRole + 1 UserForm1.Show 'en fenetre modale ou nom Case 2 TourDeRole = 0 UserForm1.Show 'en fenetre modale ou nom End Select End If End Sub '-------------------
Salutations!
"Florian" a écrit dans le message de news:% Bonjour j'ai créer trois userforms, que je désire lancer à tour de rôle afin de ne pas lasser l'utilisateur j'ai une condition simple du genre Merci beaucoup Flo riant
If toto > 20 then userform1.show puis la fois suivante userform2.show puis la fois suivante userform3.show puis retour sur le 1etc.
Florian
OK impeccable cela fonctionne très bien Flo riant
"michdenis" a écrit dans le message de news:u7Af$
Bonjour Florian,
Dans un module standard :
'Dans le haut du module , déclaration de la variable. Public TourDeRole As Integer
'Tu peux appeler cette procédure de n'importe quelle autre procédure. Assure-toi seulement que ta variable Toto est déclarée comme la Variable TourDeRole (Public) avec le type approprié à son contenu.
'------------------- Sub LancerLesFormulaires()
If Toto > 20 Then Select Case TourDeRole Case 0 TourDeRole = 1 UserForm1.Show 'en fenetre modale ou nom Case 1 TourDeRole = TourDeRole + 1 UserForm1.Show 'en fenetre modale ou nom Case 2 TourDeRole = 0 UserForm1.Show 'en fenetre modale ou nom End Select End If End Sub '-------------------
Salutations!
"Florian" a écrit dans le message de news:%
Bonjour j'ai créer trois userforms, que je désire lancer à tour de rôle afin de ne pas lasser l'utilisateur j'ai une condition simple du genre Merci beaucoup Flo riant
If toto > 20 then userform1.show puis la fois suivante userform2.show puis la fois suivante userform3.show puis retour sur le 1etc.
OK impeccable cela fonctionne très bien
Flo riant
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:u7Af$P8WEHA.2840@TK2MSFTNGP11.phx.gbl...
Bonjour Florian,
Dans un module standard :
'Dans le haut du module , déclaration de la variable.
Public TourDeRole As Integer
'Tu peux appeler cette procédure de n'importe quelle autre procédure.
Assure-toi seulement que ta variable Toto est déclarée comme la
Variable TourDeRole (Public) avec le type approprié à son contenu.
'-------------------
Sub LancerLesFormulaires()
If Toto > 20 Then
Select Case TourDeRole
Case 0
TourDeRole = 1
UserForm1.Show 'en fenetre modale ou nom
Case 1
TourDeRole = TourDeRole + 1
UserForm1.Show 'en fenetre modale ou nom
Case 2
TourDeRole = 0
UserForm1.Show 'en fenetre modale ou nom
End Select
End If
End Sub
'-------------------
Salutations!
"Florian" <Florian@toto.fr> a écrit dans le message de
news:%23eeneE8WEHA.716@TK2MSFTNGP11.phx.gbl...
Bonjour
j'ai créer trois userforms, que je désire lancer à tour de rôle afin de ne
pas lasser l'utilisateur
j'ai une condition simple du genre
Merci beaucoup
Flo riant
If toto > 20 then
userform1.show
puis la fois suivante
userform2.show
puis la fois suivante
userform3.show
puis retour sur le 1etc.
'Dans le haut du module , déclaration de la variable. Public TourDeRole As Integer
'Tu peux appeler cette procédure de n'importe quelle autre procédure. Assure-toi seulement que ta variable Toto est déclarée comme la Variable TourDeRole (Public) avec le type approprié à son contenu.
'------------------- Sub LancerLesFormulaires()
If Toto > 20 Then Select Case TourDeRole Case 0 TourDeRole = 1 UserForm1.Show 'en fenetre modale ou nom Case 1 TourDeRole = TourDeRole + 1 UserForm1.Show 'en fenetre modale ou nom Case 2 TourDeRole = 0 UserForm1.Show 'en fenetre modale ou nom End Select End If End Sub '-------------------
Salutations!
"Florian" a écrit dans le message de news:%
Bonjour j'ai créer trois userforms, que je désire lancer à tour de rôle afin de ne pas lasser l'utilisateur j'ai une condition simple du genre Merci beaucoup Flo riant
If toto > 20 then userform1.show puis la fois suivante userform2.show puis la fois suivante userform3.show puis retour sur le 1etc.
