Erreur 1004

phlaurent55

Nous a quittés en 2020

Repose en paix

• 28 Novembre 2012

• #2

Re : Erreur 1004

Bonjour Dormeur,

Je suis étonné que tu n'aie pas une erreur en utilisant la version 2003

Remplace:
Range("Extraction").Select
par
Range("Extraire").Select

à+
Philippe

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 28 Novembre 2012

• #3

Re : Erreur 1004

Bonjour Dormeur74, Bonjour phlaurent55, Ce qui m'inquiète sous 2007 c'est

VB:

Range("Extraction").ClearContents

La zone reprend toutes les lignes, pour une petitze machine, sous 2007, ça doit poser problème. Cordialement

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 28 Novembre 2012

• #4

Re : Erreur 1004

Re, Il se peut également que l'utilisation d'un bouton formulaire soit source d'ennui sous 2007. Une proposition qui devrait aller, avec des commentaires dans le code. Cordialement

 

Pièces jointes

• cyclope(2).xls

  89.5 KB · Affichages: 66

Dernière édition: 28 Novembre 2012

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 28 Novembre 2012

• #5

Re : Erreur 1004

Re,

le fichier en retour
les zones nommées sont maintenant dynamiques et prennent en compte les lignes non-vides au lieu de prendre jusqu'à le ligne 65536
la recherche est maintenant plus rapide

dans le classeur, il n'y a pas de zone nommée "Extraction" mais une zone nommée "Extraire"
et c'était cela la source des ennuis

à+
Philippe

 

Pièces jointes

• 111.xls

  105 KB · Affichages: 223
• 111.xls

  105 KB · Affichages: 393
• 111.xls

  105 KB · Affichages: 410

Vote positif 0 Vote négatif

Dormeur74

XLDnaute Occasionnel

• 28 Novembre 2012

• #6

Re : Erreur 1004

Merci à tous.

Remplace:
Range("Extraction").Select
par
Range("Extraire").Select

Cliquez pour agrandir...

Pourquoi "Extraire" ? "Extraction" correspond à une plage que j'ai définie, certes un peu longue sur une petite machine, mais ce n'est pas le cas. Si je remplace "Extraction" par "Extraire", cette fois, c'est moi qui ai une erreur d'exécution '1004'. La méthode 'Range' de l'objet '_Global' a échoué.

#Efgé
On ne peut pas lancer une macro à partir d'un bouton de formulaire sous 2007 ?
J'ai bien pris en compte le Resize (bonne idée) de la plage 'Extraction' pour réduire la consommation des ressources.
Vous avez tous eu cette erreur '1004' ?

Oups ! Percussion.

#phlaurent55
Je ne vois pas 'Extraire' dans ma liste ???

 

Dernière édition: 28 Novembre 2012

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 28 Novembre 2012

• #7

Re : Erreur 1004

Re, On peux lancer un code depuis un bouton formulaire sous 2007, mais comme j'ai déja rencontré des ennuis, je préfère utilisé les Active X. Cordialement

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 28 Novembre 2012

• #8

Re : Erreur 1004

Re,

Pourquoi "Extraire" ? "Extraction" correspond à une plage que j'ai définie, certes un peu longue sur une petite machine, mais ce n'est pas le cas. Si je remplace "Extraction" par "Extraire", cette fois, c'est moi qui ai une erreur d'exécution '1004'. La méthode 'Range' de l'objet '_Global' a échoué.

Cliquez pour agrandir...

Voici ce qu'on peut voir avec Ctrl+F3 dans le fichier joint à la question initiale

il y a bien une plage nommée "Extraire"

"Extraction" correspond à une plage que j'ai définie

Cliquez pour agrandir...

aurait-elle subi une modification génétique 😕

à+
Philippe

Edit: as-tu testé le fichier joint au post#5,....... chez moi il fonctionne

 

Pièces jointes

• 111.jpg

  74 KB · Affichages: 94
• 111.jpg

  74 KB · Affichages: 90

Dernière édition: 28 Novembre 2012

Vote positif 0 Vote négatif

Dormeur74

XLDnaute Occasionnel

• 28 Novembre 2012

• #9

Re : Erreur 1004

#phlaurent55

Je deviens fada.
Chez moi, le fichier 111.xls tel quel plante une erreur 1004, mais si je remplace dans le code du bouton "Extraire" par "Extraction", tout rentre dans l'ordre et marche nickel. Le problème, c'est que je n'avais pas d'erreur sous Excel 2000.

