Message box

Bonjour à tous

je cherche le moyen de faire un msgbox ex: la somme de F7:F8 si le montant est négatif j'aimerais qu'il affiche un alerte Erreur "le montant est Négatif."

Merci.

Bonjour,

Un format conditionnel serait faire.

sinon en VBA

Sub Contr()
    If Application.WorksheetFunction.Sum(Range("f7:f8")) < 0 Then
        MsgBox (" Erreur ! le montant est Négatif.")
    End If
End Sub

Claude.

Bonjour à tous,

Quand on ouvre un post, on répond sur le fil et non en MP

D'ailleurs ce genre de message en MP va directos au panier !

Salut dubois

J'ai essayé la formule en vba elle ne fonctionne pas, je sais pas si c'est moi qui le fait pas bien ,peux tu me la faire sur un fichier et me l'envoyer.Ou peut tu me dire comment la faire en conditionnel.Merci

pense aux autres forumeurs qui peuvent être intéressés.

Ceci dit, tu mets le code envoyé + haut dans un module et tu lui associe un bouton,

ou tu l'incorpore dans une de tes macros,

ou tu envoie ton fichier

Claude.

Bonjour

Ok je savais pas à l'avenir je vais répondre de la bonne manière

j'envoie mon fichier je n'arrive pas à la faire fonctionné.Merci

https://www.excel-pratique.com/~files/doc/SeEGLFichier_caisse.xls

Bonsoir,

regarde si çà te va ?

https://www.excel-pratique.com/~files/doc/Fichier_caisse2.xls

Claude.

Salut le forum

Cgagné, pourquoi trois feuilles....

Pour des remises de bouteilles ....

Un simple UserForm aurait fait tout le travail (C'est aussi en VBA)

Evite aussi les Select

Sub Coke_500ml()
' Coke_500ml Macro
    Range("D9") = "Coke 500 ml"
    Range("E9") = "1.49"
    Range("F9") = "1"
    Range("G9").FormulaR1C1 = "=RC[-2]*RC[-1]"
    Range("F9").Select
End Sub

Un exemple de simplification

Mytå

Bonsoir

Merci beaucoup dubois de ton aide très aprécier

c'est exactement ce que je voulais.Merci

Merci Beaucoup

Dubois

Merci pour ta sugestion je l'as prend en note, je suis novice en Macro les expert comme vous autres nous font économiser beaucoup de temps.Merci encore