Aide sur la fonction de copier/coller en VBA

[benirobi]

Bonjour à tous !

mon problème est le suivant :
Sur mon fichier excel, j'ai réaliser un bout de code me permettant, à l'aide d'un bouton, de copier/coller les cellules (avec la mise en forme) d'une feuille (ex : Tableau Général) à une autre (ex : Liste Document). Cela fonction très bien.

Cependant, dans la feuille "Tableau Général", j'ai une cellule qui fait référence à une autre cellule dans la même feuille, et lorsque que je lance mon petit bout de code, il y a un décalage de cellule.

Je m'explique : dans la feuille "Tableau Générale", la cellule D2 renvoi à la cellule F8. Je lance la fonction copier/coller. Dans la feuille "Liste Document", la cellule D8 correspond à la cellule F8 de la feuille "Tableau Générale", et donc de la cellule D8.

Et justement, ce n'est pas le cas. Pour illustrer mon problème, voici le fichier.

Merci d'avance pour tous ceux qui peuvent m'aider !!
Benjamin.

 

[hbenalia]

Re : Aide sur la fonction de copier/coller en VBA

Bonjour à tous,


Si j'ai bien saisi le problème, tu veux garder la même référence? Les formules se référant à la cellule D2 de la feuille "Tableau Général" étaient au format Texte dans ton fichier et corrigées au format "Standard" puis validées de nouveau... La cellule référence D2 a été nommée "REF" par la formule

='Tableau Général'!$A$2

(référence absolue)... Et les formules faisant référence à cette cellule

="PSI/"&A2

sont remplacées par la formule:

="PSI/"&REF

... Voir fichier attaché.

En espérant comprendre la question et venir à ton aide...

Cordialement

 

[benirobi]

Re : Aide sur la fonction de copier/coller en VBA

Et bien super merci !!!
Cela fonctionne parfaitement !!!

As tu regardé le code ? Y a t il plus simple pour réaliser la même fonction ? Et même (si c'est possible) de raccourcir le temps du processus ?

Merci !!

 

[hbenalia]

Re : Aide sur la fonction de copier/coller en VBA

Bonjour benirobi, bonjour le forum

Pour le code je ne vois pas l'utilité des lignes:

         For j = 1 To 100
         Rows(j).RowHeight = .Rows(j).RowHeight
         Next j

et en plus ces commandes ralentissent l'exécution de la macro!!!

Essayes d'exécuter la macro sans ces lignes....

Cordialement

 

[benirobi]

Re : Aide sur la fonction de copier/coller en VBA

En faite ce bout de code permet de reprendre la mise en forme des lignes que je copie.

Effectivement je crois bien que c'est cela qui ralentit l’exécution de la macro.
Existe il un autre bout de code faisant la même chose (mise en forme des cellules, bordure....) mais plus simple et plus pratique ?

Merci !!