Erreur '1004' et attribution d'un bouton à 2 codes

argaz01 · 24 Juin 2010

(Re)Bonjour,

Encore un petit coup de main svp. J'ai le code suivant qui marchait très bien et maintenant il me renvoie l'erreur '1004': erreur définie par l'application ou l'objet:

Code:

Sub ExtractionColonneFeuil1()
Worksheets("Tableau Général").Columns(1).Copy
Worksheets("Les Règles Prudentielles").Columns(1).PasteSpecial Paste:=xlPasteValues
Worksheets("Tableau Général").Columns(2).Copy
Worksheets("Les Règles Prudentielles").Columns(2).PasteSpecial Paste:=xlPasteValues
Worksheets("Tableau Général").Columns(5).Copy
Worksheets("Les Règles Prudentielles").Columns(3).PasteSpecial Paste:=xlPasteValues
Worksheets("Tableau Général").Columns(6).Copy
Worksheets("Les Règles Prudentielles").Columns(4).PasteSpecial Paste:=xlPasteValues
Worksheets("Tableau Général").Columns(6).Copy
Worksheets("Les Règles Prudentielles").Columns(5).PasteSpecial Paste:=xlPasteValues
Worksheets("Tableau Général").Columns(7).Copy
Worksheets("Les Règles Prudentielles").Columns(6).PasteSpecial Paste:=xlPasteValues
Worksheets("Tableau Général").Columns(13).Copy
Worksheets("Les Règles Prudentielles").Columns(7).PasteSpecial Paste:=xlPasteValues
Worksheets("Tableau Général").Columns(14).Copy
Worksheets("Les Règles Prudentielles").Columns(8).PasteSpecial Paste:=xlPasteValues
Worksheets("Tableau Général").Columns(15).Copy
Worksheets("Les Règles Prudentielles").Columns(9).PasteSpecial Paste:=xlPasteValues
Worksheets("Tableau Général").Columns(16).Copy
Worksheets("Les Règles Prudentielles").Columns(10).PasteSpecial Paste:=xlPasteValues
Worksheets("Tableau Général").Columns(17).Copy
Worksheets("Les Règles Prudentielles").Columns(11).PasteSpecial Paste:=xlPasteValues
Worksheets("TableauGénéral").Columns(18).Copy
Worksheets("Les Règles Prudentielles").Columns(12).PasteSpecial Paste:=xlPasteValues
End Sub

Code:

Sub ExtractionDonnéesFeuil1()
Worksheets("Tableau Général").Columns(1).Copy Worksheets("Les Règles Prudentielles").Columns(1)
Worksheets("Tableau Général").Columns(2).Copy Worksheets("Les Règles Prudentielles").Columns(2)
Worksheets("Tableau Général").Columns(5).Copy Worksheets("Les Règles Prudentielles").Columns(3)
Worksheets("Tableau Général").Columns(6).Copy Worksheets("Les Règles Prudentielles").Columns(4)
Worksheets("Tableau Général").Columns(6).Copy Worksheets("Les Règles Prudentielles").Columns(5)
Worksheets("Tableau Général").Columns(7).Copy Worksheets("Les Règles Prudentielles").Columns(6)
Worksheets("Tableau Général").Columns(13).Copy Worksheets("Les Règles Prudentielles").Columns(7)
Worksheets("Tableau Général").Columns(14).Copy Worksheets("Les Règles Prudentielles").Columns(8)
Worksheets("Tableau Général").Columns(15).Copy Worksheets("Les Règles Prudentielles").Columns(9)
Worksheets("Tableau Général").Columns(16).Copy Worksheets("Les Règles Prudentielles").Columns(10)
Worksheets("Tableau Général").Columns(17).Copy Worksheets("Les Règles Prudentielles").Columns(11)
Worksheets("Tableau Général").Columns(18).Copy Worksheets("Les Règles Prudentielles").Columns(12)
End Sub

Les deux codes sont intégrés à ma feuille et fonctionnaient très bien.

cordialment

Compte Supprimé 979 · 25 Juin 2010

Re : Erreur '1004' et attribution d'un bouton à 2 codes

Salut,

Si quelqu'un à une autre piste merci infiniment de la suggérer!

Une piste, facile, joindre le fichier sur le forum ou sur Cijoint

Sans ça, je ne vois pas comment nous pourrons t'aider 🙄

A+

Fo_rum · 25 Juin 2010

Re : Erreur '1004' et attribution d'un bouton à 2 codes

salut

une piste : dans la série "je me trompe", l4 n'est pas14 !

Feuil1 et Feuil2 corespondant à "Tableau Général" et "Les Règles Prudentielles", autre style :

Code:

Sub ExtractionColonneFeuil1()
  With Feuil2
    Feuil1.Columns(1).Copy
    .Columns(1).PasteSpecial Paste:=xlPasteValues
    Feuil1.Columns(2).Copy
    .Columns(2).PasteSpecial Paste:=xlPasteValues
    Feuil1.Columns(5).Copy
    .Columns(3).PasteSpecial Paste:=xlPasteValues
    Feuil1.Columns(6).Copy
    .Columns(4).PasteSpecial Paste:=xlPasteValues
    Feuil1.Columns("F:G").Copy
    .Columns("E:E").PasteSpecial Paste:=xlPasteValues
    Feuil1.Columns("M:R").Copy
    .Columns("G:G").PasteSpecial Paste:=xlPasteValues
  End With
