Message d'alerte en fonction d'un résultat

gilbert_RGI

XLDnaute Barbatruc

• 28 Octobre 2015

• #2

Re : Message d'alerte en fonction d'un résultat

Bonjour,

un truc de ce genre ?

 

Pièces jointes

• Inventaire excel download3.xlsm

  23.8 KB · Affichages: 29
• Inventaire excel download3.xlsm

  23.8 KB · Affichages: 31

Dernière édition: 28 Octobre 2015

Vote positif 0 Vote négatif

R

romubzh35

XLDnaute Occasionnel

• 28 Octobre 2015

• #3

Re : Message d'alerte en fonction d'un résultat

bonjour
oui on est pas loin
il faudrait juste que cette boite s'ouvre à chaque fois que je fais une nouvelle saisie egalement qui rentre dans le critere
mais merci bcp déjà pour votre aide

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 28 Octobre 2015

• #4

Re : Message d'alerte en fonction d'un résultat

Bonjour sissimumu, gilbert_RGI,

Je l'ai fait alors je le joins.

Cordialement.

 

Pièces jointes

• Copie de Inventaire excel download2.xlsm

  19.4 KB · Affichages: 36

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 28 Octobre 2015

• #5

Re : Message d'alerte en fonction d'un résultat

sissimumu à dit:

bonjour
oui on est pas loin
il faudrait juste que cette boite s'ouvre à chaque fois que je fais une nouvelle saisie egalement qui rentre dans le critere
mais merci bcp déjà pour votre aide

Cliquez pour agrandir...

voir le fichier 3 dans le message précédent

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 28 Octobre 2015

• #6

Re : Message d'alerte en fonction d'un résultat

RE:

Petites précisions dans ma solution:

- Le message ne s'affiche que lors du changement d'une cellule en colonne K, à partir de la ligne 8.
Je suppose que ces cellules ont une formule pour calculer l'écart, ce qui n'est pas le cas dans le fichier joint. Il faut donc modifier manuellement les cellules pour vérifier l'affichage.

- MsgBox reprend les en-têtes des colonnes concernées (Q7, R7, S7). Ainsi, si on modifie les titres pas besoin de corriger le code.

Cordialement.

 

Vote positif 0 Vote négatif

R

romubzh35

XLDnaute Occasionnel

• 28 Octobre 2015

• #7

Re : Message d'alerte en fonction d'un résultat

j'ai oublié de dire que le chiffre ecart est une formule alors que dans le dossier que j'ai joint ce n'est pas une formule
il faudrait qu'a chaque saisie la fenetre s'affiche si l'ecart est <> de 0

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 28 Octobre 2015

• #8

Re : Message d'alerte en fonction d'un résultat

sissimumu à dit:

j'ai oublié de dire que le chiffre ecart est une formule alors que dans le dossier que j'ai joint ce n'est pas une formule
il faudrait qu'a chaque saisie la fenetre s'affiche si l'ecart est <> de 0

Cliquez pour agrandir...

mon exemple fonctionne aussi avec une formule

 

Pièces jointes

• Inventaire excel download3.xlsm

  24.1 KB · Affichages: 30
• Inventaire excel download3.xlsm

  24.1 KB · Affichages: 30

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 28 Octobre 2015

• #9

Re : Message d'alerte en fonction d'un résultat

tu peux essayer aussi avec une Validation des données pas besoin de macro

 

Dernière édition: 28 Octobre 2015

Vote positif 0 Vote négatif

R

romubzh35

XLDnaute Occasionnel

• 28 Octobre 2015

• #10

Re : Message d'alerte en fonction d'un résultat

lorsque j'insere des nouvelles lignes pas de message en vue 😉

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 28 Octobre 2015

• #11

Re : Message d'alerte en fonction d'un résultat

Essaie de modifier ton code comme ceci:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
'Cette procédure est déclenchée dès qu'une cellule quelconque change de valeur
'Si la cellule modifiée n'est pas dans la plage K8:K... ou si elle égale à 0 on sort de la macro
If Intersect(Range("J8:J" & Rows.Count), Target) Is Nothing Then Exit Sub
If Target.Offset(0, 1) <> 0 Then
  MsgBox "Merci de renseigner les cases " & Range("Q7") & ", " & Range("R7") & _
    " et " & Range("S7") & " pour toutes les références dont l'inventaire n'est pas bon.", _
    vbOKOnly + vbExclamation
End If
End Sub

Cordialement.

 

Vote positif 0 Vote négatif

R

romubzh35

XLDnaute Occasionnel

• 28 Octobre 2015

• #12

Re : Message d'alerte en fonction d'un résultat

ah nickel merci bcp
comment puis je le mettre dans mon fichier d'origine ?

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 28 Octobre 2015

• #13

Re : Message d'alerte en fonction d'un résultat

RE:

Après avoir lancé l'éditeur VBE (ALT-F), double-click sur le nom de la feuille adéquate de ton fichier dans la fenêtre de gauche (Projet - VBAProject).

Dans la fenêtre principale:

liste déroulante de gauche ---> Worksheet

liste déroulante de droite ---> Change

Il ne te reste plus qu'à recopier les lignes du code, hormis la première et la dernière.

Cordialement.

 

Vote positif 0 Vote négatif

R

romubzh35

XLDnaute Occasionnel

• 28 Octobre 2015

• #14

Re : Message d'alerte en fonction d'un résultat

ah merci bcp
tout est en place
bonne journée

 

Vote positif 0 Vote négatif