Discussion :

[bickou]

Bonjour à tous,

Je souhaite résoudre un petit soucis que je ne comprend pas.
Pour résumé je teste la valeur du Textbox 'TB_ID' et si l'ID n'existe pas dans la base ou que ce qui est saisi n'est pas au format numérique je fais un msgbox puis je supprime le contenu du Textbox et je fais un setfocus sur 'TB_ID'.
Et c'est là que le problème apparaît : Du fait que le code est sur l'action AfterUpdate du textbox je dois sélectionner autre chose ou faire entrer. Tout le code fonctionne sauf le setfocus qui m'envoi sur ce que j'ai saisi pour déclencher AfterUpdate ou sur mon combobox suivant si j'ai fais entrer.

En passant il y a un deuxième truc que je n'ai pas saisi : je suis obligé de passer par la variable x pour la valeur Sheets("BDMat").Range("A65000").End(xlUp).Row sinon ce n'est pas traité. Il me semblait que .row possédait une valeur de type Long ce qui devrait fonctionner non? J'ai résolu en mettant x en tant qu'integer mais je souhaiterai comprendre.

Merci d'avance.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim x As Integer
x = Sheets("BDMat").Range("A65000").End(xlUp).Row + 1
If Me.TB_ID.Value > 1 And Me.TB_ID.Value < x Then
 
    MsgBox (Sheets("BDMat").[A65000].End(xlUp).Row)
    Else
        If Not IsNumeric(Me.TB_ID.Value) Then
        MsgBox "L'ID est obligatoirement au format numérique !", vbCritical
        Me.TB_ID.Value = "" 'Vide le control
        Me.TB_ID.SetFocus 'renvoi le focus sur la case ID
        Exit Sub
        Else
            MsgBox "L'ID entrée n'existe pas !", vbCritical
            Me.TB_ID.Value = "" 'Vide le control
            Me.TB_ID.SetFocus 'renvoi le focus sur la case ID
            Exit Sub
        End If
End If

[Invité]

Bonjour,

Je ne réponds pas directement à votre problème, mais vous pouvez contrôler la saisie dans votre textbox avec l'événement keypress où dans "1234567890", vous définissez les caractères autorisés.

Code :

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

1
2
3
Private Sub TB_ID_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
        If InStr("1234567890", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

Quant à x, je ne vois pas.

Cordialement.

[bickou]

Merci à vous Eric pour cette astuce qui peut effectivement remplacer le isnot numeric et le >1.

[Invité]

Bonjour,
Tu peux faire ton contrôle sur le bouton valider, et là donner le focus!

[bickou]

Bonjour rdurupt,
Qu'entends tu par "bouton Valider" ?

[Invité]

Dans ton formulaire tu rajoute un bouton et sur bouton_click te contrôles tes valeurs et tu redonnes le focus ou tu écris dans Excel.