XL 2013 Code VBA à adapter

ERIC S

XLDnaute Barbatruc

• 9 Mars 2016

• #2

Re : Code VBA à adapter

Bonjour

en fait tu veux convertir du texte en nombre?

Code:

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

 

Vote positif 0 Vote négatif

luke3300

XLDnaute Impliqué

• 9 Mars 2016

• #3

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)

Cliquez pour agrandir...

Merci pour ton aide.

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 9 Mars 2016

• #4

Re : Code VBA à adapter

Re

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

 

Vote positif 0 Vote négatif

luke3300

XLDnaute Impliqué

• 9 Mars 2016

• #5

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

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 9 Mars 2016

• #6

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

 

Vote positif 0 Vote négatif

luke3300

XLDnaute Impliqué

• 9 Mars 2016

• #7

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?

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 9 Mars 2016

• #8

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

 

Vote positif 0 Vote négatif

luke3300

XLDnaute Impliqué

• 10 Mars 2016

• #9

Re : Code VBA à adapter

Bonjour Eric S, le forum,

La solution For J= 2 fonctionne donc je prends

Merci beaucoup et excellent jeudi.

 

Vote positif 0 Vote négatif