CODE VBA POUR MessageBox

[bennisay]

Bonjour tt le monde

J ai eu ce code il fonctionne sur mon dossier mais uniquement si je saisi la valeur "1" ou "2" manuellement sur la cellule "R5" 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 ( EXEMPLE : "R5" = la valeur d une formule ) le message n apparaisse pas.
Si vous avez une idee comment modifier le code de sorte que même 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

 

[Pierrot93]

Re : CODE VBA POUR MessageBox

Re,

voir ici :
https://www.excel-downloads.com/threads/message-box.20003105/

préférable de rester sur le même fil...

 

[st007]

Re : CODE VBA POUR MessageBox

Bonjour,

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

sert justement à lancer le code si la cellule R5 est modifiée manuellement

essaye de mettre une apostrophe ' devant cette ligne ... ainsi que devant la ligne End if

 

[bennisay]

Re : CODE VBA POUR MessageBox

reb pierrot93

OK merci je tacherai a le faire
merci