macro qui recherche plusieurs mots dans une cellule!

G

GIBI

XLDnaute Impliqué

• 27 Mai 2008

• #2

Re : macro qui recherche plusieurs mots dans une cellule!

Bonsoir,

Un exemple de fonction :

Si en A3 j'ai "paul et pierre et jack" dans une cellule je peux repérer l'existence de Paul et pierre comme suit
=SI(OU(ESTERREUR(CHERCHE("pierre";A3));ESTERREUR(CHERCHE("paul";A3)));"ko";"ok")


Est-ce la question?

gibi

 

Vote positif 0 Vote négatif

L

lenny561

Guest

• 28 Mai 2008

• #3

Re : macro qui recherche plusieurs mots dans une cellule!

merci mais il me le faut en macro .

 

Vote positif 0 Vote négatif

cbea

XLDnaute Impliqué

• 28 Mai 2008

• #4

Re : macro qui recherche plusieurs mots dans une cellule!

Bonsoir lenny561, Gibi,

Pourrais-tu joindre un exemple dans un fichier ?

Merci

 

Vote positif 0 Vote négatif

L

lenny561

Guest

• 29 Mai 2008

• #5

Re : macro qui recherche plusieurs mots dans une cellule!

je pense que ce n'est nécessaire; voici un exemple avec une donné:

Sub Macro1()
'
' Macro1 Macro

'
If Worksheets("feuil1").Range("c6").Value = ("pierre") Then
Worksheets("feuil1").Range("a6").Value = ("1")

End If

End Sub

et voici ce que je veut faire, mais comme cela, ça ne fonctionne pas :

Sub Macro1()
'
' Macro1 Macro

'
If Worksheets("feuil1").Range("c6").Value = ("pierre" & "paul")) Then
Worksheets("feuil1").Range("a6").Value = ("1")

End If

End Sub


En version formule cela donnerai:

=SI(ET(ESTNUM(CHERCHE("pierre";C6));(ESTNUM(CHERCHE("paul";C6))));"1";"")

 

Vote positif 0 Vote négatif

cbea

XLDnaute Impliqué

• 29 Mai 2008

• #6

Re : macro qui recherche plusieurs mots dans une cellule!

Bonsoir lenny561,

Voici une solution.

Code:

Sub Macro1()
    Worksheets("Feuil1").Range("A6").Value = ""
    
    If Worksheets("Feuil1").Range("C6").Value Like "*pierre*" And _
        Worksheets("Feuil1").Range("C6").Value Like "*paul*" Then
        
        Worksheets("Feuil1").Range("A6").Value = "1"
    End If
End Sub

 

Vote positif 0 Vote négatif

L

lenny561

Guest

• 29 Mai 2008

• #7

Re : macro qui recherche plusieurs mots dans une cellule!

bonsoir cbea

merci, c'est exactement ça!

 

Vote positif 0 Vote négatif

L

lenny561

Guest

• 29 Mai 2008

• #8

Re : macro qui recherche plusieurs mots dans une cellule!

cbea

Comment puis-je faire pour que cette macro fonctionne pour chaque cellule se positionnent entre "C1" et "C100"?

C'est à dire, a chaque fois que "pierre" et "paul" sont inscrit dans une cellule entre "C1" et "C100", inscrire "1" dans la cellule correspondant a la même ligne de la colonne "A".

 

Dernière modification par un modérateur: 29 Mai 2008

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 30 Mai 2008

• #9

Re : macro qui recherche plusieurs mots dans une cellule!

Essaye un truc comme ça :

Code:

Sub Macro1()
Dim I As Integer
With Worksheets("Feuil1")
For I = 1 To 100
    If .Cells(I, 3).Value Like "*pierre*" And .Cells(I, 3).Value Like "*paul*" Then
        .Cells(I, 1).Value = "1"
    Else
        .Cells(I, 1).Value = ""
    End If
Next I
End With
End Sub

 

Dernière édition: 30 Mai 2008

Vote positif 0 Vote négatif

cbea

XLDnaute Impliqué

• 30 Mai 2008

• #10

Re : macro qui recherche plusieurs mots dans une cellule!

re,

Code:

Sub Macro1()
    Dim Lig As Long
    
    For Lig = 1 To 100
        Worksheets("Feuil1").Range("A" & Lig).Value = ""
        
        If Worksheets("Feuil1").Range("C" & Lig).Value Like "*pierre*" And _
            Worksheets("Feuil1").Range("C" & Lig).Value Like "*paul*" Then
            
            Worksheets("Feuil1").Range("A" & Lig).Value = "1"
        End If
    Next Lig
End Sub

 

Vote positif 0 Vote négatif