Bonjour,
Je bute sur ce petit problème de langage :
Comment faire pour que dans des cellules excel sélectionnées suivantes
00702A DEVIENNE 702A
000152B DEVIENNE 152B
je vous joins ci-dessous la procédure dans laquelle je souhaiterais remplacer le msgbox par une formule effaçant le zéro . du style
If Left(celltest, 1) = 0 Then Left(celltest, 1) =null
mais celà ne fonctionne pas .
merci de votre aide
Sub SUPPRIMEROAGAUCHE()
Dim zoneatester As String
zoneatester = ActiveWindow.RangeSelection.Address
If zoneatester = Null Then
MsgBox "select zone", vbInformation, "CHOISIR"
Else
Dim celltest As Range
For Each celltest In Range(zoneatester)
If Left(celltest, 1) = 0 Then MsgBox Left(celltest, 1), vbInformation, "VALEUR GAUCHE " Else MsgBox Left(celltest, 1), vbInformation, "VALEUR GAUCHE "
Next
End If
End Sub
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)
*****************************************************