OVH Cloud OVH Cloud

Affichage message et UserForm

12 réponses
Avatar
dyj Orange
Bonjour,
Mon application Excel+VBA démarre par l'affichage d'un UserFrom avec un seul
bouton, les autres sont masqués. Je voudrai afficher un message (MsgBox)
pour donner des informations à l'utilisateur.
Mais voilà, mon message s'affiche derrière la Userform. Certainement du
paramétrage à faire.
Merci pour votre aide.

2 réponses

1 2
Avatar
LSteph
Bonjour,

Je reprends ici aujourdh'hui ce fil.
J'ai bien recu celui ou tu parlai d'un projet "Opale", cela se
préciserait-il?
Mais cela date déjà, je vais aller voir cela je n'ai pas consulté mes
mails depuis 2 jours au moins.

Cordialement.

--
LSteph

On 19 août, 19:06, "Jacquouille"
wrote:
Bonsoir Steph
A tout hasard, aurais-tu reçu mon mail en BAL Perso, svp ?
merci
Jacques.

--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille (MPFE).

"LSteph" a écrit dans le message de news:

...j'oubliais tout de même en complément

Si en suite tu fais ceci:

UserForm1.Show 0
MsgBox "je suis visible une fois le UF affiché"

Mais si l'utilisateur dois d'abord passer par l'utilisation du
userform
je n'emploierai pas cela.

Cordialement.

--
LSteph

On 18 août, 12:22, LSteph wrote:



> Bonjour,

> Ne l'appelerais tu pas apres dans le même code..? .. , genre:

> userform1.show
> msgbox "je ne suis forcément visible qu'une fois le UF refermé"

> Car sinon Modal ou Pas théoriquement non il s'affiche bien devant.
> Sous réserve qu'il soit bien appelé par le code du userform
> dès lors que celui ci est affiché exemple:

> Private Sub UserForm_Initialize()
> Dim i As Integer
> With Me.Controls
> For i = 2 To .Count
> .Item("Commandbutton" & i).Visible = False
> Next
> End With
> MsgBox "clic sur le bouton"
> End Sub

> Private Sub CommandButton1_Click()
> CommandButton2.Visible = True
> MsgBox "continue"
> End Sub

> Private Sub CommandButton2_Click()
> CommandButton3.Visible = True
> MsgBox "encore"
> End Sub

> Private Sub CommandButton3_Click()
> MsgBox "fini"
> Unload Me
> End Sub

> 'LSteph

> On 18 août, 08:58, "dyj Orange" wrote:

> > Bonjour,
> > Mon application Excel+VBA démarre par l'affichage d'un UserFrom ave c un
> > seul
> > bouton, les autres sont masqués. Je voudrai afficher un message (Ms gBox)
> > pour donner des informations à l'utilisateur.
> > Mais voilà, mon message s'affiche derrière la Userform. Certainem ent du
> > paramétrage à faire.
> > Merci pour votre aide.- Masquer le texte des messages précédents -

> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -
Avatar
Jacquouille
Salut Steph
Opale devient pâle, mais je parlais de Charlotte aux fraises....

--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille (MPFE).

"LSteph" a écrit dans le message de news:

Bonjour,

Je reprends ici aujourdh'hui ce fil.
J'ai bien recu celui ou tu parlai d'un projet "Opale", cela se
préciserait-il?
Mais cela date déjà, je vais aller voir cela je n'ai pas consulté mes
mails depuis 2 jours au moins.

Cordialement.

--
LSteph

On 19 août, 19:06, "Jacquouille"
wrote:
Bonsoir Steph
A tout hasard, aurais-tu reçu mon mail en BAL Perso, svp ?
merci
Jacques.

--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille (MPFE).

"LSteph" a écrit dans le message de news:

...j'oubliais tout de même en complément

Si en suite tu fais ceci:

UserForm1.Show 0
MsgBox "je suis visible une fois le UF affiché"

Mais si l'utilisateur dois d'abord passer par l'utilisation du
userform
je n'emploierai pas cela.

Cordialement.

--
LSteph

On 18 août, 12:22, LSteph wrote:



> Bonjour,

> Ne l'appelerais tu pas apres dans le même code..? .. , genre:

> userform1.show
> msgbox "je ne suis forcément visible qu'une fois le UF refermé"

> Car sinon Modal ou Pas théoriquement non il s'affiche bien devant.
> Sous réserve qu'il soit bien appelé par le code du userform
> dès lors que celui ci est affiché exemple:

> Private Sub UserForm_Initialize()
> Dim i As Integer
> With Me.Controls
> For i = 2 To .Count
> .Item("Commandbutton" & i).Visible = False
> Next
> End With
> MsgBox "clic sur le bouton"
> End Sub

> Private Sub CommandButton1_Click()
> CommandButton2.Visible = True
> MsgBox "continue"
> End Sub

> Private Sub CommandButton2_Click()
> CommandButton3.Visible = True
> MsgBox "encore"
> End Sub

> Private Sub CommandButton3_Click()
> MsgBox "fini"
> Unload Me
> End Sub

> 'LSteph

> On 18 août, 08:58, "dyj Orange" wrote:

> > Bonjour,
> > Mon application Excel+VBA démarre par l'affichage d'un UserFrom avec
> > un
> > seul
> > bouton, les autres sont masqués. Je voudrai afficher un message
> > (MsgBox)
> > pour donner des informations à l'utilisateur.
> > Mais voilà, mon message s'affiche derrière la Userform. Certainement
> > du
> > paramétrage à faire.
> > Merci pour votre aide.- Masquer le texte des messages précédents -

> - Afficher le texte des messages précédents -- Masquer le texte des
> messages précédents -

- Afficher le texte des messages précédents -
1 2