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

[argaz01]

(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:

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

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]

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]

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 :

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]

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

Bonjour tout le monde,


En ce qui concerne el code proposé:

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]

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?

With ("Les Règles Prudenteilles")

Fo_rum te met ceci :

With Feuil2

Ce n'est pas par hasard....

A la rigueur, tu peux mettre ceci :

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]

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

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

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


Cordialment

 

[Compte Supprimé 979]

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()

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

A+

 

[argaz01]

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]

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