VBA erreur 1004

Résolu/Fermé

séverine - 18 août 2005 à 11:23
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

A voir également:

Erreur 1004 vba
Erreur d'execution 1004 - Meilleures réponses
Vba 1004 - Meilleures réponses
Erreur 0x80070643 - Accueil - Windows
Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
Erreur 3005 france tv - Forum TV & Vidéo
Erreur 3000 france tv - Forum Lecteurs et supports vidéo
Incompatibilité de type vba ✓ - Forum Programmation

4 réponses

Réponse 1 / 4

Utilisateur anonyme
18 août 2005 à 19:58

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

Réponse 4 / 4

pti beignet
23 nov. 2007 à 11:21

Bonjour,

je viens de le deposer le lien est:
http://www.cijoint.fr/cij102725268832601.xls

ShaBoo Messages postés 392 Date d'inscription mercredi 12 septembre 2007 Statut Membre Dernière intervention 5 septembre 2009 50
23 nov. 2007 à 11:40

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 Statut Membre Dernière intervention 5 septembre 2009 50
23 nov. 2007 à 11:53

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

pti beignet > ShaBoo Messages postés 392 Date d'inscription mercredi 12 septembre 2007 Statut Membre Dernière intervention 5 septembre 2009
23 nov. 2007 à 12:05

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!

pti beignet
23 nov. 2007 à 11:58

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 Statut Membre Dernière intervention 5 septembre 2009 50 > pti beignet
23 nov. 2007 à 12:01

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 ...

Discussions similaires

Erreur d'éxecution 1004

Bibliothèque introuvable

Projet ou bibliothèque introuvable

VBA excel: Erreur 424, objet requis

Erreur 1004 - Erreur définie par l'application ou par l'objet

Erreur 1004 Erreur définie par l'application ou par l'objet