Discussion :

[breizhcola29]

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,

[joe.levrai]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[breizhcola29]

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