Message d'alerte

[la croisée des pains]

Message d'alerte "donnée incohérente"

bonjour à tous,

voila j'aimerais un ptit coup de main sur mon fichier.

je rentre mes données "edf "dans un usf et j'aimerais avoir un message d'alerte quand je saisis mes données au moment de la validation qui m'indique que si mes données sont inférieurs aux dernières données.
" Alerte données incohérentes"

Voir les cellules E5 et D5. Je ne veux pas que le tableau se renseigne si ces chiffres sont inférieurs.


merci de votre aide

lolo

 

[porcinet82]

Re : Message d'alerte

Salut,

Il te suffit de rajouter des If. Globalement, ca donnerait quelques chose dans ce genre :

With Sheets("Electricité")
    .Unprotect
    If .Cells(Derlgn, 4).Value < TextHC.Value Then MsgBox "Valeur HC inférieure a la dernière": Exit Sub
    If .Cells(Derlgn, 5).Value > TextHP.Value Then MsgBox "Valeur HP inférieure a la dernière": Exit Sub
    .Range("A" & Derlgn) = TextLibelle.Text
    .Range("D" & Derlgn) = TextHC.Value
    .Range("E" & Derlgn) = TextHP.Value
    .Protect
End With

@+

 

[la croisée des pains]

Re : Message d'alerte

Salut,

Il te suffit de rajouter des If. Globalement, ca donnerait quelques chose dans ce genre :

With Sheets("Electricité")
    .Unprotect
    If .Cells(Derlgn, 4).Value < TextHC.Value Then MsgBox "Valeur HC inférieure a la dernière": Exit Sub
    If .Cells(Derlgn, 5).Value > TextHP.Value Then MsgBox "Valeur HP inférieure a la dernière": Exit Sub
    .Range("A" & Derlgn) = TextLibelle.Text
    .Range("D" & Derlgn) = TextHC.Value
    .Range("E" & Derlgn) = TextHP.Value
    .Protect
End With

@+

bonjour Romain,

merci de ton aide....... par contre je voudrais si possible que si une ou les 2 données sont inférieures , alors ne pas pourvoir transmettre les infos dans la feuille et ne pas effacer la date mais juste la valeur fausse.

Actuellement avec le nouveau code cela transmet la date et vide les textbox.

encore bravo et merci de votre aide.

lolo

 

[porcinet82]

Re : Message d'alerte

re,

Je viens de voir que je m'etais un peu enflamé sur le code, voici la modif (les autres codes ne changent pas) :

Private Sub CommandButton1_Click()
Dim nbligne, MsgErreur
Dim DateString As String
Dim Derlgn As Integer
    
If Me.TextDate = "" Then Me.TextDate.SetFocus: Exit Sub
DateString = Trim(TextDate.Text)
Derlgn = Range("D500").End(xlUp).Row + 1
Range("C" & Derlgn) = DateSerial(Mid(DateString, 5, 2), Mid(DateString, 3, 2), Mid(DateString, 1, 2))
If TextHC.Value = "" Then
    MsgErreur = MsgBox(vbTab & "Saisissez un numéro de facture !", vbOKOnly + vbExclamation, "AJOUT IMPOSSIBLE, DONNEE OBLIGATOIRE")
    TextHC.SetFocus
    Exit Sub
End If
With Sheets("Electricité")
    .Unprotect
    If .Cells(Derlgn - 1, 4).Value > Val(TextHC.Value) Then MsgBox "Valeur HC inférieure a la dernière": Exit Sub
    If .Cells(Derlgn - 1, 5).Value > Val(TextHP.Value) Then MsgBox "Valeur HP inférieure a la dernière": Exit Sub
    .Range("A" & Derlgn) = TextLibelle.Text
    .Range("D" & Derlgn) = TextHC.Value
    .Range("E" & Derlgn) = TextHP.Value
    .Protect
End With
inisaisie
End Sub

@+​

 

[la croisée des pains]

Re : Message d'alerte

Bonjour le forum,Bonjour Romain

merci c'est cool, cela fonctionne

@+ lolo