Rechercher/remplacer selon critères

Cousinhub

XLDnaute Barbatruc

• 3 Juin 2009

• #2

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 :

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

 

Pièces jointes

• escargot04_v1.xls

  24 KB · Affichages: 79

Vote positif 0 Vote négatif

Escargot04

XLDnaute Junior

• 3 Juin 2009

• #3

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" 🙁

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 3 Juin 2009

• #4

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

 

Vote positif 0 Vote négatif

Escargot04

XLDnaute Junior

• 3 Juin 2009

• #5

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 :

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 3 Juin 2009

• #6

Re : Rechercher/remplacer selon critères

Re-,

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

 

Vote positif 0 Vote négatif

Escargot04

XLDnaute Junior

• 3 Juin 2009

• #7

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 😱

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 3 Juin 2009

• #8

Re : Rechercher/remplacer selon critères

Re-,

quelle version d'excel, tu utilises?

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 3 Juin 2009

• #9

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

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 3 Juin 2009

• #10

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... 😱

 

Pièces jointes

• escargot04_v2.xls

  24 KB · Affichages: 68

Vote positif 0 Vote négatif

Escargot04

XLDnaute Junior

• 4 Juin 2009

• #11

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 😱

 

Dernière édition: 4 Juin 2009

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 4 Juin 2009

• #12

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 :

 

Pièces jointes

• remplacement.xls

  49 KB · Affichages: 58
• remplacement.xls

  49 KB · Affichages: 60
• remplacement.xls

  49 KB · Affichages: 56

Vote positif 0 Vote négatif

G

Guest

Guest

• 4 Juin 2009

• #13

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+++

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 4 Juin 2009

• #14

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...

 

Vote positif 0 Vote négatif

Escargot04

XLDnaute Junior

• 4 Juin 2009

• #15

Re : Rechercher/remplacer selon critères

C'est vraiment génial 😉

 

Vote positif 0 Vote négatif