Lancer une macro en fct du contenu de la cellule

[Caro]

Bonjour
je cherche à :
si la cellule 'AD3' contient le mot 'maison' alors lancer un prog
J'ai utilisé le code suivant
If Worksheets('feuil1').Range('AD3').Value = 'Maison' Then
:::::
end if
Le programme ne marche que si la cellule ne contient que le mot maison.
Or j'aimerai que si la cellule ne contient pas que le mot maison cela fonctionne aussi

Merci d'avance

 

[PascalXLD]

Re:Lancer une macro en fct du contenu de la cellul

Bonjour

essaies ceci

Dim c As Range

Set c = Range('AD3').Find('maison')

If Not c Is Nothing Then
.......
End If

Bon courage

Message édité par: Pascal76, à: 09/05/2005 10:43

 

[Caro]

Re:Lancer une macro en fct du contenu de la cellul

Tu n'as pas une autre idée pcq ca ne marche pas!!

merci quand même

Caro

 

[Abel]

Re:Lancer une macro en fct du contenu de la cellul

Bonjour Caro, Pascal76,

Tu peux utiliser aussi Select Case si tu as plusieurs possibilités à tester :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, Range('a2'Â'Â'))
If Not isect Is Nothing Then
Select Case LCase(Range('a2'Â'Â'))
Case 'maison'
    MsgBox ('C'est la maison'Â'Â')
Case 'telephone'
    MsgBox ('Téléphone maison'Â'Â')
Case 'téléphone'
    MsgBox ('Téléphone maison'Â'Â')
Case Else
    MsgBox ('barbatruc'Â'Â')
End Select
End If
End Sub

L'orthographe est importante. Le respect de la casse ne jous pas.

En espérant que cela te dépanne.

Abel.

Edition : ce code est à mettre dans la feuille concernée.

Message édité par: Abel, à: 09/05/2005 11:36

 

[Minick]

Re:Lancer une macro en fct du contenu de la cellul

Salut,

Une autre facon de voir la chose:

If InStr(1, 'maison', LCase(Range('AD3').Value)) Then
.....
End If

@+