[Excel/VBA] Supprimer les 0 extérieurs dans une donnée alphanumérique

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Excel/VBA] Supprimer les 0 extérieurs dans une donnée alphanumérique

salvation77

Bonjour,

Je suis plutôt un habitué d'une autre section du forum, mais j'ai un petit problème alors je fais appel à l'équipe de programmeur qui doit roder dans cette section.

J'ai une colonne dans laquelle se trouve des numéros de séries, certain numériques et d'autres alphanumériques.
J'aimerai, pour les données alphanumériques, supprimer les 0 qui se trouvent aux extremités.

Par exemple, j'aimerais transformer 0000000078AP48 en 78AP48

J'ai beau chercher, je ne trouve pas réponse à cette question.

Merci d'avance amis hfriens :hello:

Publicité

olivthill

Faire une petite boucle du genre (pas testé)

ma_var = "0000000078AP48"
lg_ma_var = Len(ma_var)
new_lg_ma_var = lg_ma_var
for i = 1 to Len(ma_var)
If (Left(ma_var = "0" ) Then
new_lg_ma_var = new_lg_ma_var - 1
ma_var = Right(ma_var, new_lg_ma_var)
Else
Exit For
End If
Next i

salvation77

Merci pour la réponse.

J'ai cependant un message d'erreur quand il arrive au Left :"Erreur de compilation, argument non facultatif".

(J'ai rajouté la parenthèse oubliée mais rien n'y fait).

olivthill

Oui, il y a une petite erreur.
Il faudrait avoir :

If (Left(ma_var, 1) = "0" ) Then

SuppotDeSaTante

Aka dje69r

Pfiouh cette prise de tête...

En plus s'il ne trouve pas 0 il sort de la boucle... Alors qu'il peut y avoir un 0 plus loin... ("aux extrémités" )

Code :

ma_var = "0000000078AP4800"
lg_ma_var = Len(ma_var)
For i = 1 To lg_ma_var
If Mid(ma_var, i, 1) <> "0" Then
new_ma_var = new_ma_var & Mid(ma_var, i, 1)
End If
Next i

---------------
Soyez malin, louez entre voisins !

salvation77

Ca marche parfaitement merci !

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[Excel/VBA] Supprimer les 0 extérieurs dans une donnée alphanumérique

Sujets relatifs
[PPT/VBA] Changer tiret et couleurs de traits sur différents slides	[Excel/VBA] Temps de calcul / Attente
[Excel/VBA] Selectionner des cellules contenant une certaine valeur	Interface VBA/C++
Macros VBA : Excel 2003 vs Excel 2007	supprimer une colonne si une cellule = 0
[résolu] Fusion de 2 feuilles excel ou calc ou access
Plus de sujets relatifs à : [Excel/VBA] Supprimer les 0 extérieurs dans une donnée alphanumérique

Page générée en 0.036 secondes