Fonction remplacer

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.

Code:

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

Bon test.

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

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"

Code:

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.

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