Affichage Userform

B

Bigfish

XLDnaute Occasionnel

• 18 Novembre 2008

• #2

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+

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 18 Novembre 2008

• #3

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

Code:

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

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 18 Novembre 2008

• #4

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.

 

Vote positif 0 Vote négatif

B

Bigfish

XLDnaute Occasionnel

• 18 Novembre 2008

• #5

Re : Affichage Userform

Salut,

essai ceci :

Code:

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+

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 18 Novembre 2008

• #6

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.

 

Pièces jointes

• Test USF.zip

  14.3 KB · Affichages: 20
• Test USF.zip

  14.3 KB · Affichages: 23
• Test USF.zip

  14.3 KB · Affichages: 22

Dernière édition: 18 Novembre 2008

Vote positif 0 Vote négatif