Rapprochement mot-clé d'une cellule et mot-clé d'une liste ?
2 réponses
Francalex
Bonsoir,
Voilà mon problème :
Je rentre dans une cellule le nom du répertoire WINDOWS (séparateur : "\")
d'un fichier.
Je veux analyser chaque mot composant le répertoire afin de le rapprocher à
une liste de mot-clés
Si le mot est trouvé dans la liste alors je dois retourner la valeur
associée à ce mot clé.
Exemple ::
Cellule Excel :
\Produit\Achat\EnCours
Liste Mot clé (et valeur associée dans une autre cellule) :
Vente V01
Achat V02
Stock V03
En face de ma cellule Excel entrée, je dois avoir : V02
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonsoir,
Function chercheMC(chaine) temp = "" a = Split(chaine, "") For i = 1 To UBound(a) p = Application.Match(a(i), [motcle], 0) If Not IsError(p) Then temp = temp & " " & Range("valeur")(p) End If Next i chercheMC = temp End Function
http://cjoint.com/?cpvIgWrBHa
JB
On 15 fév, 20:55, "Francalex" wrote:
Bonsoir,
Voilà mon problème :
Je rentre dans une cellule le nom du répertoire WINDOWS (séparateur : "") d'un fichier. Je veux analyser chaque mot composant le répertoire afin de le rapproch er à une liste de mot-clés Si le mot est trouvé dans la liste alors je dois retourner la valeur associée à ce mot clé.
Exemple ::
Cellule Excel :
ProduitAchatEnCours
Liste Mot clé (et valeur associée dans une autre cellule) : Vente V01 Achat V02 Stock V03
En face de ma cellule Excel entrée, je dois avoir : V02
Merci,
Alex.
Bonsoir,
Function chercheMC(chaine)
temp = ""
a = Split(chaine, "")
For i = 1 To UBound(a)
p = Application.Match(a(i), [motcle], 0)
If Not IsError(p) Then
temp = temp & " " & Range("valeur")(p)
End If
Next i
chercheMC = temp
End Function
http://cjoint.com/?cpvIgWrBHa
JB
On 15 fév, 20:55, "Francalex" <TIT...@HOME.fr> wrote:
Bonsoir,
Voilà mon problème :
Je rentre dans une cellule le nom du répertoire WINDOWS (séparateur : "")
d'un fichier.
Je veux analyser chaque mot composant le répertoire afin de le rapproch er à
une liste de mot-clés
Si le mot est trouvé dans la liste alors je dois retourner la valeur
associée à ce mot clé.
Exemple ::
Cellule Excel :
ProduitAchatEnCours
Liste Mot clé (et valeur associée dans une autre cellule) :
Vente V01
Achat V02
Stock V03
En face de ma cellule Excel entrée, je dois avoir : V02
Function chercheMC(chaine) temp = "" a = Split(chaine, "") For i = 1 To UBound(a) p = Application.Match(a(i), [motcle], 0) If Not IsError(p) Then temp = temp & " " & Range("valeur")(p) End If Next i chercheMC = temp End Function
http://cjoint.com/?cpvIgWrBHa
JB
On 15 fév, 20:55, "Francalex" wrote:
Bonsoir,
Voilà mon problème :
Je rentre dans une cellule le nom du répertoire WINDOWS (séparateur : "") d'un fichier. Je veux analyser chaque mot composant le répertoire afin de le rapproch er à une liste de mot-clés Si le mot est trouvé dans la liste alors je dois retourner la valeur associée à ce mot clé.
Exemple ::
Cellule Excel :
ProduitAchatEnCours
Liste Mot clé (et valeur associée dans une autre cellule) : Vente V01 Achat V02 Stock V03
En face de ma cellule Excel entrée, je dois avoir : V02
Merci,
Alex.
Francalex
OK, ca répond à mon problème, merci !
"JB" a écrit dans le message de news:
Bonsoir,
Function chercheMC(chaine) temp = "" a = Split(chaine, "") For i = 1 To UBound(a) p = Application.Match(a(i), [motcle], 0) If Not IsError(p) Then temp = temp & " " & Range("valeur")(p) End If Next i chercheMC = temp End Function
http://cjoint.com/?cpvIgWrBHa
JB
On 15 fév, 20:55, "Francalex" wrote:
Bonsoir,
Voilà mon problème :
Je rentre dans une cellule le nom du répertoire WINDOWS (séparateur : "") d'un fichier. Je veux analyser chaque mot composant le répertoire afin de le rapprocher à une liste de mot-clés Si le mot est trouvé dans la liste alors je dois retourner la valeur associée à ce mot clé.
Exemple ::
Cellule Excel :
ProduitAchatEnCours
Liste Mot clé (et valeur associée dans une autre cellule) : Vente V01 Achat V02 Stock V03
En face de ma cellule Excel entrée, je dois avoir : V02
Merci,
Alex.
OK, ca répond à mon problème, merci !
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1171571667.140945.246640@l53g2000cwa.googlegroups.com...
Bonsoir,
Function chercheMC(chaine)
temp = ""
a = Split(chaine, "")
For i = 1 To UBound(a)
p = Application.Match(a(i), [motcle], 0)
If Not IsError(p) Then
temp = temp & " " & Range("valeur")(p)
End If
Next i
chercheMC = temp
End Function
http://cjoint.com/?cpvIgWrBHa
JB
On 15 fév, 20:55, "Francalex" <TIT...@HOME.fr> wrote:
Bonsoir,
Voilà mon problème :
Je rentre dans une cellule le nom du répertoire WINDOWS (séparateur : "")
d'un fichier.
Je veux analyser chaque mot composant le répertoire afin de le rapprocher
à
une liste de mot-clés
Si le mot est trouvé dans la liste alors je dois retourner la valeur
associée à ce mot clé.
Exemple ::
Cellule Excel :
ProduitAchatEnCours
Liste Mot clé (et valeur associée dans une autre cellule) :
Vente V01
Achat V02
Stock V03
En face de ma cellule Excel entrée, je dois avoir : V02
Function chercheMC(chaine) temp = "" a = Split(chaine, "") For i = 1 To UBound(a) p = Application.Match(a(i), [motcle], 0) If Not IsError(p) Then temp = temp & " " & Range("valeur")(p) End If Next i chercheMC = temp End Function
http://cjoint.com/?cpvIgWrBHa
JB
On 15 fév, 20:55, "Francalex" wrote:
Bonsoir,
Voilà mon problème :
Je rentre dans une cellule le nom du répertoire WINDOWS (séparateur : "") d'un fichier. Je veux analyser chaque mot composant le répertoire afin de le rapprocher à une liste de mot-clés Si le mot est trouvé dans la liste alors je dois retourner la valeur associée à ce mot clé.
Exemple ::
Cellule Excel :
ProduitAchatEnCours
Liste Mot clé (et valeur associée dans une autre cellule) : Vente V01 Achat V02 Stock V03
En face de ma cellule Excel entrée, je dois avoir : V02
