Afficher une message box en fonction d'un resultat

[guillaumelorchat]

Bonjour à tous,

je vous fais part de mon soucis.

J'ai un USF avec des textbox dans lesquelles on rentre un nombre qui doit etre inférieur ou egale à 208. Lorsque on appuie sur le bouton de calcul cela verifie qu'aucune textbox soit sup à 208.
Ce que je voudrais c'est que le message d'erreur me dise quelle textbox est sup à 208.

voici mon code

Private Sub commandbutton13_click()

Dim ValeursOk As Boolean
Dim i As Integer
ValeursOk = False
For i = 1 To 14
     ValeursOk = Val(Me.Controls("hmois" & i)) < 208.1
If Not ValeursOk Then
      MsgBox "Le nombre d'heures déclarées le mois for i= 1 to 14 doit être inférieure à 208" _
                   '& vbCrLf & "Validation interrompue!", vbInformation, "Valider"
                   End If
                   
Next i


     Exit Sub

PS comment dire que le resultat doit etre inferieur OU egale à 208 ?

Merci

 

[Guest]

Re : Afficher une message box en fonction d'un resultat

Bonjour Guillaume,

Dim ValeursOk As Boolean
Dim i As Integer
ValeursOk = False
For i = 1 To 14
     ValeursOk = Val(Me.Controls("hmois" & i)) <=208.1
If Not ValeursOk Then
      MsgBox "Le nombre d'heures déclarées le mois " & i & " doit être inférieure ou égal à 208" _
                   '& vbCrLf & "Validation interrompue!", vbInformation, "Valider"
End If
                   
Next i

si tu veux mettre le nom du contrôle dans le message tu remplace i par:
Me.Controls("hmois" & i).Name

Inférieur ou égal: <=
A bientôt

 

[Robert]

Re : Afficher une message box en fonction d'un resultat

Bonjour Guillaume, Hasco, bonjour le forum,

La réponse de Hasco est top mais comme j'ai aussi bossé sur ton problème, je me permets de t'envoyer ma proposition :

Private Sub commandbutton13_click()
Dim ValeursOk As Double
Dim i As Byte
For i = 1 To 14
    ValeursOk = CDbl(Me.Controls("hmois" & i))
    If ValeursOk > 208.1 Then
        MsgBox "Le nombre d'heures déclarées ce mois doit être inférieure à 208" _
                   & vbCrLf & "Validation interrompue!", vbInformation, "Valider"
        With Me.Controls("hmois" & i)
            .SetFocus
            .SelStart = 0
            .SelLength = Len(TextBox1.Value)
        End With
        Exit Sub
    End If
Next i
End Sub

 

[job75]

Re : Afficher une message box en fonction d'un resultat

Bonjour,

Voyez si le message suivant vous convient :

"Le nombre d'heures déclarées le mois " & i & " doit être inférieure à 208"

A+

Salut Hasco et Robert, pas rafraichi à temps

 

[guillaumelorchat]

Re : Afficher une message box en fonction d'un resultat

merci à tous les participants !

Vous etes top ! et en plus la première solution marche nickel et je la comprends !

Longue vie à ce forum !