Discussion :

[steelk]

Bonjour,

J'ai par exemple dans trois cellules differentes:

cellule A1: "Le_chat_est_dehors"
cellule A2: "Le_chien_est_dedans"
cellule A3:"L_oiseau_est_dans_la_cage

Mes mots clés sont "chat" et "chien" donc en sortie je voudrais avoir:

cellule B1: chat
cellule B2: chien
cellule B3: vide

Merci.

Steelk

[CinePhil]

Code :

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

=SI(CHERCHE("chat";A1)>0;"Chat";"Non trouvé")

Si l'argument texte_cherché est introuvable, la fonction renvoie la valeur d'erreur #VALEUR!.

Tu devrais pouvoir te débrouiller avec ça.

En fait la valeur "Non trouvé" si la condition n'est pas satisfaite ne fonctionne pas ; c'est la valeur d'erreur #VALEUR! qui est renvoyée.

[House MD]

Tu cherches une formule Excel (solution de CinéPhil) ou un code VBA ?

[ucfoutu]

Bonjour,

Nous sommes ici sous VBA ===>> réponse VBA, donc :

Voir cet exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Command1_Click()
  Dim toto As String, mot1 As String, mot2 As String
  mot1 = "chat"
  mot2 = "chien"
  toto = "Le_chat_est_dehors"
  MsgBox toto & "  ===> " & transpo(toto, mot1, mot2)
  toto = "Le_chien_est_dedans"
  MsgBox toto & "  ===>" & transpo(toto, mot1, mot2)
  toto = "L_oiseau_est_dans_la_cage"
  MsgBox toto & "  ===> " & transpo(toto, mot1, mot2)
End Sub
 
Private Function transpo(texte As String, mt1 As String, mt2 As String) As String
  transpo = ""
  If LCase(texte) Like "*" & LCase(mt1) & "*" Then transpo = mt1: Exit Function
  If LCase(texte) Like "*" & LCase(mt2) & "*" Then transpo = mt2End Function

Edit : j'ai modifié pour qu'il accepte un mot quelle que soit la casse

[steelk]

Effectivement, c'est bien du VBA que je désire....

J'ai testé le code et j'ai une erreur de compilation...

Je m'excuse, je me suis mal exprimé sur ma demande, je reformule:

J'ai dans plusieurs cellules differentes de la feuille 1 des libellés:

Feuille 1:
cellule A1:libellés

cellule A2: Le_chat_est_dehors
cellule A3: Le_chien_est_dedans
cellule A4: L_oiseau_est_dans_la_cage

Feuille 2 contient les mots clés:

mots_clés

chat
chien
cheval
serpent

La position des mots clés n'est pas figé dans la feuille 2

Résultats:

Feuille 1:
cellule B1:catégories
cellule B2: chat
cellule B3: chien
cellule B4:

Voir fichier joint
Merci et encore désolé

[ucfoutu]

Désolé, mais j'estime avoir déjà répondu .... sur comment déceler si une variable string contient ou non une chaîne de caractères et (si elle la contient) la transformer. Telle était la question posée.
L'exemple était clair...
le reste (la façon d'aller à la pêche des cellules et des mots) est une autre affaire (la tienne), d'un autre genre .... ...

[Invité]

Bonjour,

à noter que steelk n'est pas réapparue depuis 2008! il est sens doute parti à la retraite et c'est sont remplacent qui à voulu trouver la solution! j'espère qu'il n’était pas question de calculer les points de retraite pour une caisse complémentaire!

il faut vraiment simplifier les procédures administratives, alors en marche!