Textbox en numérique uniquement

[GGPS58]

Bonjour j'ai une série de textbox (16) et je voudrais vérifier que les valeurs rentrées sont bien des valauers numériques uniquement.
J'ai fait le code ci-dessous pour vérifier. JE répéte ce code pour chaque textbox en faiant varier le numéro de la textbox.

If TextBox3.Value <> "" Then
If Not IsNumeric(TextBox3.Value) Then
Cancel = True
MsgBox "Les champs Qté requièrent des valeurs numériques uniquement", vbInformation, "VERIFIEZ"
Exit Sub
End If
End If

Je voudrais faire une boucle pour avoir le même résultat.
la relation entre le numéro de textbox (N) est :
K =1 to 16
N =((K*4)-1)

Merci de votre aide, je séche.

GGPS

 

[Pierrot93]

Re : Textbox en numérique uniquement

Bonjour GGPS

ce code de MichelXLD sur le WIKI devrait pouvoir t'aider.

Dim Ctrl As Control
For Each Ctrl In Me.Controls
If typeOf Ctrl Is MSForms.Textbox Then Msgbox Ctrl.Object.Value
Next Ctrl

@+

 

[GGPS58]

Re : Textbox en numérique uniquement

Bonjour Pierrot93,

Tu pourrais me l'expliquer et je le place comment ce code, ou à la place de quoi ?
Désolé je débute !

 

[Pierrot93]

Re : Textbox en numérique uniquement

Re,

Peut être comme ceci :

Sub test()
Dim Ctrl As Control
For Each Ctrl In Me.Controls
    If TypeOf Ctrl Is MSForms.TextBox Then
        If Ctrl.Value <> "" Then
            If Not IsNumeric(Ctrl.Value) Then
                XXXCancel = True
                MsgBox "Les champs Qté requièrent des valeurs numériques uniquement", vbInformation, "VERIFIEZ"
                Exit Sub
            End If
        End If
    End If
Next Ctrl
End Sub

@+

D'aure part dans ton code il y a un "Cancel" = True, je suppose que c'est une variable que tu valorise, mais attention c'est un mot VBA.

@+