[vba E] fonction remplacer

Bonsoir à tous,
Je suis débutant en VBA et là je ne sais definir les boucles.
J'ai deux colonnes :
A avec des valeurs du type 6451,6452,64522,6471,6475,64888...
B avec des valeurs du type 645 , 647,6488 ...

J'utilise la fonction excel remplacer dans A : remplacer "645*" par "645"
Je souhaite automatiser le remplacement pour toutes les valeurs de B plus * dans A.

Merci d'avance

Cordialement

Comme je ne suis pas sûr de comprendre, peux-tu nous donner un exemple avant ramplacement puis après ;)

Le but est d'avoir dans la colonne A uniquement des valeurs contenu dans B

B 645, 647,6488
A avant 6451,6452,64522,6471,64888
A après 645, 645, 645, 647, 6488

Merci

Code:

---

1 2 3

If instr(range("A" & Noligne), Range("B" & NoLigne))<> 0 then _ range("A" & Noligne) = left(Range("B" & NoLigne), _ len(Range("B" & NoLigne)))

---

Merci
Je m'excuse je n'ai pas précisé qu'il n'y a pas de lien entre les valeurs d'une même ligne :
Ex A100= 64789631 et B100 = 6286
j 'ai 1000 lignes en B et 20000 en A

D'ou mon intention d'utiliser la fonction remplacer (Selection.Replace What:=b & "*", Replacement:=b ) mais je bloque sur la definition de la boucle pour passer de la cellule en revue toute la colonne B

salut
tien prend ça mon gars. je sais pas combien de temps prend une boucle de 1000 sur 20000 mais ça devrais pas etre trop long. tu as juste a modifier les tailles des ranges. dans mon exemple col A est la liste a modifier et colonne B la liste des references
voila, voila

Code:

---

1 2 3 4 5 6 7

For Each valeur In Range("b1:b3") For Each cel In Range("a1:a10") If cel Like valeur & "*" Then cel.Value = valeur End If Next cel Next valeur

---

Merci bcp
c'est exactement ce que voulais