Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1896 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°2090578
salvation7​7
Posté le 21-07-2011 à 11:06:12  profilanswer
 

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.  :D  
 
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:

mood
Publicité
Posté le 21-07-2011 à 11:06:12  profilanswer
 

n°2090669
olivthill
Posté le 21-07-2011 à 16:56:25  profilanswer
 

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

n°2090771
salvation7​7
Posté le 22-07-2011 à 09:18:46  profilanswer
 

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).

n°2090773
olivthill
Posté le 22-07-2011 à 09:20:19  profilanswer
 

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

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

n°2090851
dje69r
Arme de distraction massive
Posté le 22-07-2011 à 14:31:54  profilanswer
 

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 :
  1. ma_var = "0000000078AP4800"
  2. lg_ma_var = Len(ma_var)
  3. For i = 1 To lg_ma_var
  4.     If Mid(ma_var, i, 1) <> "0" Then
  5.         new_ma_var = new_ma_var & Mid(ma_var, i, 1)
  6.     End If
  7. Next i


---------------
Plus tu pédales moins vite, moins tu avances plus vite — SuperLoustic ! La radio des Loustics !
n°2090880
salvation7​7
Posté le 22-07-2011 à 15:53:27  profilanswer
 

Ca marche parfaitement merci !


Aller à :
Ajouter une réponse
  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 valeurInterface VBA/C++
Macros VBA : Excel 2003 vs Excel 2007supprimer 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


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR