Recherche et remplacement de données avec VBA

Bonjour à tous

Je suis tout nouveau sur ce forum et j'avoue ne pas être très doué pour la programmation VBA...

Voilà mon problème:

J'ai un fichier excel avec un nombre de colonnes important, et des données commençant sur la ligne 9. Tout ce qui est au dessus ne doit pas être concerné par ma requête.

Dans ce fichier, deux colonnes, (J et K) comportent des libellés que je dois simplifier automatiquement. Par exemple, "tondeuse" par "TOND.", "laiton" par LAIT. etc etc. (plus de 500)

Dans ce fichier, j'ai un autre onglet avec en colonne A et B, à partir de la ligne 1. Ce sont en A les noms complets, et en B les noms abrégés.

Je cherche donc une macro me permettant de rechercher et remplacer dans les colonnes J9 à K1048573 les éléments des colonnes A et B de l'autre onglet.

J'espère avoir été clair...

Merci d'avance

Denis

J'ai 2 petites questions avant de te fournir un réponse :
- Pour chacune de tes colonnes peux-tu préciser jusqu'à quelle ligne des données sont remplies? (Si c'est avant la ligne 1048573 ou pas)
- Y a-t-il des blancs dans tes colonnes?

Merci beaucoup jeanmidudu !!!

J'ai posté le même message sur un autre forum et mon problème a été résolu. Mais merci beaucoup de m'avoir répondu !

ça serait bien de poster ta solution ici aussi pour que les autres puisse en profiter...

Cordialement,
Freudsw

Bien sûr !

Je ne sais pas comment télécharger un fichier sur ce forum... Donc je vais essayer d'expliquer le pourquoi du comment...

J'ai comme référence en colonne A à partir de la ligne 9 des libellés à changer, et en colonne B à partir de la ligne 9 les abréviations de ceux ci.

exemple:

colonne A/ colonne B
laiton/LAIT.
tondeuse/TOND.
etc.


Je reçois des fichiers avec des libellés à modifier en colonne J et K, à partir de la ligne 9, et dont le nombre de lignes varient d'un fichier à l'autre, selon les règles indiqués en colonne A et B. Il peut y avoir des cellules vides.)

La solution qu'on m'a donné est celle ci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub Macro2()   Dim J As Long   For J = 1 To Range("A" & Rows.Count).End(xlUp).Row Range("J9:K65536").Replace What:=Range("A" & J), Replacement:=Range("B" & J), LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Next J   Dim K As Long   For K = 1 To Range("A" & Rows.Count).End(xlUp).Row Range("K9:K65536").Replace What:=Range("A" & K), Replacement:=Range("B" & K), LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Next J   End Sub

---

Ca marche très bien