Erreur 1004 dans execution de macro

[Cyr25]

Bonjour à tous,
J'ai une macro qu'on m'avait fourni qui permet de supprimer sur une feuille excel tout ce qui est en bleu barré et de passer en noir sans soulignement ce qui est en rouge souligné. Cela avait l'air de fonctionner mais sur le fichier joint j'ai une erreur d'éxecution 1004 et la macro s'arrète avant d'avoir fait toute la page. Je ne sais pas d'ou cela peut provenir. Please help me.

Merci

 

[Le Pierre]

Re : Erreur 1004 dans execution de macro

Bonjour

L'erreur 1004 se produit lorsque la procédure essaie de modifier une cellule contenant un nombre supérieur à 9, (par exemple en ligne 35 colonne D).
Si tu places une apostrophe devant ce nombre alors plus de problème car la procédure le considère comme du texte : '49962
à plus

 

[Cyr25]

Re : Erreur 1004 dans execution de macro

Merci pour ta réponse Le Pierre, maintenant je sais d'ou viens le problème. Par contre n'y aurait-il pas une autre possibilité en modifiant la macro ou en déclarant autrement les variables car je ne suis pas le seul à modifier de tels fichiers et une partie des informations viennent directement d'une base de donnée ou je ne peux pas aller mettre des apostrophes.

Merci d'avance🙂

 

[Le Pierre]

Re : Erreur 1004 dans execution de macro

Bonjour

Voici ton fichier modifié qui fonctionne sans erreur.
J'ai ajouté ce bout de code qui ajoute une apostrophe :

                        Else ' sinon on supprime juste le caractère
                            [COLOR="Magenta"]If (VarType(Ma_Cell.Value)) <> 8 Then Ma_Cell.Value = "'" & Ma_Cell.Value[/COLOR]
                            Ma_Cell.Characters(Start:=Compteur, Length:=1).Delete
                        End If

Je ne suis pas trop satisfaits de la solution mas ça fonctionne. Si quelqu'un a mieux ...
à plus

 

[Cyr25]

Re : Erreur 1004 dans execution de macro

Encore merci Le Pierre. C'est vrai que c'est pas une solution académique mais ca à le mérite de fonctionner. Je vais l'utiliser tant que personne n'aura trouver un autre code.

merci🙂

 

[Roland_M]

Re : Erreur 1004 dans execution de macro

bonjour

essais comme ceci:

à la place de > Ma_Cell.Characters(Start:=Compteur, Length:=1).Delete

tu mets:

V$ = Ma_Cell.Value: V$ = Mid(V$, Compteur): Ma_Cell.Value = Val(V$)

EDIT: important ! j'ai oublié ! bien sûr ceci sur des valeurs numériques !
tester avant comme ceci donc !!!!

If IsNumeric(Ma_Cell.Value) Then
V$ = Ma_Cell.Value: V$ = Mid(V$, Compteur): Ma_Cell.Value = Val(V$)
Else
Ma_Cell.Characters(Start:=Compteur, Length:=1).Delete
End If

tu me dis quoi !?

 

[Cyr25]

Re : Erreur 1004 dans execution de macro

Merci à toi Roland_M. J'ai fait le test et ca fonctionne bien à part pour 4 cellules ou après avoir supprimer le contenu de toute ces cellules ou tout est en bleu souligné, une valeur 0 apparait. Saurait tu me dires de quoi cela provient.
Encore merci à vous deux pour votre intéret.
PS je ne reprendrai le fil que demain matin car je dois partir.

A+

 

[Roland_M]

Re : Erreur 1004 dans execution de macro

re:

oui c'est du fait que l'on remet val(V$) et si c'est 0 évidemment tu as 0
mais si tu veux pas du 0 tu fais comme ceci :
(tu rajoute le petit test sur Val(V$)
If Val(V$)>0 then Ma_Cell.Value = Val(V$) else Ma_Cell.Value = ""

c'est à dire:
If IsNumeric(Ma_Cell.Value) Then
V$ = Ma_Cell.Value: V$ = Mid(V$, Compteur)
If Val(V$) > 0 Then Ma_Cell.Value = Val(V$) Else Ma_Cell.Value = ""
Else
Ma_Cell.Characters(Start:=Compteur, Length:=1).Delete
End If

EDIT: ci-joint ton fichier modifié !

 

[Cyr25]

Re : Erreur 1004 dans execution de macro

Super cette fois y'a plus rien à redire. Merci à toi et longue vie à XLD.🙂