Intégrer un tableau d'un onglet dans un autre onglet. [Résolu]

[zuli3n]

Bonjour à tous,

Je suis en train de me concocter un fichier qui me servira de suivi sportif.
Dans ce fichier j'ai un onglet "Suivi" et un onglet "Tableau_Ref". Dans "Suivi" j'ai mis un Bouton "Création séance" et je voudrais en cliquant sur ce bouton, dans un premier temps, qu'il m’intègre à partir de A9 le tableau qui se troue dans l'onglet "Tableau_Ref".

Je vous joins mon fichier, car moi j'avoue ça me dépasse ...

En vous remerciant,
Cordialement.

 

[Papou-net]

Re : Intégrer un tableau d'un onglet dans un autre onglet.

Bonjour zuli3n (et néanmoins voisin),

Si j'ai bien compris la question, voici une solution dans le fichier ci-joint.

Bon dimanche.

Cordialement.

 

[zuli3n]

Re : Intégrer un tableau d'un onglet dans un autre onglet.

Re Papou-net,

J'avoue l'intégration se fait bien, néanmoins le tableau s’intègre pas au complet, si tu matte bien tout a droite il manque le bord du tableau, mais surtout je perds toutes les formules du "Tableau_Ref"
Je remarque aussi que je perds, lors de l'intégration le bouton "Enregistrement Séance" en bas à droite du "Tableau_Ref"

Merci Papou-net,
Cordialement.

 

[zuli3n]

Re : Intégrer un tableau d'un onglet dans un autre onglet.

Re Papou-net,

J'ai en modifiant ton script pu avoir la totalité du tableau, et en enlevant la protection de la feuille sur "Tableau_Ref" le tableau intègre bien les formules dans "Suivi" 🙂
Mais je comprends pas pourquoi, une fois intégré, le tableau perd le bouton "Enregistrement Séance" ... 😕

Merci,
Cordialement.

 

[zuli3n]

Re : Intégrer un tableau d'un onglet dans un autre onglet.

Re,

Bon j'ai changé l'organisation de se bouton "Enregistrement séance" cela ne pose plus de problème 🙂
Encore merci.

Cordialement.

 

[Papou-net]

Re : Intégrer un tableau d'un onglet dans un autre onglet.

Re :

Pour recopier la hauteur des lignes supérieure et inférieure, ajoutes les deux lignes suivantes :

Private Sub CommandButton2_Click()
Sheets("Tableau_Ref").Range("A3:Q26").Copy Destination:=ActiveSheet.Range("A9")
Range("A9").RowHeight = 4.5
Range("A32").RowHeight = 4.5
End Sub

Tu remarqueras que j'ai modifié la zone copiée "Range("A3:Q26")" car la colonne de droite n'était pas colorée.

Cordialement.

 

[zuli3n]

Re : Intégrer un tableau d'un onglet dans un autre onglet.

Re Papou-net,

Merci, je commence à comprendre un peu ton script 🙂

Cordialement.