Affichage Userform

[Hulk]

Bonsoir à tous,

Ai un petit souci d'affichage d'USF qui me grr 😀

Je souhaite qu'en cliquant sur le bouton Sortie de l'USF1 qu'il le vire, mais que l'autre reste affiché !

Je vous laisse un fichier joint avec des explications plus claires.

je vous remercie infiniment pour votre aide.

Hulk.

 

[Bigfish]

Re : Affichage Userform

Bonjour Hulk, bonjour le forum,

ben c'est ton end qui met le bazard !... 😉

Private Sub CommandButton1_Click()
If TextBox1 = "" Then Call Oubli Else If TextBox1 <> "" Then Macro1
End
Range("G14").Select
End Sub

il faut le virer.

A+🙂

 

[Compte Supprimé 979]

Re : Affichage Userform

Salut Hulk,

J'ai vu hier soir, y'a pas intérêt à te chauffer 😀

Dans le code de ton bouton de USF1, ilm faut mettre

Private Sub CommandButton1_Click()
If TextBox1 = "" Then
  Call Oubli
ElseIf TextBox1 <> "" Then Macro1
End If
Range("G14").Select
End Sub

Et ça fonctionne 😉

Bon j'me sauve en courant, vite, vite .... 😀😛

A+

Edit : oups, collision, slaut BigFish 😉

 

[Hulk]

Re : Affichage Userform

Re,

Merci pour vos réponses messieurs (dames) !

Avec les deux soluces c'est bon ou presque...
Le pb est que comme ça, il ne sort même plus de l'USF1 quand on clique OK, il faut cliquer sur la croix pour sortir !

Dois-je mettre un deuxième bouton ? (pas intérêt 😀)
Sinon, comment faire pour qu'en plus il sorte de l'USF1 si TextBox remplie ?

Encore une petite chose, en sortant de l'USF2, comment revenir directement dans la TexBox1 ?

Merci à tous et bon app si vous êtes à table !

Hulkos.

 

[Bigfish]

Re : Affichage Userform

Salut,

essai ceci :

Private Sub CommandButton1_Click()
    If TextBox1 = Empty Then
        Call Oubli
    ElseIf Not TextBox1 = Empty Then
        Macro1
        Unload Me
    End If
    Range("G14").Select
End Sub

A+

 

[Hulk]

Re : Affichage Userform (Résolu)

Re,

Merci Bigfish ça joue impec !

Ai juste encore rajouté en début de code TextBox1.Setfocus pour qu'il revienne direct sur la TextBox1 en sortant de l'Userform2.

Merci encore et au plaisir !

@+.

Résolu.

Hulk.