Discussion :

[sarahh67]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 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

[Filippo]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[sarahh67]

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

[sarahh67]

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.

[Filippo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[sarahh67]

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 :

exemple.xlsx