XL 2013 Mon code fonctionne à moitié

[luke3300]

Bonjour le forum,

J'utilise un code qui me permet d'enlever des "0" dans 2 colonnes. Ces "0" sont placés avant d'autres chiffres donc le code permet de convertir un "001" en "1".

Le code concerne les colonnes H et I qui sont respectivement les 8ème et 9ème colonne.

Voici ce code avec la partie qui pose problème (en rouge):

'supprimer les "0" des données en H et I

For i = 8 To 9 'colonnes H et I
For j = 2 To Cells(Rows.Count, i).End(xlUp).Row
If Not Cells(j, i).Value = "" Then Cells(j, i).Value = CLng(Cells(j, i).Value)
Next
Next

Le résultat donne que ça fonctionne pour la colonne H (la 8ème) et pas pour la I:

https://www.hostingpics.net/viewer.php?id=38810320170609082542.jpg

Quelqu'un aurait une idée de ce qui cloche?

Merci d'avance et excellent vendredi à toutes et tous.

 

[M12]

Bonjour,
Peut-être regarder le format de la colonne I s'il n'y à pas de format personnalisé ?

 

[luke3300]

Bonjour M12,

Non c'est le même format pour la page entière ... 😉

Merci quand même.

 

[M12]

un extrait de ton classeur pour tester
J'ai fait un test chez moi, la macro semble fonctionner

 

[luke3300]

Voici M12.
Il suffit de cliquer sur le "bouton3" dans l'onglet GEO pour activer la macro.
Merci.

 

[M12]

Re,
C'est normal,
à partir de la ligne 855, ce n'est plus du numérique (avec un "S")
si tu ne dois pas changer le type S001 en S1 par exemple
teste avec ce code

Sub Bouton3_Cliquer()
'supprimer les "0" des données en H et I

  For i = 8 To 9 'colonnes H et I
    For j = 2 To Cells(Rows.Count, i).End(xlUp).Row
     If IsNumeric(Cells(j, i).Value) Then
       If Not Cells(j, i).Value = "" Then Cells(j, i).Value = CLng(Cells(j, i).Value)
     End If
    Next
Next
End Sub

 

[luke3300]

Merci M12, il subsiste cependant un petit souci 🙁 ... lorsque j'utilise le code comme ça, pas de souci.
Lorsque je le copie à la place de l'original dans mon bon fichier, il me mets une erreur à cause du: Next sans For
Pourtant sans l'ajout de ta ligne, ça fonctionnait ... quid?
Manque-t-il un "For" et une autre suite?

 

[luke3300]

Oups ... non c'est bon 😉

Dans l'empressement du recopiage, j'ai oublié de mettre le "End If" et donc évidement que ça demandait une suite. 🙂
Merci beaucoup pour ton temps et ton savoir M12 et excellente fin de semaine.

 

[M12]

Re,
A voir ce qui se passe dans le module original, je ne suis pas devin
Mais un Next sans For, c'est bien souvent un END IF manquant ou mal placé