chercher mot ds groupe de mots

pierrejean

XLDnaute Barbatruc

• 3 Avril 2006

• #2

bonjour Odile

teste quelque chose dans le genre:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = 'A1' Then
If Target Like '*mot*' Then
MsgBox 'Le mot 'mot' est dans cette cellule '
End If
End If
End Sub

 

Vote positif 0 Vote négatif

O

odile

Guest

• 3 Avril 2006

• #3

Bonjour PierreJean

Merci pour ta réponse. J'ai testé ta modif, mais le hic c'est que si je tape motus dans la cellule, le message apparaît qd même à partir du moment ou le mot 'mot' est contenu dans un autre mot.

En fait je veux pouvoir déclencher ce message uniquement quand le mot sélectionné est compris dans une phrase mais isolé.

Odile

 

Vote positif 0 Vote négatif

O

Odile

Guest

• 3 Avril 2006

• #4

Pb non résolu

Bonjour à toutes et à tous

mon pb n'étant pas résolu, je relance un post dans le cas ou quelqu'un aurait une idée sur la question
amicalement
Odile

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 3 Avril 2006

• #5

Reb non résolu

re

je pense que comme cela ça ira mieux

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = 'A1' Then
If Target Like '* mot *' Then
MsgBox 'Le mot 'mot' est dans cette cellule '
End If
End If
End Sub

pas tres visibles les espaces a mettre avant et apres mot dans Like '* mot *' Then

Message édité par: pierrejean, à: 03/04/2006 15:48

 

Vote positif 0 Vote négatif

O

odile

Guest

• 3 Avril 2006

• #6

Reb non résolu

désolé j'ai essayé mais cela ne fonctionne plus du tout. J'entends par là que même lorsque le mot:mot est isolé rien ne se passe!

Odile

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 3 Avril 2006

• #7

Reb non résolu

Bonjour

En fait il va falloir peut-être testé 3 conditions

1 - si le mot cherché est le premier mot
2 - si le mot cherché est le dernier mot
3 - si le mot cherché est au milieu

La macro de pierre -jean rempli la 3ème condition

je regarde pour le reste quand j'ai 5 minutes si personne ne s'y colle

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 3 Avril 2006

• #8

Reb non résolu

RE

Essaies ceci

Private Sub Worksheet_Change(ByVal Target As Range)
Dim monmot As String
monmot = 'Excel'
If Target.Address(0, 0) = 'A1' Then
    If Len(Target) = Len(monmot) Then
        If Target = monmot Then MsgBox 'Le mot 'mot' est dans cette cellule '
    ElseIf Len(Target) > Len(monmot) Then
        If Left(Target, Len(monmot)) = monmot And Mid(Target, Len(monmot) + 1, 1) = ' ' Then
            MsgBox 'Le mot ' & monmot & ' est dans cette cellule '
        ElseIf Right(Target, Len(monmot)) = monmot And Mid(Target, Len(Target) - Len(monmot), 1) = ' ' Then
            MsgBox 'Le mot ' & monmot & ' est dans cette cellule '
        ElseIf Target Like '* ' & monmot & ' *' Then
            MsgBox 'Le mot ' & monmot & ' est dans cette cellule '
        End If
    End If
End If
End Sub

Cliquez pour agrandir...

Bon courage

PS : J'ai supprimé ton post doublon

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 3 Avril 2006

• #9

Reb non résolu

RE

Attention le code donné tien compte de la casse

Si tu ne veux pas dis-le pour adaptation

 

Vote positif 0 Vote négatif

O

odile

Guest

• 3 Avril 2006

• #10

Reb non résolu

merci à tous les 2 de vous donner tant de mal mais en ce qui concerne ta dernière macro (Pascal) apparement elle ne fonctionne pas. Si éventuellement tu peux me l'envoyer en fichier exemple ?

Merci encore
Odile

 

Vote positif 0 Vote négatif

O

odile

Guest

• 3 Avril 2006

• #11

Reb non résolu

Non effectivement, il ne faut pas tenir compte de la casse

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 3 Avril 2006

• #12

Reb non résolu

hello Odile

Salut Pascal

@ Odile

teste cela

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = 'A1' Then

If LCase(Target) Like '* mot *' Then
MsgBox 'Le mot 'mot' est au milieu dans cette dans cette cellule '
End If
If Target Like 'mot *' Then
MsgBox 'Le mot 'mot' est au debut dans cette cellule '
End If
If Target Like '* mot' Then
MsgBox 'Le mot 'mot' est a la fin dans cette cellule '
End If
If Target Like 'mot' Then
MsgBox 'Le mot 'mot' est seul dans cette cellule '
End If

End If
End Sub

 

Vote positif 0 Vote négatif

O

Odile

Guest

• 3 Avril 2006

• #13

Reb non résolu

Merci PierreJean et Pascal

Les deux macros fonctionnent. Le seul point ainsi que je l'ai spécifié à Pascal dans mon précédent post, c'est que je ne veux pas tenir compte de la casse car l'utilisateur peut rentrer aussi bien des majuscules que minuscules.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 3 Avril 2006

• #14

Reb non résolu

re

dans ma precipitation je n'ais prevu l'abscence de casse que dans le 1er cas
voila pour tous

tiens nous au courant

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = 'A1' Then

If LCase(Target) Like '* mot *' Then
MsgBox 'Le mot 'mot' est au milieu dans cette cellule '
End If
If LCase(Target) Like 'mot *' Then
MsgBox 'Le mot 'mot' est au debut dans cette cellule '
End If
If LCase(Target) Like '* mot' Then
MsgBox 'Le mot 'mot' est a la fin dans cette cellule '
End If
If LCase(Target) Like 'mot' Then
MsgBox 'Le mot 'mot' est seul dans cette cellule '
End If

End If
End Sub

Message édité par: pierrejean, à: 03/04/2006 17:44

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 3 Avril 2006

• #15

Reb non résolu

RE

La macro de Pierre-Jean (qui était beaucoup plus simple que la mienne) modifiée

Private Sub Worksheet_Change(ByVal Target As Range)
Dim MonMot As String, MotCel As String

MonMot = 'EXCEL'

If Target.Address(0, 0) = 'A1' Then
MotCel = UCase(Target)
If MotCel Like '* ' & MonMot & ' *' Then
MsgBox 'Le mot ' & MonMot & ' est au milieu dans cette dans cette cellule '
ElseIf MotCel Like MonMot & ' *' Then
MsgBox 'Le mot ' & MonMot & ' est au debut dans cette cellule '
ElseIf MotCel Like '* ' & MonMot Then
MsgBox 'Le mot ' & MonMot & ' est a la fin dans cette cellule '
ElseIf MotCel Like MonMot Then
MsgBox 'Le mot ' & MonMot & ' est seul dans cette cellule '
End If

End If
End Sub


Bon courage

 

Vote positif 0 Vote négatif