XL 2010 Cherche un texte dans une cellule avec vba

[Chrystel01]

Bonjour,

Je débute sur VBA et j'aurais une question svp...
j'ai une colonne A avec en ensemble de noms xxxpommexxx, yyypoire***,xxxcarotte***
Je souhaite que lorsque la macro trouve un champ qui contient pomme ou poire, elle écrive fruit sur la ligne correspondante en colonne B ou légume si elle trouve carotte

Sachant que j'ai créé une base de correspondance sur une autre feuille
pomme = fruit
poire = fruit
carotte = légume

Si vous aviez une solution, cela m'aiderait beaucoup.
Je vous remercie !

Chrystel

 

[sylvanu]

Bonjour Chystel,
En PJ un essai.
A adapter en fonction de vos besoins.

 

[Chrystel01]

Bonjour,

Je vous remercie énormément pour ce retour très très rapide, détaillé et tellement utile.
Cela répond entièrement à mon besoin.
Merci aussi d'avoir expliqué la macro. Elle est très courte mais jamais je n'aurais réussi à la faire...
Alors un grand merci pour votre aide.
Bonne semaine

Chrystel

 

[Chrystel01]

Bonjour,

Je vous souhaite tout d'abord une excellente année 2019.
Dans la macro jointe qui permet de trouver la correspondance d'un terme inclus dans une phrase

-Comment modifier le programme pour que la macro traite de la même façon :

1-les mots avec majuscule, minuscules, accents ou non ?
Exemple : que le texte inclut "légume;"Legume"; "LEgUMES" => la classification doit être aliment sur les 3 premières liges ci-dessous

2-les mots avec un espace
Exemple : "legumes1" et "legumes 1" doivent renvoyer la catégorie aliment.

Merci de votre aide 🙂

Chrystel

 

[sylvanu]

Bonjour Chrystel
En passant par une fonction :

Function Change(Mot)
    Mot = LCase(Mot)                ' Tout le mot en minuscules
    Mot = Replace(Mot, "é", "e")    ' Remplacement lettre accentuée
    Mot = Replace(Mot, "è", "e")
    Mot = Replace(Mot, "ê", "e")
    Mot = Replace(Mot, "à", "a")
    Mot = Replace(Mot, " ", "")     ' Suppression espaces
    If Right(Mot, 1) = "s" Then
        Mot = Mid(Mot, 1, Len(Mot) - 1) ' Supprime le s
    End If
End Function

Le test semble marcher :

Sub Test()
    Change ("LéguMes")
End Sub

Le problème peut se situer si un mot "normal" au singulier se terminé par un s ( genre stress ) mais je ne le pense pas.
Par contre Choux il faudrait supprimer le X mais Houx il faudrait le garder ! A voir à l'utilisation s'il faut le rajouter.

 

[Chrystel01]

Bonjour Chrystel
En passant par une fonction :

Function Change(Mot)
    Mot = LCase(Mot)                ' Tout le mot en minuscules
    Mot = Replace(Mot, "é", "e")    ' Remplacement lettre accentuée
    Mot = Replace(Mot, "è", "e")
    Mot = Replace(Mot, "ê", "e")
    Mot = Replace(Mot, "à", "a")
    Mot = Replace(Mot, " ", "")     ' Suppression espaces
    If Right(Mot, 1) = "s" Then
        Mot = Mid(Mot, 1, Len(Mot) - 1) ' Supprime le s
    End If
End Function

Le test semble marcher :

Sub Test()
    Change ("LéguMes")
End Sub

Le problème peut se situer si un mot "normal" au singulier se terminé par un s ( genre stress ) mais je ne le pense pas.
Par contre Choux il faudrait supprimer le X mais Houx il faudrait le garder ! A voir à l'utilisation s'il faut le rajouter.

 

[sylvanu]

Il reste cependant certains points en suspens après analyse. Comme Légumes 1, le s n'est pas supprimé, ou encore les â, ç, î . Il faut voir à l'usage.
Il suffit de rajouter les substitutions qui vont bien.

 

[Chrystel01]

Bonjour Sylvanu,

Merci beaucoup pour ce retour express et toujours efficace.
Je pensais mettre le texte en majuscule pour résoudre le problème des accents => on n'aurait alors qu'à remplacer le texte par un texte en majuscules. Il existe une fonction pour cela ?
D'autre part, je n'arrive pas à voir comment compiler la 1ère macro et la fonction… J'ai essayé de les mettre dans 2 macros différentes, dans 1 seule mais je n'ai jamais fait cela et il semble que je ne fasse pas cela correctement
Pourriez-vous svp m'aider ? Je vous joints le fichier excel sur lequel j'ai 2 macros.
Un grand merci !

 

[sylvanu]

Ucase Majuscules
Lcase Minuscules
Je regarde vos macros.

 

[sylvanu]

La mise en majuscules ne sert pas à grand chose car on obtient : "LÉGUMES 1" avé l'accent !🙂

 

[sylvanu]

En PJ un essai.
En fait une fonction s'appelle comme une fonction VBA.
On l'appelle Function Toto(paramètres)
Dans le VBA on fait X=Toto(valeurs_paramètres)
C'est très utile pour rendre le code lisible et plus léger si la même fonction est appelée plusieurs fois.

 

[sylvanu]

Il existe un excellent tuto 🙂 🙂 concernant les fonctions personnelles.

Fonctions personnelles : Utilité, Simplicité et Méthode

Pour ceux qui ne connaissent pas les fonctions personnelles et pour ceux qui appréhendent le VBA, voici un petit tuto pour montrer à quel point des fonctions personnelles peuvent être utiles et surtout à quel point c'est simple, même si on n'a...

www.excel-downloads.com

 

[Chrystel01]

C'est l' insertion dans la macro de base que je ne trouvais pas : If Change_mot([Phrase]
Merci beaucoup pour la macro avec la fonction et l'excellent tuto !!!! C'est extra !!!!
Un grand merci pour les explications détaillées, votre disponibilité et vos réponses express !!! 🙂🙂
Bonne soirée