Message box

Pierrot93

XLDnaute Barbatruc

• 24 Novembre 2015

• #2

Re : Message box

Bonjour,

essaie ceci :

Code:

If Range("D6") = 1 Then MsgBox "Alerte..."

bonne journée
@+

 

Vote positif 0 Vote négatif

bennisay

XLDnaute Occasionnel

• 24 Novembre 2015

• #3

Re : Message box

reb Pierrot93

le feuille ou je vais executer ce code est nommé "livraison"
comment executer ce code sur ma feuille
avec quoi je commence mon code vba
et merci
car j ai mis la valeur 1 en D6 mais j ai pas eu de message

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Novembre 2015

• #4

Re : Message box

Re,

A placer dans un module standard tu créé un bouton auqual tu affecte la macro...

Code:

Option Explicit
Sub test()
If Sheets("livraison").Range("D6") = 1 Then MsgBox "Alerte..."
End Sub

 

Vote positif 0 Vote négatif

bennisay

XLDnaute Occasionnel

• 24 Novembre 2015

• #5

Re : Message box

reb
vous trouverez mon fichier piece jointe
pour bien expliquer mon cas et comment je vais proceder a executer ce code
merci pour votre patience

 

Pièces jointes

• GB Original.xlsm

  220.5 KB · Affichages: 36
• GB Original.xlsm

  220.5 KB · Affichages: 36

Vote positif 0 Vote négatif

bennisay

XLDnaute Occasionnel

• 24 Novembre 2015

• #6

Re : Message box

Reb pierrot93

j ai eu ce code il fonctionne sur mon dossier mais uniquement si je saisi la valeur "1" ou "2" manuellement et je click sur entrer
a ce moment la je recois le message mais si la valeur de la cellule "R5" est automatiquement mise en cellule le message n apparaisse pas
si tu as une idee comment modifier le code de sorte que meme si je ne touche pas la cellule "R5" je recois le message si j ai la valeur 1 ou 2 sur la cellule "R5"
et merci



Private Sub Worksheet_Change(ByVal Target As Range)

Dim Num_Concours As Long

If Not Intersect(Sheets("LIVRAISON").Range("R5"), Target) Is Nothing Then

Num_Concours = Sheets("LIVRAISON").Range("R5")

Select Case Num_Concours
Case Is = 1
MsgBox ("ALERTE"), vbInformation

Case Is = 2
MsgBox ("COMMANDEZ"), vbInformation


End Select
End If
End Sub

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Novembre 2015

• #7

Re : Message box

Re,

essaye ceci, à placer dans le module de la feuille "livraison" :

Code:

Private Sub Worksheet_Calculate()
Select Case Range("R5")
Case Is = 1
MsgBox ("ALERTE"), vbInformation
Case Is = 2
MsgBox ("COMMANDEZ"), vbInformation
End Select
End Sub

 

Vote positif 0 Vote négatif

bennisay

XLDnaute Occasionnel

• 24 Novembre 2015

• #8

Re : Message box

reb

merci infiniment ca fonctionne parfaitement
grand merci pour vous et ce forum

 

Vote positif 0 Vote négatif

bennisay

XLDnaute Occasionnel

• 24 Novembre 2015

• #9

Re : Message box

BONSOIR Pierrot93
Si je veux avoir le meme code pour une autre cellule exp "Z8" messagebox "attention client" pour une valeur de "10"
comment ajouter ce code au premier deja existant .

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Novembre 2015

• #10

Re : Message box

Re,

A voir si Z8 est déterminée par une formule ou pas...

 

Vote positif 0 Vote négatif

bennisay

XLDnaute Occasionnel

• 24 Novembre 2015

• #11

Re : Message box

re

Oui
Elle contienne aussi une formule

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Novembre 2015

• #12

Re : Message box

Re,

modifie comme suit :

Code:

Private Sub Worksheet_Calculate()
If Range("Z8") = 10 Then MsgBox "attention client"
Select Case Range("R5")
Case Is = 1
MsgBox ("ALERTE"), vbInformation
Case Is = 2
MsgBox ("COMMANDEZ"), vbInformation
End Select
End Sub

 

Vote positif 0 Vote négatif

bennisay

XLDnaute Occasionnel

• 24 Novembre 2015

• #13

Re : Message box

BONSOIR
Les deux formules ne fonctionnent pas en meme temps e*VBA bloque et met

Private Sub Worksheet_Calculate() en bleu

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Novembre 2015

• #14

Re : Message box

Re,

il ne faut qu'un seul événement "calculate" par module de feuille....

 

Vote positif 0 Vote négatif

bennisay

XLDnaute Occasionnel

• 24 Novembre 2015

• #15

Re : Message box

bonsoir
et comment faire donc pour ajouter ce deusieme evenement
j ai deux cellules que leur valeur doivent m alerter "R5" ET "Z8" et elle sont dans la meme feuille et le meme classeur

 

Vote positif 0 Vote négatif