VBA erreur 1004

Résolu

séverine -
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

A voir également:

Erreur 1004 excel
Excel erreur d'exécution 1004 - Meilleures réponses
Excel erreur 1004 - Meilleures réponses
Liste déroulante excel - Guide
Trier un tableau excel - Guide
Word et excel gratuit - Guide
Si ou excel - Guide
Déplacer colonne excel - Guide

4 réponses

Réponse 1 / 4

Meilleure réponse
La meilleure réponse est la réponse qui a été validée par nos équipes.

approuvée par Jean-François Pillou
Utilisateur anonyme

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
7
Réponse 2 / 4
Floroan

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é.
5
Réponse 3 / 4
sdf

Bonjour,

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

Enregistrer sous / Classeur Excel 97-2003

Voila
2
Réponse 4 / 4
pti beignet

Bonjour,

je viens de le deposer le lien est:
http://www.cijoint.fr/cij102725268832601.xls
0
1. ShaBoo Messages postés 406 Statut Membre 50
  
  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
  
  0
2. ShaBoo Messages postés 406 Statut Membre 50
  
  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 ???
  
  0
  1. pti beignet > ShaBoo Messages postés 406 Statut Membre
    
    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!
    
    0
3. pti beignet
  
  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?????
  
  0
  1. ShaBoo Messages postés 406 Statut Membre 50 > 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 ...
    
    0

VBA erreur 1004

4 réponses

Discussions similaires

Newsletters