créer une boucle de vérification

[guillaumelorchat]

Bonjour,

je voudrais créer une boucle de vérification dans mon programme.

J'ai un USF avec plusieurs textbox. Lorsque je clique sur un bouton un calcul se fait. Par contre les valeurs des textbox ne doivent pas etre supérieures à 208.
Comment faire pour verifier au moment ou l'on clique sur le bouton que toutes les valeurs sont bien inférieures ou egales à 208 ?

Merci beaucoup

 

[Guest]

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

 

[guillaumelorchat]

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...

 

[Guest]

Re : créer une boucle de vérification

Re bonjour Guillaume,

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

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

 

[guillaumelorchat]

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 :

ValeursOk = ValeursOk & Val(hmois105) < 208

que cela signifie t'il ?

 

[Guest]

Re : créer une boucle de vérification

Re guillaume,

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

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

A bientôt

 

[guillaumelorchat]

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 ?

 

[Guest]

Re : créer une boucle de vérification

hello Guillaume,

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

A+

 

[guillaumelorchat]

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!

 

[Guest]

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

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