Ouverture d'une fenetre avec message + choix d'action

[keurma]

Bonjour,

Pourriez-vous me donner une macro permettant l'ouverture d'une fenetre si une valeur contenue dans la colonne F est superieur à une valeur contenue dans la colonne D, pour une meme ligne (ex : F5>D5 ; F11>D11 etc...).
Cette fenetre contiendrait le message "VOUS N'AVEZ PAS ASSEZ DE STOCK. SOUHAITEZ VOUS FAIRE UNE COMMANDE ?" ainsi qu'un bouton OUI et NON. Si on clique sur nom, on revient sur son document, si on clique sur OUI, EXCEL renvoie sur une feuille nommé BROUILLARD DE COMMANDE.

Merci d'avance pour votre aide.

 

[pierrejean]

Re : Ouverture d'une fenetre avec message + choix d'action

bonjour keurma

A tester:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 Then
 If Target.Value > Range("D" & Target.Row) Then
  dde = "VOUS N'AVEZ PAS ASSEZ DE STOCK. SOUHAITEZ VOUS FAIRE UNE COMMANDE ?"
  reponse = MsgBox(dde, vbYesNo, "ALERTE")
    If reponse = vbYes Then
       Sheets("BROUILLARD DE COMMANDE").Select
     End If
 End If
End If
End Sub