Modifier nombre en enlevant un chiffre

Bonjour,
J'aurai aimé savoir comment puis-je coder en VBA l'action suivante.
Récupérer la valeur d'une case et supprimer le chiffre le plus à droite de cette case pour le mettre dans une autre case.
ex1 : A1 = 12 alors B1 = 1
ex2 : A2 = 235 alors B2 = 23

Merci d'avance.

Cdlt

Va voir ici:
http://silkyroad.developpez.com/VBA/...nesCaracteres/

Si tu travaille avec des entiers tu peux faire cela

Code:

---

Range("B1").Value = Int(Range("A1").Value / 10)

---

la partie entière de tonNombre/10

Bonjour,

Dans le meme principe que mercatog mais sans utiliser VBA

Code:

---

1 2	=ENT(A1/10)

---

Merci pour vos réponses.
J'avais trouvé comme code :

Code:

---

1 2	valeur = Len(Range("B1")) Range("A1").Value = Left(Range("B1"), valeur - 1)

---

Mercatog ton code est intéressant , je vais l'utiliser.:ccool:

Attention si tu as des nombres négatifs, tu mets ça:

Code:

---

Range("B1").Value = Sgn(Range("A1").Value) * Int(Abs(Range("A1").Value) / 10)

---

ET SI TU AS UN NOMBRE < 10????
Que prévois-tu?

En effet avec un nombre inférieur à 10 on obtient la valeur 0.
En outre cela ne me gène pas car les valeurs sont toujours supérieur à 10.

Donc c'est bon;)

Merci pour tes infos

Si jamais on avait un nombre inférieur à 10 on peut reprendre mon code et on met un IF.
If valeur <1 alors on recopie directement le résultat sinon on applique le code jusqu'au bout.