J'ai viré le bouton de formulaire comme vous l'avez fait tous les deux, procédé à un Resize dynamique de la zone à effacer pour moins consommer de ressources. Je retourne vers la personne qui a eu cette erreur et vous tiens au courant.

En tout cas un grand merci.

 

Vote positif 0 Vote négatif

Dormeur74

XLDnaute Occasionnel

• 28 Novembre 2012

• #10

Re : Erreur 1004

Rien à faire, l'intéressé m'a envoyé une copie de l'erreur en question.

Erreur '1004'. La méthode 'Range' de l'objet '_Worksheet' a échoué.

Cliquez pour agrandir...

On aura tout essayé ou presque. Merci.

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 28 Novembre 2012

• #11

Re : Erreur 1004

Re,

une solution pour mieux cibler l'erreur:
il faut supprimer: On Error GoTo GESTERREUR
et relancer une recherche et si une erreur se produit, la ligne concernée sera surlignée en jaune

Remarque perso: il faut éviter autant que possible les lignes telles que:
On Error GoTo ...............
On Error Resume Next

à+
Philippe

 

Vote positif 0 Vote négatif

Dormeur74

XLDnaute Occasionnel

• 28 Novembre 2012

• #12

Re : Erreur 1004

Tout à fait d'accord avec toi sur les inconvénients d'une gestion d'erreur globale. C'est bon pour la phase de développement, puis à mettre en remarque. Le problème, c'est que l'intéressé avait cette erreur avant que je n'introduise cette gestion qui ne sert à rien, l'erreur étant à un niveau plus bas.

Il m'est impossible de debugger ce code, car je n'ai pas d'erreur chez moi. C'est la raison pour laquelle mon souci n° 1 était de trouver un utilisateur qui tomberait (par bonheur) sur cette erreur. Je ne pense pas qu'il soit utile d'aller plus loin, les codes que j'ai reçus fonctionnent parfaitement. Je n'ai pas creusé entre Sheets("") et Worksheets(""), ce sera ma dernière tentative, faute de temps.

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 28 Novembre 2012

• #13

Re : Erreur 1004

Re
Comme ça pas de problème sous 2007
Il avais un probléme de range.
Cordialement

 

Pièces jointes

• cyclope().xls

  134 KB · Affichages: 45

Vote positif 0 Vote négatif

Dormeur74

XLDnaute Occasionnel

• 28 Novembre 2012

• #14

Re : Erreur 1004

J'y perds mon Latin, la tête et le reste si ça continue.

J'ai lancé cyclope().xls dont le code est le suivant :

Code:

Private Sub CommandButton1_Click()
    Dim Y As Long, compteur As Long
    Dim nbLignes As Long
    Dim article As String
    
    'On Error GoTo GESTERREUR
    
    Range("Extraire").Resize(UsedRange.Rows.Count, UsedRange.Columns.Count).ClearContents
    With Sheets("Données")
        nbLignes = .Cells(Rows.Count, 5).End(xlUp).Row
        compteur = 5
        For Y = 2 To nbLignes
            article = LCase(.Cells(Y, 5))
            If InStr(article, LCase(Cells(3, 4))) <> 0 Then
                compteur = compteur + 1
                Cells(compteur, 5) = .Cells(Y, 1)
                Cells(compteur, 6) = .Cells(Y, 2)
                Cells(compteur, 7) = .Cells(Y, 5)
                Cells(compteur, 8) = .Cells(Y, 3)
                Cells(compteur, 9) = .Cells(Y, 4)
            End If
        Next Y
    End With
    Range("D3").Value = ""
    Range("$D$3").Select ' La tu lances la Worksheet_SelectionChange ....
    'Exit Sub

GESTERREUR:
    If Err <> 0 Then MsgBox "Erreur n° " & Err.Number & " --- description : " & Err.Description
End Sub

Ca me donne ceci :



Je crois que je vais retourner sous Quattro Pro.

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 28 Novembre 2012

• #15

Re : Erreur 1004

Re
Le problème reste entier, le fichier cyclope().xls ouvert chez moi sous 2007 donne ceci





Cordialement

 

Pièces jointes

• Image2.png

  22.7 KB · Affichages: 70
• Image2.png

  22.7 KB · Affichages: 65

Vote positif 0 Vote négatif