luke3300
XLDnaute Impliqué
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.
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.