S
Skud
Guest
Bonsoir tout le monde,
Voilà, je n'avance que très lentement sur mon projet de formulaire, voir içi :
http://www.excel-downloads.com/forums/2-171966-creation-un-formulaire-et-vba.htm#172074
En ce moment je suis en train d'essayer de vérifier les saisies dans les textbox et en utilisant la fonction 'setfocus', lorsqu'il y a une variable (soit plusieurs textbox), je ne sais pas comment faire.
Voilà la partie qui me pose problème :
For i = 1 To 8
If Not IsNumeric('textbox' & i) Then
MsgBox 'Il faut une valeur numérique'
'textbox' & i.SetFocus
Exit Sub
End If
Next i
Par quoi faut il que je remplace : 'texbox' & i ?
J'en profite pour vous demander un 'énorme' coup de main sur le reste de mes problèmes si vous avez un peu de temps à me consacrer.
Merci de votre aide et Merci à Pat1545.
Ci joint mon fichier avec mes 'avancée'
[file name=Skud1.zip size=19235]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Skud1.zip[/file]
Message édité par: skud, à: 29/05/2006 21:53
Voilà, je n'avance que très lentement sur mon projet de formulaire, voir içi :
http://www.excel-downloads.com/forums/2-171966-creation-un-formulaire-et-vba.htm#172074
En ce moment je suis en train d'essayer de vérifier les saisies dans les textbox et en utilisant la fonction 'setfocus', lorsqu'il y a une variable (soit plusieurs textbox), je ne sais pas comment faire.
Voilà la partie qui me pose problème :
For i = 1 To 8
If Not IsNumeric('textbox' & i) Then
MsgBox 'Il faut une valeur numérique'
'textbox' & i.SetFocus
Exit Sub
End If
Next i
Par quoi faut il que je remplace : 'texbox' & i ?
J'en profite pour vous demander un 'énorme' coup de main sur le reste de mes problèmes si vous avez un peu de temps à me consacrer.
Merci de votre aide et Merci à Pat1545.
Ci joint mon fichier avec mes 'avancée'
[file name=Skud1.zip size=19235]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Skud1.zip[/file]
Message édité par: skud, à: 29/05/2006 21:53