Discussion :

[Willyson]

Bonjour à tous,
Je suis nouveau dans ce forum,
J'ai un problème avec mon code Vba , quand je lance ,il s'execute normalement jusqu'à cette ligne de commande (Range("aj16") = Range(Range("ak15")) où survient l'ERREUR 1004 (Method Range of object Global Failed ).
Merci d'avance

[clementmarcotte]

Bonjour,

Tu veux faire quoi avec cette ligne-là, parce que, telle que tu l'as écrite, c'est une instruction invalide.

Mais comme personne n'a de boule de cristal, tu devrais préciser ce que tu veux faire et montrer ton code indenté et balisé.

[Willyson]

Rebonjour
Excusez moi pour ne pas avoir été clair dans mon precedent message

Je modifie un code qui me permet de transférer des données d'un classeur à un autre .
A la base le transfert se faisait en cliquant successivement sur trois boutons , mais l'idée est de modifier le code afin qu'il fasse le transfert d'un coup.
Du coup j'ai associé les macros correspondantes aux trois autres boutons pour en faire une nouvelle macro, que j'ai assigné à un nouveau bouton.malheureusement quand je lance le code, j'ai une erreur sur cette ligne Range("aj16") = Range(Range("ak15")),
qui marchait correctement quand jes 3 programmes etaient séparés.

Merci d'avance

[pboiteux]

Je ne vois pas vraiment ce que tu veux faire avec cette ligne, mais si tu n'as pas envie de tout re-coder proprement (ce que je te conseillerais pourtant de faire), le mieux c'est de garder le code de tes trois boutons qui doit ressembler à ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub bouton1 ()
    'Ton code
End Sub
Sub bouton2 ()
    'Ton code
End Sub
Sub bouton3 ()
    'Ton code
End Sub

Puis de rajouter le code pour un nouveau bouton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub nouveauBouton ()
    bouton1
    bouton2
    bouton3
End Sub

De cette manière tu es sûr de ne pas altérer le code existant.