cs_matth72
Messages postés71Date d'inscriptionjeudi 21 février 2008StatutMembreDernière intervention 8 décembre 2011
-
23 avril 2008 à 17:35
cs_matth72
Messages postés71Date d'inscriptionjeudi 21 février 2008StatutMembreDernière intervention 8 décembre 2011
-
24 avril 2008 à 09:22
bonjour à tous je suis nouveau dans le monde des macros vb je suis actuellement en stage et ma mission et de créer un logiciel avec solidwork de façon à générer automatique des segment de piston de voiture, mobylette, aviation ....
puis par la suite faire automatiquement la mise en plan, actuellement tout sa fonctionne très bien, je suis dans la phase d' éradication des erreurs.
donc mon probleme est très simple j'ai environ 70 textbox sur mon userform et je voudrai toutes les parcourir pour savoir s'il n'y en a pas une de vide (dans ce cas mon programme plante) j'ai donc commencer à faire quelque chose mais en vain
Dim textbox As Varient
Dim i As Integer
For i = 1 To 70
If textbox ( i ) = vide Then
msg = ("textbox vide")
reponse = msgbox(msg, vbOkOnly, "erreur")
Else
GoTo Line1
End If
Next i
pile_poil
Messages postés682Date d'inscriptionvendredi 6 avril 2007StatutMembreDernière intervention 4 août 20126 23 avril 2008 à 18:55
bonjour
plusieurs chose:
quel est le message d'erreur?
est ce que tes textbox sont groupée (est ce qu'elle ont un indice?)
pourquoi déclarer une variable qui porte le nom de ta textbox? de plus ce n'est pas :If textbox ( i ) vide Then mais If textbox ( i ) "" Then
d'autre par ton GoToline1 tel qu'il est placé fait que dès que tu as trouvé une textbox non vide tu sors de la boucle et donc tu ne testes pas les autres (de plus évites les goto c'est "ringard" )
une derniere suggestion plutot que
msg = ("textbox vide")
fais plutot
msg = ("textbox " & i & " vide")
comme ça tu auras dans ton message le numéro de la textbox vide (quand il y en a 70 ça peut être pratique
[reglement.aspx ]si c'est la solution, penser : REPONSE ACCEPTEE