Recherche de valeur dans un chaine de caractère

Jam

XLDnaute Accro

• 18 Mai 2011

• #2

Re : Recherche de valeur dans un chaine de caractère

Salut les_sonics,

Utilise une petite formule comme celle-ci (ou A2 contient l'adresse mèl):
=SI(OU(NON(ESTERREUR(CHERCHE("mail";A2)));NON(ESTERREUR(CHERCHE("newsletter";A2))));"Newsletter";"N/A")

Bon courage,

 

Vote positif 0 Vote négatif

L

les_sonics

Guest

• 18 Mai 2011

• #3

Re : Recherche de valeur dans un chaine de caractère

Merci bcp Jam,
la fonction marche au poil mais problème avec cette solution : elle n'est pas variabilisée donc :
1. assez lourde quand les critères de recherche sont plus nombreux (ex sur le doc "baby-bebe-enfant-bnp-bugab-mesdou-mesenv" sont à grouper sous la valeur "Sites externes".
2. très difficilement applicable quand tes correspondances sont dans une table comme sur le doc (A1:B9)...

Les_sonics

 

Vote positif 0 Vote négatif

Jam

XLDnaute Accro

• 18 Mai 2011

• #4

Re : Recherche de valeur dans un chaine de caractère

les_sonics,

Je crains fort que tu ne sois obligé d'en passer par une fonction en VBA. Car tu as plusieurs "opérations":
- parcourir une liste et chercher l'éventuelle correspondance dans une chaîne de caractère ce qui ressemble fort à une boucle.

Bon courage,

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 18 Mai 2011

• #5

Re : Recherche de valeur dans un chaine de caractère

Bonjour le fil 🙂,
Une petite fonction VBA 😛

Code:

Function Référencement(PlageRéf As Range, Décalage As Integer, Texte As String) As String
Dim Cellule As Range, Temp, I As Integer
Application.Volatile
If Texte = "" Then Exit Function
For Each Cellule In PlageRéf
Temp = Split(Cellule, "-")
For I = LBound(Temp) To UBound(Temp)
If InStr(1, Texte, Temp(I), vbTextCompare) > 0 Then
Référencement = Référencement & "-" & Cellule.Offset(0, Décalage)
End If
Next I
Next Cellule
If Référencement <> "" Then
Référencement = Right(Référencement, Len(Référencement) - 1)
Else
Référencement = "Divers"
End If
End Function

et il suffit en F5

Code:

=Référencement($A$2:$A$9;1;D5)

à glisser vers le bas (et de penser à remettre le calcul automatique 😡).
Les résultats ne sont pas exactement identiques aux tiens, mais ils me paraissent plus logiques 🙄...
Bonne fin de journée 😎

 

Vote positif 0 Vote négatif

L

les_sonics

Guest

• 19 Mai 2011

• #6

Re : Recherche de valeur dans un chaine de caractère

Merci infiniment JNP. Ta macro marche au poil et elle me tire une belle épine du pied.
Si tu aimes le pinard, laisse moi ton adresse que je t'en envoie une en remerciement.

Excellent WE
Nicolas

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 19 Mai 2011

• #7

Re : Recherche de valeur dans un chaine de caractère

Re 🙂,

les_sonics à dit:

Si tu aimes le pinard, laisse moi ton adresse que je t'en envoie une en remerciement.

Cliquez pour agrandir...

C'est très gentil de ta part, mais le bénévolat remercié par des cadeaux n'est plus tout à fait du bénévolat 🙄...
Bonne suite 😎

 

Vote positif 0 Vote négatif