Rechercher/remplacer selon critères

[Escargot04]

Bonjour,

Je suis à la recherche d'un outil me permettant de faire un "rechercher/remplacer" afin de raccourcir des longueurs de texte.
En gros, si j'ai "Étui blanc de 125cm en laiton" je souhaite avoir "ETUI BL 125cm LT"
Le tout en ayant si possible une table de conversion.

J'ai cherché mais n'ai rien trouvé dans ce genre... mais je suis tous nouveau ici et ne connais pas encore très bien les différents termes que vous utilisez pour définir les fonctions utilisées.

D'avance merci 😀

 

[Cousinhub]

Re : Rechercher/remplacer selon critères

Bonjour,

regarde le fichier joint

Dans l'onglet "equiv", tu mets en colonne A les mots entiers, et en colonne B les mots "raccourcis"..

si pas ça, en mettant un fichier exemple, tu pourrais avoir des réponses mieux adaptées..

le code :

Sub rempl()
Dim Cel As Range
With Sheets("equiv")
    .Range("A2:A" & .[A65000].End(xlUp).Row).Name = "zone"
End With
For Each Cel In Range("zone")
    Cells.Replace What:=Cel.Value, Replacement:=Cel.Offset(0, 1).Value, LookAt:=xlPart
Next Cel
End Sub

le fichier

 

[Escargot04]

Re : Rechercher/remplacer selon critères

Bonsoir,

Je ne comprend pas, le fichier mis en pièce jointe contient un seul onglet avec une copie de la page d'accueil du forum et non un onglet nommé "equiv" 🙁

 

[Cousinhub]

Re : Rechercher/remplacer selon critères

Re-,

il faut double-cliquer sur le lien qui se nomme :

escargot04_v1.xls

et non sur :

Supportez une équipe, qui se trouve dans ma signature....

Bonne soirée

 

[Escargot04]

Re : Rechercher/remplacer selon critères

C'est bien se que que je fais 🙁
Voici le fichier que j'obtiens :
119977d1244045329-rechercher-remplacer-selon-crit-res-escargot04_v1.xls

Et une copie d'écran partielle de ce fichier :

 

[Cousinhub]

Re : Rechercher/remplacer selon critères

Re-,

euh, tu es bien connecté, au moment où tu veux télécharger, ou visualiser le fichier?

 

[Escargot04]

Re : Rechercher/remplacer selon critères

C'est bon, fichier récupéré, mais je ne comprend pas ce qui clochait...

Fichier ouvert, mais il est en mode création, le gros bouton jaune "GO" n'est pas actif => comment l'activer ?
Désolé, je passe pour un gros nul, mais c'est effectivement le cas dans ce domaine 😱

 

[Cousinhub]

Re : Rechercher/remplacer selon critères

Re-,

quelle version d'excel, tu utilises?

 

[JCGL]

Re : Rechercher/remplacer selon critères

Bonjour à tous,
Salut BH² 🙂,

Pareil pour moi... Euh juste pour le "bouton"
Fais Alt F8 et Exécute la seule macro présente

Que du bonheur... Normal du BH²

A++ 🙂
A+ à tous

 

[Cousinhub]

Re : Rechercher/remplacer selon critères

RE-,

sous 2003, tu fais Outils/Macro/Sécurité

et tu détermines le niveau à moyen

tu quittes excel, et tu redémarres....

sous 2007, tu cliques sur le bouton office, en haut à gauche, puis sur "Options Excel", en bas, à droite

Tu valides "Afficher l'onglet Développeur dans le ruban"

"OK"

Puis dans l'onglet Développeur, tu cliques sur "Sécurités des macros", à gauche, et tu sélectionnes "Désactiver toutes les macros avec notification"

Tu quittes Excel, et tu redémarres

Lorsque tu vas ouvrir le fichier :
- sous 2003, tu auras un msgbox, tu cliques sur "Activer les macros"
- sous 2007, tu auras un avertissement de sécurité, au dessus de la barre des formules. Tu cliques sur "Option", et tu sélectionnes "Activer ce contenu"

Ps, le fichier modifié, avec le bouton rattaché à la macro... 😱

 

[Escargot04]

Re : Rechercher/remplacer selon critères

Première impression => 😱 😀

Est-il possible d'installer cette fonction dans un bouton de menu d'Excel afin d'avoir cette fonction directement pour tout type de fichier ?
D'autre part, comment limiter l'action sur une colonne en particulier ?

Dans tous les cas, un grand merci pour le temps précieux que vous m'accordez 😱

 

[Cousinhub]

Re : Rechercher/remplacer selon critères

Bonjour,

dans le fichier joint :

- une barre de menu personnalisée se créé à l'ouverture du fichier. Elle disparaît à la fermeture du fichier.

- Il n'y a plus qu'une feuille, la feuille "equiv"

- tu ouvres le fichier où tu veux remplacer tes termes par leur diminutif. Au déclenchement de la macro, tu auras le choix de la colonne où effectuer les remplacements. Tu valides, et c'est fait...

- Tu comprendras donc qu'il faut que le fichier "remplacement" soit ouvert pour pouvoir utiliser le code.

le fichier :

 

[Guest]

Re : Rechercher/remplacer selon critères

Bonjour le fil,

Une incursion d'1 seconde pour saluer Bh²🙂 que je ne peux laisser passer sans rien dire.

A+++

 

[Cousinhub]

Re : Rechercher/remplacer selon critères

N'apporte rien au fil, comme dirait JC..... 😀

Hi, Hasco.....🙂🙂

De retour?

Cela fait vraiment plaisir de te croiser de nouveau ici..

Superbe temps sur la Bretagne.

A bientôt...

 

[Escargot04]

Re : Rechercher/remplacer selon critères

C'est vraiment génial 😉