Discussion :

[vivi4561]

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

[diude54]

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

[mercatog]

Si tu travaille avec des entiers tu peux faire cela

Code :

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

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

la partie entière de tonNombre/10

[jfontaine]

Bonjour,

Dans le meme principe que mercatog mais sans utiliser VBA

Code :

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

1
2
 
=ENT(A1/10)

[vivi4561]

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

Code :

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

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

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

[mercatog]

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

Code :

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

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

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