Valeur de cellules dans une colonne

Bonjour,

j'ai un petit soucis : dans ma colonne A j'ai des nombres comme 10100, 10200 etc ..
J'aimerai pouvoir appliquer la fonction left à chacune des cellules de la colonne A.
Le format des cellules est "nombre".

Merci de votre réponse,
Cordialement,

Bonjour,

un exemple :

- on prend toutes les données de la colonne A de Feuil3, entre les lignes 1 et 1000
- on les charge dans un tableau
- on ne conserve que le premier caractère de chaque donnée
- on restitue les valeurs retravaillées dans la colonne A

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Gauche() Dim tablo   With Worksheets("Feuil3").Range("A1:A1000") tablo = .Value   For i = LBound(tablo) To UBound(tablo) tablo(i, 1) = Left(tablo(i, 1), 1) Next i   .Value = tablo End With   End Sub

---

Merci beaucoup ! Je n'étais pas du tout parti sur ce raisonnement ! De plus , tu m'as appris une nouvelle fonction, LBound =)