Problème affichage MSGBOX

[koko_spv89]

Bonjour à tous.

Voilà j'ai sur une feuille une case que je vieux remplir avec un menu déroulant. Initialement elle est vide, lorsqu'on la rempli, je voudrais afficher un msgbox. Pour l'instant j'y arrive j'ai fait ça :

Private Sub worksheet_change()
If [Schéma!I3] > 0 Then MsgBox ("Décocher les installations fixes qui ont été détruites par l'incendie")
End Sub

Le problème est que lorque je viens modifier d'autres cases sur la même page si I3>0 alors à chaque fois il m'affiche le msgbox.

Comment faire pour qu'il me l'affiche que lorsque je viens modifier I3?

 

[excalibur]

Re : Problème affichage MSGBOX

bonjour koko le forum un truc dans ce style pas teste!!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("i3")) Is Nothing Then
If [Schéma!I3] > 0 Then MsgBox ("Décocher les installations fixes qui ont été détruites par l'incendie")
End If
End Sub

 

[tototiti2008]

Re : Problème affichage MSGBOX

Bonjour à tous,

Moi je proposerais plutôt un mix des deux :

Private Sub worksheet_change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("i3")) Is Nothing Then
If [Schéma!I3] > 0 Then MsgBox ("Décocher les installations fixes qui ont été détruites par l'incendie")
End If
End Sub

 

[koko_spv89]

Re : Problème affichage MSGBOX

RE à tous,

merci, j'ai pris la solution de tototiti2008 car mes déclarations étaient déjà

Private Sub worksheet_change(ByVal Target As Range)

donc ça m'a éviter de les remodifier car j'avais d'autres choses ds ma macro!

Bonne journée à vous et merci