Vlookup dans une phrase avec * en vba

Bonjour,

J'ai trouvé la manière ci-dessous pour chercher un mot dans une phrase :

Code:

---

=VLOOKUP("*"&G3&"*";mots_clés!$A$1:$C$171;2;0)

---

Je suis en train de faire une macro vba pour automatiser, mon code ci-après ne fonctionne pas :

Code:

---

categorie = "=VLOOKUP(*G" & vlrn & "*;Classification_formation.xlsm]mots_clés!$A$1:$C$171;2;false)"

---

Est-ce que vous savez comment rédiger avec l'étoile (*) en vba ?

Merci d'avance pour votre aide

Hello,
je me suis fait un petit exemple qui fonctionne avec cette syntaxe :

Code:

---

1 2 3 4 5 6

Public Sub ChercheVal() Dim stCategorie As String   stCategorie = "=VLOOKUP(""*""&D1&""*"",A:A,1,0)" sht_Valeurs.Range("D1").Formula = stCategorie End Sub

---

;)

Citation:

---

Envoyé par sarahh67

Est-ce que vous savez comment rédiger avec l'étoile (*) en vba ?

---

Ton problème, ce n'est pas l'étoile, c'est les double côte ".
Pour les intégrer à une chaine de caractère, il faut les doubler.
Et tu as aussi oublié les & de ta formule.

Code:

---

categorie = "=VLOOKUP(""*""&G" & vlrn & "&""*"";Classification_formation.xlsm]mots_clés!$A$1:$C$171;2;false)"

---

Merci beaucoup pour votre aide et votre rapidité de réponse.

Bonjour,

Ma logique était mauvaise j'ai des groupes de mots dans la colonne G par exemple "PowerPoint 2010 Introduction" et dans le tableau "mots_clés!$A$1:$C$171" dans la colonne A "Power point" , j'aimerai que dans la colonne H il me ramène la correspondance de Power Point du tableau "mots_clés!$A$1:$C$171" qui se trouve en colonne 2. Puis-je passer aussi par un Vlookup ? Je devrai mettre les étoiles au niveau du tableau d'information dans lequel les données sont recherchées, je sais pas si c'est fesable.

Merci d'avance pour votre aide.

Hello,
si tu veux chercher une chaîne dans une autre chaîne, tu peux utiliser la fonction CHERCHE (SEARCH en vba).

Par exemple :

Code:

---

Range("H2").Cells.Formula = "=IF(ISERROR(SEARCH(""PowerPoint"",""PowerPoint 2010 Introduction"",1)),""PAS TROUVE"", ""TROUVE"")"

---

Qui renvoie "TROUVE" car "PowerPoint" est trouvé dans "PowerPoint 2010 Introduction".

Si tu veux faire la recherche dans une colonne entière, tu peux utiliser la fonction vba Find; par exemple avec cette syntaxe :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub test() Dim r As Range   ' A2 = "PowerPoint" With shtCherche.Range("G2:G5") ' G2:G5 contient PowerPoint 2010 Introduction dans une de ses cellules Set r = .Find(shtCherche.Range("A2").Value, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns) End With     If Not r Is Nothing Then MsgBox "Trouvé" If r Is Nothing Then MsgBox "Pas trouvé" End Sub

---

;)

Merci pour la réponse.

J'aimerai afficher la cellule de la colonne B correspondante de la feuille "Mots_clés" au lieu de "TROUVE" c'est pour ça que j'avais commencé avec un RechercheV, quand il trouve "PowerPoint" sur ma feuille "Data" dans la colonne A.

Vous trouverez ci-après un exemple de la construction de mon fichier, j'ai mis en jaune les cellules que j'aimerai compléter avec cette formule :

Pièce jointe 397781

Dans ce cas il faut procéder en 2 étapes.
D'abord tu recherches "Power Point" dans la colonne A (attention si l'orthographe est "Power Point" ou "PowerPoint" ça change le résultat).

Ensuite dans un second temps tu utilises en effet RECHERCHEV pour aller voir dans mots_clés :

Code:

---

=SI(SIERREUR(CHERCHE("Power Point";A2);"")<>"";RECHERCHEV("PowerPoint";mots_clés!A:B;2;0);"")

---

Tu copies la formule aux différentes lignes de la colonne B.

;)

Je me suis mal exprimée, "Power point" ne doit pas être figé.

J'aimerai faire comme mon idée de départ du recherchev sauf que les étoiles devraient être au niveau des mots de la table recherchev(G2;*Table*;2;false) je pense pas que ça se fait. Si dans le groupe de mots il y a un des mots clés, renvoyer la catégorie correpondante.
J'espère que je suis plus claire.

J'ai fait une petite fonction qui, à partir du nom du projet, va chercher dans liste des mot-clés si un mot-clé fait partie du nom du projet.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

'Regarde si stPhrase contient au moins un des mot-clés de rgMotCles Public Function RechercheV_M(stPhrase As String, rgMotCles As Range) As Long Dim i, lNbMotsCles As Long Dim lTemp As Long   Dim stMot As String   RechercheV_M = 0   lNbMotsCles = Range(rgMotCles, rgMotCles.End(xlDown)).Rows.Count 'Nombre de mot-clés   'Passage en revue de tous les mot-clés contenus dans rgMotCles For i = 1 To lNbMotsCles stMot = rgMotCles.Cells(i, 1).Value 'Mot-clé courant lTemp = InStr(1, stPhrase, stMot, vbTextCompare) 'Regarde si stPhrase contient stMot (0=non / >0=oui)   If lTemp > 0 Then Exit For Next i   'Renvoie numéro de ligne dans rgMotCles qui contient l'occurence recherchée If Len(stPhrase) > 0 And Len(stMot) > 0 And lTemp > 0 Then RechercheV_M = i End Function

---

J'utilise cette fonction en colonne B de Data.
Si le résultat vaut 0 ça veut dire que le nom du projet ne contient aucun des mot-clés de la liste.
Si le résultat est > 0 alors le numéro correspond au numéro de ligne qui contient le mot-clé.

A partir de ce numéro, on retrouve la catégorie puis la sous-catégorie.

;)

Merci beaucoup pour l'aide, ça marche très bien, j'ai compris la logique.

J'ai encore adapté mon tableau de mots clés, comme j'ai des logiciels comme "R" ou "BO", s'il me trouvait la lettre R, il complétait la catégorie correspondante à "R".