XL 2013 Mon code fonctionne à moitié

M12

XLDnaute Accro

• 9 Juin 2017

• #2

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

 

Vote positif 0 Vote négatif

luke3300

XLDnaute Impliqué

• 9 Juin 2017

• #3

Bonjour M12,

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

Merci quand même.

 

Vote positif 0 Vote négatif

M12

XLDnaute Accro

• 9 Juin 2017

• #4

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

 

Vote positif 0 Vote négatif

luke3300

XLDnaute Impliqué

• 9 Juin 2017

• #5

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

 

Pièces jointes

• Test.xlsm

  1.2 MB · Affichages: 27

Vote positif 0 Vote négatif

M12

XLDnaute Accro

• 9 Juin 2017

• #6

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

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

 

Vote positif 0 Vote négatif

luke3300

XLDnaute Impliqué

• 9 Juin 2017

• #7

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?

 

Vote positif 0 Vote négatif

luke3300

XLDnaute Impliqué

• 9 Juin 2017

• #8

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.

 

Vote positif 0 Vote négatif

M12

XLDnaute Accro

• 9 Juin 2017

• #9

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é

 

Vote positif 0 Vote négatif