Discussion :

[kimou75]

Bonjour,

Sauriez-vous comment puis-je coder en VBA afin de supprimer les "0" est les vides ou espaces qui sont contenus dans une variable numérique?

J'ai une colonne avec plusieurs valeurs : 00215;05637;04422 ; 421 ;...etc.

Malheureusement le nombre de caractères numériques n'est pas identique. Donc je ne peux pas utiliser les fonctions "gauche" ou "droite" car je risquerai de tronquer les données.

Merci d'avance.

[joe.levrai]

Bonjour,

la fonction Replace peut être ? Regarde l'aide en ligne VBA et dis nous ce qu'il en est

[halaster08]

Bonjour,
Au contraire, je pense que tu peut utiliser les fonction gauche et droite.
Avec une boucle while, tu peut tester si le premier caractère est 0 ou vide si oui le suprimer et recommencer si non passer à la valeur suivante.
00215 deviendrait 0215 puis 215 puis on passe la case suivante.

Petite question pour être sur d'avoir bien compris: 2015 reste 2015 ou devient 215?
Si la réponse est 215, alors comme le suggère mon VDD, la fonction replace est parfaite.

[Invité]

Bonjour,
que signifie le point virgule Csv?

[kimou75]

Bonjour,

halaster08, le 2015 reste bien en 2015. Je vais essayer la boucle avec les fonctions gauches et droites alors.


rdurupt, les ";" c'est juste pour présenter un exemple et différencier les valeurs qui peuvent être présentes dans les cellules mais il n'y a pas de ";" dans mon tableau.

Exemple pour ma valeur qui est "0215 " j'ai donc un 0 et deux caractères vides

Code :

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

1
2
3
4
5
6
7
8
dim cpt as integer ' mon compteur
dim u as integer 'mon chiffre à tronquer
 
u = Left(.Range("M" & cpt + 3), 7)
 
do while Left(u, 1) = 0 and Right(u, 1) = ""
' je ne connais pas l'intstruction pour supprimer une valeur d'une variable 
loop

[Invité]

bonjour,
Nb=val("0000000000000000000000000000 0000000000000215 . 0000000000000000000000")

[kimou75]

Bonjour rdurupt,

je n'ai pas compris ton code

sinon j'ai trouver la fonction "Application.WorksheetFunction.Trim("ma variable")" pour supprimer mes espaces. Je n'ai pas encore testé

[Invité]

tu remplace tout ton bazar par

Code :

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

val( .Range("M" & cpt + 3))

[kimou75]

Génial !! merci rdurupt