Erreur 1004 dans execution de macro

L

Le Pierre

Guest

• 12 Novembre 2008

• #2

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

 

Vote positif 0 Vote négatif

C

Cyr25

Guest

• 13 Novembre 2008

• #3

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🙂

 

Vote positif 0 Vote négatif

L

Le Pierre

Guest

• 13 Novembre 2008

• #4

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 :

Code:

                        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

 

Pièces jointes

• Essai RedlineV1.zip

  20.6 KB · Affichages: 28

Vote positif 0 Vote négatif

C

Cyr25

Guest

• 13 Novembre 2008

• #5

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🙂

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 13 Novembre 2008

• #6

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 !?

 

Dernière édition: 13 Novembre 2008

Vote positif 0 Vote négatif

C

Cyr25

Guest

• 13 Novembre 2008

• #7

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+

 

Pièces jointes

• Essai 2Redline.zip

  20 KB · Affichages: 25

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 13 Novembre 2008

• #8

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é !

 

Pièces jointes

• Copie de Essai 2Redline.zip

  20 KB · Affichages: 27

Dernière édition: 13 Novembre 2008

Vote positif 0 Vote négatif

C

Cyr25

Guest

• 14 Novembre 2008

• #9

Re : Erreur 1004 dans execution de macro

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

 

Vote positif 0 Vote négatif