Fonction remplacer

[Bruno02]

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

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

Merci d'avance

Cordialement

 

[JYLL]

Re : Fonction remplacer

Bonsoir Bruno45 et le Forum,

Tu mets ce code s'il ne s'agit que de récupérer les trois caractère de gauche.

Cells(I,J)=Left(Cells(I,J),3)

Bon test.

 

[dixit]

Re : Fonction remplacer

bonjour,
j'ajoute qu'il faut une boucle pour que l'ensemble soit corrigé, par exemple
for b=1 to 65536 (plus si Excel 2007)
if cells(b,1)="" then exit for
cells(b, 1)=left(cells(b,1),3)
next
bye

 

[JYLL]

Re : Fonction remplacer

Bonjour Dixit et le forum,

Il y a moyende détecter la dernière ligne de cette façon et d'ajouter une deuxième boucle pour la colonne "B"

Sub Mise_En_Forme
  For Colonne= 1 to 2
    For Ligne= 1 to cells( 65536,Ligne).end(xlup).end ' 65536 à changer pour Excel2007
      Cells(Ligne,Colonne)= Left(Cells(Ligne, Colonne),3)
    Next Ligne
  Next Colonne
End Sub

Bon test.

 

[Bruno02]

Re : Fonction remplacer

Bonsoir JYLL et DIXIT et merci

Il n'y a pas le même nbre de lignes en A et B et les valeurs sont différentes (difficile pour utiliser left).
voici où j 'en suis

Sub Remplace_PCG()
For Each valeur In Range("b1:b5")
For Each cel In Range("a1:a1200")
If cel Like valeur & "*" Then
cel.Value = valeur
End If
Next cel
Next valeur
End Sub

Il ne reste à supprimer les cellules vides en B sinon j'efface tout en A

Bye