Si il y a un "X" en D2:D50

If Not Range("Feuil2!D2:D50").Find("X") Is Nothing Then .......ta macro

AV

Salut Patrick,
dans le module de la feuille

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Range("D2:D50"), Target) Is Nothing And _
Target.Value = "x" Or Target.Value = "X" Then MsgBox ("macro")
End Sub

--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Crel" <nospam-pas-de-pub@club-internet.fr> a écrit dans le message de
news:OJrD%23VYlDHA.964@TK2MSFTNGP10.phx.gbl...

Bonjour à toutes et tous.
Comment faire pour créer une proc qui dise : si il y a un "X" en D2:D50,
alors activer une macro sinon pas de macro.
Merci beaucoup.
Patrick

Mille merci AV
Patrick

"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de news:
bmrkfg$5uu$1@news-reader3.wanadoo.fr...

If Not Range("Feuil2!D2:D50").Find("X") Is Nothing Then .......ta macro

AV

Merci beaucoup Jean-François
Patrick

"Jean-François Aubert" <àOterjfaubert@bluewin.ch> a écrit dans le message de
news: 3f9157e4_2@news.bluewin.ch...

Salut Patrick,
dans le module de la feuille

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Range("D2:D50"), Target) Is Nothing And _
Target.Value = "x" Or Target.Value = "X" Then MsgBox ("macro")
End Sub

--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Crel" <nospam-pas-de-pub@club-internet.fr> a écrit dans le message de
news:OJrD%23VYlDHA.964@TK2MSFTNGP10.phx.gbl...

Bonjour à toutes et tous.
Comment faire pour créer une proc qui dise : si il y a un "X" en D2:D50,
alors activer une macro sinon pas de macro.
Merci beaucoup.
Patrick