Boucle sur textbox

[GGPS58]

Bonjour
J'ai une série de textbox de 70 à 85
J'ai fait des controles de ce type pour chaque textbox

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

Je souhaiterais faire une boucle qui me permette d'optimiser mon code
Mais je n'y arrive pas
J'ai tenté avec
For G = 70 to 85
If ("TextBox" & G).Value <> "" Then
If Not IsNumeric(("TextBox" & G).Value ) Then
MsgBox "Les champs Remise requièrent des valeurs numériques uniquement", vbInformation, "VERIFIEZ"
Exit Sub
End If
End If

Ca plante sur les lignes en rouge
Pour info j'ai d'autres textbox qui ne requièrent pas des valeurs numériques
D'avance merci de votre aide

 

[Bebere]

Re : Boucle sur textbox

bonjourGGPS
c'était quasiment bon


For G = 70 To 85
If Controls("TextBox" & G).Value <> "" Then
If Not IsNumeric(Controls("TextBox" & G).Value) Then
MsgBox "Les champs Remise requièrent des valeurs numériques uniquement", _
vbInformation, "VERIFIEZ"
Exit Sub
End If
End If


à bientôt

 

[GGPS58]

Re : Boucle sur textbox

Merci beaucoup c'est parfait ....