Copier les 20 premiers caractères des lignes d'une colonne

Bonjour,

Je suis débutant avec Excel et j'ai besoin de votre aide pour mon problème.

J'ai un fichier Excel avec une colonne A qui contiennent des linges de chaine de caractères, j'ai créé un bouton qui me permet de copier la colonne A dan D par ex.

Ce pendant je souhaite que pour chaque ligne de la colonne A il me copie uniquement les 20 premiers caractères dans D , voici le code que j’ai :

Private Sub CommandButton1_Click()
Sheets("Email").Select
   Range("A:A").Select
   Selection.Copy
    Sheets("Email").Select
   Range("D:D").Select
    ActiveSheet.Paste

End Sub

Merci beaucoup pour votre aide .

Bonjour

Une solution

Private Sub CommandButton1_Click()
  With Range("D1:D" & Range("A" & Rows.Count).End(xlUp).Row)
    .Formula = "=LEFT(RC1,20)"
    .Value = .Value
  End With
End Sub

Merci quelle rapidité

Ça marche très bien , ça m’avancera beaucoup