XL 2013 Code VBA à adapter

[luke3300]

Bonjour le forum,

J'utilise le code VBA suivant afin de supprimer des "0" dans 2 colonnes.
Le hic c'est qu'il me supprime tous les "0" des nombres dans ces 2 colonnes alors que j'aimerais qu'il supprime uniquement les 1er 0 des nombres.

Par exemple, pour "002", qu'il me supprime les deux "00" avant le 2 mais que pour "603", il ne supprime rien. Par contre pour "013", il supprime le 1er "0" aussi.

Voici le code:

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

Sheets("Feuil4").Select
Columns("H:I").Select
Selection.Replace What:="0", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Merci d'avance pour votre aide et bon après-midi.

 

[ERIC S]

Re : Code VBA à adapter

Bonjour

en fait tu veux convertir du texte en nombre?

For i = 8 To 9 'colonnes H et I
    For j = 1 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

 

[luke3300]

Re : Code VBA à adapter

Bonjour Eric S,

Pas nécessairement, cela peut très bien rester en texte et c'est d'ailleurs préférable pour le reste.
Avec ton code, il me détecte ceci en erreur:

Then Cells(j, i).Value = CLng(Cells(j, i).Value)

Merci pour ton aide.

 

[ERIC S]

Re : Code VBA à adapter

Re

joint un petit bout de fichier (qui reproduit l'erreur bien sûr), ce sera plus simple pour analyser

 

[luke3300]

Re : Code VBA à adapter

Re Eric S,
J'ai assez difficile de mettre un fichier exemple parce que le fichier que j'utilise est complexe 😡



Voici cependant une capture du code complet de la macro pour cette feuille et l'erreur.

Merci

 

[ERIC S]

Re : Code VBA à adapter

Re

si ton erreur est l'incompatibilité de type, peut-être as-tu des lettres dans tes colonnes et pas seulement des chiffres (ou des caractères spéciaux)

regarde les données en H et I

 

[luke3300]

Re : Code VBA à adapter

En effet, en 1ère ligne il y a les en-têtes ... ce serait ça? Comment éviter que le code en tienne compte?

 

[ERIC S]

Re : Code VBA à adapter

Re

peut-être

for j= 2 to cells....

commencera la boucle en ligne 2

ou

if not iserror (CLng(Cells(j, i).Value)) then
If Not Cells(j, i).Value = "" Then Cells(j, i).Value = CLng(Cells(j, i).Value)
endif

 

[luke3300]

Re : Code VBA à adapter

Bonjour Eric S, le forum,

La solution For J= 2 fonctionne donc je prends 😉

Merci beaucoup et excellent jeudi.