Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Remplacements multiples d'après le contenu des 1ères colonnes

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Ctrl-Alt-Suppr

XLDnaute Junior
Bonjour à tous.

Je ne maîtrise pas du tout Excel, et n'arrive pas à m'en sortir avec les éléments trouvés sur le forum / sur la toile.
Voilà pourquoi, cher Père Noxcel-Donwload, j'aimerai que tu m'apportes un beau tableau qui fonctionne.
(j'ai été sage cette année)


Colonne 1 :
une liste de codes (du genre 100 101 102 103 ...)
avec possibilité d'en (r)ajouter si besoin
actuellement, j'en ai une cinquantaine

Colonne 2 :
la liste des codes modifiés / rectifiés (exemple 100_OK 101_OK .. etc.)

Colonne 3 :
un bouton pour lancer la macro

Colonne 4 :
j'y collerai (en provenance d'un fichier .txt) tout une liste de codes bruts

Colonnes 5 :
là où j'aimerai que s'affiche les codes de la colonne 4, mais rectifiés d'après les indications des colonnes 1→2



Code:
Sub TXT()
Set anciencode = ActiveCell.CurrentRegion.Columns(1)
Set nouveaucode = ActiveCell.CurrentRegion.Columns(2)
For Each mot In anciencode
For Each phrase In nouveaucode
phrase.Replace what:=mot, replacement:=mot.Offset(0, 1)
Next
Next
End Sub
Ci-dessus, un bout de code de test, mais je m'y perds et cela ne fonctionne pas.
L'idéal, si possible, serait une macro avec l'équivalent de l'option " Totalité du contenu de la cellule "

Par avance, merci.
 

Pièces jointes

  • Excel_rendu_remplacer.jpg
    78.4 KB · Affichages: 60
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…