Fonction SI en macro

bonjour,

J'ai besoin de votre aide pour établir une macro, normalement ceci pourrait se faire avec une simple fonction "SI" sauf que ca manquerai de souplesse vu que l'utilisateur doit toujours dupliquer la fonction en question.

Donc je préfère établir une macro qui permettrait d'avoir cette fonction instantanément lorsque des cellules sont remplis et donnera ainsi un message d'alerte .

tous les éléments du tableau seront saisi à la main, à part l'alerte réception (colonne I)

SI, " H=F" (dates); message d'alerte =>réception à temps ( colonne I)

SI, "F<H"(dates) ; message d'alerte => réception retardée (colonne I)

Sinon, message d'alerte=> Absence de réception (colonne I)

Merci de bien vouloir m'aider.

Bonjour,

Ci-joint une proposition, à tester.

Bouben

Bonjour,

Merci beaucoup pour votre aide ceci marche comme je l'ai souhaité .

Bonjour,

J'ai ajouté une cellule dans mon tableau, et la macro n'est plus opérationnel. j'ai essayé de changer le numéro de cellule de la macro mais en vain.( feuil 1)

le code qui a été affecté au départ et que j'ai essayé d'ajuster mais ca marche tjrs pas est:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column =7 Or Target.Column =9 Then

If Cells(Target.Row, 7) = "" And Cells(Target.Row, 9) = "" Then

Cells(Target.Row, 10) = ""

ElseIf Cells(Target.Row, 9) = "" Then

Cells(Target.Row, 10) = "Absence réception"

ElseIf Not IsDate(Cells(Target.Row,7)) Or Not IsDate(Cells(Target.Row, 9)) Then

Cells(Target.Row,10) = "Date incorrecte"

ElseIf Cells(Target.Row,9) = Cells(Target.Row, 7) Then

Cells(Target.Row,10) = "Réceptionné à temps"

ElseIf DateDiff("d", Cells(Target.Row,9), Cells(Target.Row, 7)) < 0 Then

Cells(Target.Row, 10) = "Réception retardée"

Else

Cells(Target.Row, 10) = ""

End If

End If

End Sub

Dans la Feuil 2 , il y'a un 2ème tableau où je veux insérer une macro de fonction SI comme suite:

Si la colonne G= la colonne J ==> message colonne M= conforme: respect du prix et de la quantité

Sinon non conforme

Dans la Feuil 3, il y 'a un 3ème tableau où j'aimerai insérer une macro de fonction SI comme suite:

Si colonne D = colonne F ==> message colonne I = conforme

sinon non conforme

MERCI POUR VOTRE AIDE