lire le premier chiffre

[david]

bonjour,
je souhaite lire dans une cellule le premier chiffre inscrit dans celle ci

(macro vba)


exemple ma cellule me donne 40100856
je souhaite garder le 1er chiffre soit 4 dans une variable x

etc...

 

[bertrand]

bonjour,

voici un exemple qui devrait t'orienter.

le chiffre est en a1 :

Sub test()
a = Range('a1').Value
b = Left(a, 1)
msg = MsgBox(b)
End Sub


@+

 

[PascalXLD]

Bonjour

En gardant lidée de Bertrand tu peux te passer de la première variable en écrivant directement

Dim x as byte

x=Left(Range('A1'),1)

Bon courage

 

[david]

ok ca marche

merci encore