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

 

[Ubot303]

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

Bonjour,

Ce type d'erreur intervient sur des "Objets".
Vérifie que tes onglets s'appellent bien "Tableau Général" et "Les Règles Prudentielles"

Sinon tu peux envoyer le fichier plutot que des bouts de code stp?

 

[argaz01]

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

Pour les objets, j'ai bien vérifié et les noms correspondent bien, quant aux fichiers ils sont trop lourds (plusieurs MO) pour être joints. Mon erreur '1004' commence à la ligne :

Worksheets("Tableau Général").Columns(14).Copy

mais je ne vois pas l'erreur!

Sinon comment faire pour attribuer les 2 codes à un seul et même bouton?

D'avance merci

Cordialement

 

[Ubot303]

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

Re,

Il existe une colonne 14 sur ton onglet?

Pour affecter 2 macros à un bouton :

Private Sub CommandButton1_Click()
Macro1
Macro2
End Sub

Il va lancer ta macro1 puis des qu'il aura terminé ta macro2.

 

[argaz01]

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

Merci Ubot303. Pour l'attribution du bouton c'est ok, par contre l'erreur '1004' est toujpours là et j'ai bien une 14ème colonne dans ma feuille "Tableau Général"! j'ai beau cherché je trouve pas l'erreur!

Cordialment

 

[Ubot303]

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

Peux-tu alléger ton fichier en ne mettant que les 2 premières lignes de données des 2 onglets concernés?

Ca ne devrait pas peser très lourd...

 

[argaz01]

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

Ok, ci-joint les fichiers concernés (feuil1 et feuil 2). et merci à toi

 

[Ubot303]

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

Je n'ai aucune macro a éxécuter dans ton fichier...
De plus, les onglets ne sont pas nommés comme dans la macro...

Normal que tu aies des erreurs...
Peux-tu me rajouter la macro ainsi que le bon nom des onglets?

 

[argaz01]

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

Désolé, j'avais pas fait attention. Voilà de nouveau le fichiers avec les éléments demandés.


Cordialement

 

[Ubot303]

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

Bien c'est lancé... aucune erreur chez moi...
Les 12 colonnes ont bien été créées avec les valeurs...

Reclic sur le gros bouton pour voir...

 

[argaz01]

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

Oui ça marche bien sur le fichier allégé que j't'ai envoyé mais pas sur l'original!!
c'est dingue non!?

Cordialement

 

[Ubot303]

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

Non ca ne m'étonne pas trop : le code étant bon, il y a forcément un élément objet extérieur qui vient perturber... un autre onglet d'un autre fichier nommé Tableau général ou autres...

As-tu essayé avec uniquement le fichier original d'ouvert?

 

[Compte Supprimé 979]

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

Bonjour le fil

Il ne faut pas confondre

Worksheets("Tableau G[B][COLOR=Blue]é[/COLOR][/B]n[B][COLOR=Blue]é[/COLOR][/B]ral").Columns(14).Copy

et

Worksheets("Tableau G[COLOR=Blue][B]e[/B][/COLOR]n[B][COLOR=Blue]e[/COLOR][/B]ral").Columns(14).Copy

Ou mettre 2 espaces alors qu'il y en a qu'un

En tout cas cette erreur signale que l'objet feuille nommée "Tableau Général" pose problème

A+

 

[Ubot303]

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

Moi j'ai vérifié que la syntaxe de l'onglet soit correct dans mon fichier
Ainsi que dans les lignes de codes postées dans le sujet du post 1

 

[argaz01]

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

Bonjour les forumers et merci pour vos réponses.

J'ai tout vérofié sur les feuilles, le codes et tout les éléments sont identiques et pourtant j'ai toujours la même erreur '1004'!! et j'ai un autre code semblable mais pour copier coller une autre partie du même tableau qui marche très bien! mais pourquoi donc celui-ci ne fonctionne pas? Si quelqu'un à une autre piste merci infiniment de la suggérer!


Cordialment