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
Excel vba erreur 1004 - Meilleures réponses
Excel erreur 1004 - Meilleures réponses
VBA erreur 1004 ✓ - Forum - VB / VBA
Erreur 1004 vba erreur définie par l'application ou par l'objet ✓ - Forum - VB / VBA
Erreur 1004 vba range ✓ - Forum - VB / VBA
Erreur 1004 ✓ - Forum - VB / VBA
VBA / Erreur d'exécution 1004 ✓ - Forum - VB / VBA

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

49
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

49
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

49 > 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 1004 - Erreur définie par l'application ou par l'objet

Bibliothèque introuvable

Erreur d'éxecution 1004

Erreur d'execution 91 sous Excel/VBA

macro excel erreur d'éxécution 5

erreur 424 "objet requis" sous excel

Discussions similaires

Newsletters