créer une boucle de vérification

G

Guest

Guest

• 11 Septembre 2008

• #2

Re : créer une boucle de vérification

Bonjour Guillaume,

un petit fichier exemple serait indiqué pour pouvoir de répondre de manière particulière et adaptée.

A bientôt

 

Vote positif 0 Vote négatif

G

guillaumelorchat

Guest

• 11 Septembre 2008

• #3

Re : créer une boucle de vérification

bonjour,
voici mon fichier.

QUand j'appuie sur calcul de l'indem je veux qu'avant de faire le calcul cela verifie que les textbox des heures ne soient pas > à 208...

 

Pièces jointes

• pour envoi.zip

  32.9 KB · Affichages: 39
• pour envoi.zip

  32.9 KB · Affichages: 39
• pour envoi.zip

  32.9 KB · Affichages: 36

Vote positif 0 Vote négatif

G

Guest

Guest

• 11 Septembre 2008

• #4

Re : créer une boucle de vérification

Re bonjour Guillaume,

tu peux ajouter ceci en début de procédure commandbutton13_click:

Code:

Dim ValeursOk As Boolean
Dim i As Integer
ValeursOk = True
For i = 1 To 10
     ValeursOk = ValeursOk And Val(Me.Controls("hmois" & i)) < 208
Next i
ValeursOk = ValeursOk & Val(hmois105) < 208
 
If Not ValeursOk then exit sub

A bientôt

 

Dernière modification par un modérateur: 11 Septembre 2008

Vote positif 0 Vote négatif

G

guillaumelorchat

Guest

• 11 Septembre 2008

• #5

Re : créer une boucle de vérification

coucou,

je viens de mettre ce code dans mon programme mais ca ne marche pas. Il me dit erreur sur la ligne suivante :

Code:

ValeursOk = ValeursOk & Val(hmois105) < 208

que cela signifie t'il ?

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 11 Septembre 2008

• #6

Re : créer une boucle de vérification

Re guillaume,

Excuses-moi j'ai fait une erreur de synthaxe mettre

Code:

ValeursOk = ValeursOk [SIZE=3][COLOR=red]And[/COLOR][/SIZE] Val(hmois105) < 208

A bientôt

 

Vote positif 0 Vote négatif

G

guillaumelorchat

Guest

• 11 Septembre 2008

• #7

Re : créer une boucle de vérification

j'ai l'impression que la boucle fonctionne mais si la valeur est >à 208 il ne se passe rien.

Ou dois je completer le code pour que cela affiche un message d'erreur ?

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 11 Septembre 2008

• #8

Re : créer une boucle de vérification

hello Guillaume,

Code:

If Not ValeursOk then 
      MsgBox "Les valeurs horaires doivent être inférieures à 208"  _
                   & vbCrLf & "Validation interrompue!", vbInformation,"Valider"
     exit sub
End If

A+

 

Vote positif 0 Vote négatif

G

guillaumelorchat

Guest

• 11 Septembre 2008

• #9

Re : créer une boucle de vérification

hey,
ca marche presque... car cela fonctionne que pour les cases hmois10 et hmois10,5...

je comprends pas trop...

Sinon ou dois je declarer une variable public ? je trouve pas!

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 11 Septembre 2008

• #10

Re : créer une boucle de vérification

Guillaume,

tu n'as pas de variable public à déclarer.

Si tu as mis les lignes de codes au bon endroit, c'est à dire au début de la procédure commandbutton13_clickil ne devrait pas y avoir de problème.

La boucle For i= 1 to 10
teste tous les Textbox de "hmois1" à "hmois10"
if suffit qu'un seul ne réponde pas au test pour que ValeursOk soit =Faux

Code:

Dim ValeursOk As Boolean
Dim i As Integer
ValeursOk = [COLOR=red]True
[/COLOR]For i = 1 To 10
     ValeursOk = ValeursOk [COLOR=red]And[/COLOR] Val(Me.Controls("hmois" & i)) < 208
Next i
ValeursOk = ValeursOk & Val(hmois105) < 208
If Not ValeursOk then 
      MsgBox "Les valeurs horaires doivent être inférieures à 208"  _
                   & vbCrLf & "Validation interrompue!", vbInformation,"Valider"
     exit sub
End If

A bientôt

 

Vote positif 0 Vote négatif