Discussion :

[Bruno02]

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

[ouskel'n'or]

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

[Bruno02]

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

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Bruno02]

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

[alsimbad]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Bruno02]

Merci bcp
c'est exactement ce que voulais