End Sub

Sub ExtractionDonnéesFeuil1()
  With Feuil2
    Feuil1.Columns("A:B").Copy .Columns("A:A")
    Feuil1.Columns("E:F").Copy .Columns("C:C")
    Feuil1.Columns("F:G").Copy .Columns("E:E")
    Feuil1.Columns("M:R").Copy .Columns("G:G")
  End With
End Sub

Sub ClicBouton2()
  ExtractionColonneFeuil1
  ExtractionDonnéesFeuil1
End Sub

argaz01 · 28 Juin 2010

Re : Erreur '1004' et attribution d'un bouton à 2 codes

Bonjour tout le monde,

En ce qui concerne el code proposé:

Code:

Sub ExtractionColonneFeuil1()
  With "Les Règles Prudentielles" 'Feuil2
    TableauGénéral.Columns(1).Copy
    .Columns(1).PasteSpecial Paste:=xlPasteValues
    TableauGénéral.Columns(2).Copy
    .Columns(2).PasteSpecial Paste:=xlPasteValues
    TableauGénéral.Columns(5).Copy
    .Columns(3).PasteSpecial Paste:=xlPasteValues
    TableauGénéral.Columns(6).Copy
    .Columns(4).PasteSpecial Paste:=xlPasteValues
    TableauGénéral.Columns("F:G").Copy
    .Columns("E:E").PasteSpecial Paste:=xlPasteValues
    TableauGénéral.Columns("M:R").Copy
    .Columns("G:G").PasteSpecial Paste:=xlPasteValues
  End With
End Sub

Sub ExtractionDonnéesFeuil1()
  With ("Les Règles Prudenteilles")
    TableauGénéral.Columns("A:B").Copy .Columns("A:A")
    TableauGénéral.Columns("E:F").Copy .Columns("C:C")
    TableauGénéral.Columns("F:G").Copy .Columns("E:E")
    TableauGénéral.Columns("M:R").Copy .Columns("G:G")
  End With
End Sub

Sub ClicBouton2()
  ExtractionColonneFeuil1
  ExtractionDonnéesFeuil1
End Sub

j'ai l'erreur suivante: l'objet associé avec with doit être de type défini par l'utilisateur, objet ou variant, en plus j'ai une erreur du genre nom avec ambiguité sur Cijoint.fr - Service gratuit de dépôt de fichiers
ma 1ère ligne.

Sinon ci-joint un lien vers mon fichier:, en vous remerciant d'avance pour votre aide.

Cordi@lement

Cousinhub · 28 Juin 2010

Re : Erreur '1004' et attribution d'un bouton à 2 codes

Bonjour,

OK, on a ton fichier, mais tu aurais pu laisser le code qui ne fonctionnait pas, ainsi que tous les codes, s'il y en avait d'autres...

Dans le code que tu montres, où as-tu vu cette ligne?

Code:

With ("Les Règles Prudenteilles")

Fo_rum te met ceci :

Code:

With Feuil2

Ce n'est pas par hasard....

A la rigueur, tu peux mettre ceci :

Code:

With Sheets("Les Règles Prudenteilles")

Pour le nom ambigu, ça va être moins simple...

Regarde si tu n'as pas deux codes ayant le même nom

bonne journée

argaz01 · 28 Juin 2010

Re : Erreur '1004' et attribution d'un bouton à 2 codes

Le code a l'air d'avancer mieux que le 1er, mais il renvoie la même erreur à partir de la ligne

Code:

Feuil1.Columns("M:R").Copy

. De plus, il copie la colonne "Garantie" deux fois.

Cordialment

Compte Supprimé 979 · 28 Juin 2010

Re : Erreur '1004' et attribution d'un bouton à 2 codes

Salut Argaz01,

As-tu une feuille nommée "Feuil1" au moins 🙄

Mieux vaut utiliser la syntaxe avec Sheets()

Code:

Sheets("Feuil1").Columns("M:R").Copy

A+

argaz01 · 28 Juin 2010

Re : Erreur '1004' et attribution d'un bouton à 2 codes

Même en changeant la syntaxe, j'ai toujours la même erreur, en plus le code copie la colonne "Garantie" deux fois!

Merci pour le temps que tu me consacre

Cordialement

argaz01 · 29 Juin 2010

Re : Erreur '1004' et attribution d'un bouton à 2 codes

C'est bon les gars ça marche, en fait il fallait juste effacer le tableau produit par la macro et relancer cette dernière pour qu'elle puisse marcher, c'est un peu dommage!! sinon y'a quelques défaut du genre des bordures décalées.

Merci bcp les gars pout votre aide

Cordialement

Erreur '1004' et attribution d'un bouton à 2 codes

argaz01

Guest

Compte Supprimé 979

Guest

Fo_rum

XLDnaute Accro

argaz01

Guest

Cousinhub

XLDnaute Barbatruc

argaz01

Guest

Compte Supprimé 979

Guest

argaz01

Guest

argaz01

Guest

Discussions similaires

Erreur '1004' et attribution d'un bouton à 2 codes

argaz01

Guest

Compte Supprimé 979

Guest

Fo_rum

XLDnaute Accro

argaz01

Guest

Cousinhub

XLDnaute Barbatruc

argaz01

Guest

Compte Supprimé 979

Guest

argaz01

Guest

argaz01

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency