no save
Assistance
Achat
News

Forum | programmation
[VB/VBA/VBScript] SUPPRESSION DES ZEROS A GAUCHE
GUYSYS, le mar. 25 oct. 2005 à 23:15:12
merci pour ton aide,

Tout d'abord , le fait de mette 0 ou "0" n'a pas d'importance après essai de la macro.

Pour le reste la syntaxe que je cherchais pour supprimer le (les) premiers zéro à gauche est effectivement
celltest=Right(celltest, celltest.length-1) , que je fais suivre comme tu me le conseille par " une boucle while aussi pour virer TOUS les 0 et pas seulement le premier..."

J'ai utilisé la boucle proposé par RANDOM en remplaçant la variable tempo par celltest et le tout fonctionne à mon entière satisfaction.

MERCI A TOUS LES DEUX ET A TOUS CEUX QUI ONT PRIS LA PEINE DE M'AIDER.
***************************************
POUR CEUX QUI SONT INTERESSES VOILA LE CODE FINAL POUR SUPPRIMER LES ZERO A GAUCHE D'UNE CHAINE DE CARACTERES DANS UNE ZONE DE CELLULES EXCEL SELECTIONNEES A LA SOURIS
*********************************************
Sub SUPPRIMERODEVANTCOMPTE()

Dim zoneatester As String
zoneatester = ActiveWindow.RangeSelection.Address

Dim celltest As Range

For Each celltest In Range(zoneatester)
Do While Left(celltest, 1) = 0
celltest = Right(celltest, Len(celltest) - 1)
Loop

Next

End Sub

*****************************************
La théorie, c'est quand on sait tout et que rien ne fonctionne.
La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi .
(A. EINSTEIN)
*****************************************************
Précédentrandom
oct. 05
Lisa
août 06
Suivant
REPONSES
teebo
oct. 05
random
oct. 05
teebo
oct. 05
random
oct. 05
teebo
oct. 05
random
oct. 05
teebo
oct. 05
random
oct. 05
GUYSYS
oct. 05
Lisa
août 06
Version Web
Réalisé par RedShift
no save