Discussion :

[Zak Blayde]

Bonjour,

C'est tout simple et idiot de ma part, mais je n'ai pas trouvé dans la FAQ dans 3.6. Userforms, Code et Contrôles(6) comment activer une UserForm de type textbox par exemple.
j'ai fait un

Code :

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

TextBox_xxx.Activate

dans un If, mais ça marche pas

Merci d'éclairer ma lanterne, je pense que ce sera vite réglé


le if complet :

Code :

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

1
2
3
4
5
6
7
Private Sub TextBox_quant_Change()
    If TextBox_quant.Value = TextBox_art.Value Then
        MsgBox ("Erreur de scan : vous avez scanné le mauvais code barre.")
        TextBox_quant.Value = ""
        TextBox_quant.Activate
    End If
End Sub

[fred65200]

bonjour

ton textbox est sur un UserForm

Code :

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

UserForm1.show

UserForm1 étant le nom par défaut du 1er UserForm

regarde dans l'aide Touche F1

cordialement

[Zak Blayde]

Si j'ai bien compris, c'est parce que je n'avais pas précisé le nom de la UserForm ?

J'ai donc modifié ainsi :

Code :

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

1
2
3
4
5
6
7
Private Sub TextBox_quant_Change()
    If TextBox_quant.Value = TextBox_art.Value Then
        MsgBox ("Erreur de scan : vous avez scanné le mauvais code barre. Scannez le code-barre de quantité s'il vous plait.")
        TextBox_quant.Value = ""
        Inventaire.TextBox_quant.Activate
    End If
End Sub

L'erreur persiste sur le "Activate" :/

Peut-être ai-je mal compris ton explication.


ouuuuuuups edit :

J'ai remplacé Activate par SetFocus, ça fonctionne. En revanche la msgbox n'apparait pas et j'ai un sablier éternel >_<
Pourtant ça m'efface bien le contenu de la TextBox... Donc la ligne msgbox a été prise en compte.

[fred65200]

que veux tu faire?

ça?

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub TextBox_quant_Change()
    If TextBox_quant.Value = TextBox_art.Value Then
        MsgBox ("Erreur de scan : vous avez scanné le mauvais code barre. Scannez le code-barre de quantité s'il vous plait.")
           TextBox_quant.SetFocus
    TextBox_quant.SelStart = 0
    TextBox_quant.SelLength = Len(TextBox1.Text)
 'TextBox_quant.Value = ""
        'Inventaire.TextBox_quant.Activate
    End If
End Sub

cordialement

[Zak Blayde]

désolé, j'ai édité mon message précédent ^^.

Concernant la msgbox, elle apparait brièvement et disparait. Même lorsque je passe en commentaire les deux lignes d'après.

Que veulent dire ces lignes s'il te plait :

Code :

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

1
2
TextBox_quant.SelStart = 0
    TextBox_quant.SelLength = Len(TextBox1.Text)

[fred65200]

Que veulent dire ces lignes s'il te plait :

Code :

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

1
2
TextBox_quant.SelStart = 0
    TextBox_quant.SelLength = Len(TextBox1.Text)

Sélection du texte du TextBox devant le premier caractère (SelStart = 0) sur une "longueur" de nombre de caractères du TextBox. Ok?

Pour le problème de MsgBox, il faudrait voir le code complet.

@+