Bonjour,

Je me pose ce matin une question en constatant la lenteur de mon code : est il possible d'exécuter la fonction Left() sur une colonne sans passer par une boucle ?

Par exemple pour supprimer des doublons en un fragment de seconde, nous pouvons utiliser ce code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
Columns("A:B").Select
ActiveSheet.Range("$A$1:$B$20108").RemoveDuplicates Columns:=Array(1, 2), _
       Header:=xlYes
Y a t'il un code similaire pour remplacer un Left() qui utilise une boucle for ou do while ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
      Cells(i, 2) = Left(Cells(i, 2), 3)
Next
Merci d'avance pour votre retour