Menu

VBA erreur 1004 [Résolu/Fermé]

- - Dernière réponse :  Floroan - 18 févr. 2012 à 22:16
Bonjour forum

j'ai un macro qui a été fait sur excel 5 et qui marché bien.mais maintenat quand je l'execute sur la nouvelle version de excel j'ai l'erreur 1004 (impossible de lire la propriété drawing objects de la classe dialogsheet)

est ce que vous avez une idée

merci d'avance
Afficher la suite 

4 réponses

Meilleure réponse
approuvée par Jean-François Pillou le 31 janv. 2019
5
Merci
Bonjour,

L'erreur 1004 est une erreur très standard qui stipule un
débordement de l'indice de l'objet. Il est très difficile de
trouver ce genre d'erreur sans voir le code.

J'ai eu aussi quelques déboire avec le passage de 95 à 97
et entre autre le nom des feuilles changeaient dans certaines
circonstances.

Si tu veux plus d'aide, transcrit ton code ici !

Lupin

Dire « Merci » 5

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 57473 internautes nous ont dit merci ce mois-ci

2
Merci
Bonjour,

Moi j'ai tout simplement "enregistrer sous" le fichier avec l'ancienne version d'excel:

Enregistrer sous / Classeur Excel 97-2003

Voila
1
Merci
Si vous voulez résoudre l'erreur 1004 mettez votre date et heure à la bonne heure. Moi j'ai fait ça et ça a marché.
ShaBoo
Messages postés
392
Date d'inscription
mercredi 12 septembre 2007
Dernière intervention
5 septembre 2009
67 -
Essaye ceci :

Private Sub Workbook_Open()

'Worksheets("resultats").Activate
'Cells(17, 2).Activate
Worksheets(2).Select
Worksheets(2).Cells(17, 2).Select
MsgBox "cellule selectionné"

End Sub
ShaBoo
Messages postés
392
Date d'inscription
mercredi 12 septembre 2007
Dernière intervention
5 septembre 2009
67 -
Sub Filtre_2()
Dim i As Integer
MsgBox "entre dans la boucle "
  'Worksheets(2).Cells(2, 17).Select
'Worksheets("resultats").Range ("B17")
' Worksheets(2).Select
'Cells(2, 17).Select
'Cells(2, 17).Select
'Range("B17").Select
Workbook_Open
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).AutoFilter Field:=3, Criteria1:=head_left
Range(Selection, Selection.End(xlDown)).AutoFilter Field:=2, Criteria1:=head_up

End Sub




Que cherches tu à faire avec cette procedure ???
> ShaBoo
Messages postés
392
Date d'inscription
mercredi 12 septembre 2007
Dernière intervention
5 septembre 2009
-
Bonjour,


en gros je veux selectionner ma plage de la liste à trier
je commence par selectionner la premiere cellule puis apres avec les fontions je determine le la fin de ma liste et le auto filter me permet de filtrer

Je sens que je ne suis pas clair!
Bonjour,



ahhh merciiiiiiii!c'est bon pour ça !
mais du coup pkoi ça ne marchais pas?
je suis obligé de selectionner la feuille puis la feuille et la cellule?????
ShaBoo
Messages postés
392
Date d'inscription
mercredi 12 septembre 2007
Dernière intervention
5 septembre 2009
67 > pti beignet -
bin ... tu es sur un evenement d'ouverture, et Excel doit initialiser pas mal de chose (du moins je pense ;p). Et là il devait pas retrouver ces petits ...