Copier un tableau dans une autre sur Excel

Version imprimable

04/10/2022, 21h04
EtiennePat

2 pièce(s) jointe(s)

Copier un tableau dans une autre sur Excel

Bonjour à tous !

Après de longues heures à avoir fouillé les forums et tenter de maintes fois, je me tourne vers vous pour de l'aide.

Voici mon projet :

Je veux me créer un excel de suivi d'entrainements et apprendre le VBA via ce projet.
Pour cela, je veux avoir un tableau1 qui me permet d'archiver ce que je fais à chaque séance, tandis qu'un autre tableau2 me montre la dernière séance réalisée (actualisée à chaque fin de séance)(afin de ne pas avoir à regarder un tableau immense à chaque entraînement).

Ainsi, je veux pouvoir créer une macro qui me permet de copier coller le tableau2 dans le tableau1 à partir de la première case vide, afin de pouvoir tracer ma progression. Le tableau2 deviendrait donc des colonnes dans le tableau1 représentant une des N semaines où je me suis entrainer.

Si vous avez des conseils des propositions ça m'arrangerait.

Bonne soirée à tous !

PS : ci joint, la photo de mes deux tableau, le petit dont je veux coller les valeurs numériques dans le grand

Pièce jointe 626666
Pièce jointe 626667
04/10/2022, 21h10
nicogef

bonjour,
pouvez vous nous mettre un fichier excel avec les deux tableaux avec de donné?
cdlt
nicogef
04/10/2022, 21h13
EtiennePat

Citation:

Envoyé par nicogef

bonjour,
pouvez vous nous mettre un fichier excel avec les deux tableaux avec de donné?
cdlt
nicogef

Bonsoir,

Merci pour votre réactivité, je viens d'actualiser mon message initial

bonjour,
ci joint un exemple de macro avec des cellules au nom defini

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
 
Sub Macro2()
'
' Macro2 Macro
'
Dim derncol
Dim ligne
'
    Range("nouvelle_seance").Copy  '"nouvelle_seance" , "seance_precedente", "historique" = nom de cellule
    Range("seance_precedente").PasteSpecial
 
    ligne = Range("historique").Row
With Sheets("journal")
    derncol = .Cells(4, Cells.Columns.Count).End(xlToLeft).Column + 1
    .Cells(ligne, derncol).PasteSpecial
    .Cells(ligne - 1, derncol).Value = .Cells(ligne - 1, derncol - 2).Value + 1
End With
End Sub

Cdlt
nicogef

Citation:
Envoyé par nicogef
bonjour,
ci joint un exemple de macro avec des cellules au nom defini
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Sub Macro2() ' ' Macro2 Macro ' Dim derncol Dim ligne ' Range("nouvelle_seance").Copy '"nouvelle_seance" , "seance_precedente", "historique" = nom de cellule Range("seance_precedente").PasteSpecial ligne = Range("historique").Row With Sheets("journal") derncol = .Cells(4, Cells.Columns.Count).End(xlToLeft).Column + 1 .Cells(ligne, derncol).PasteSpecial .Cells(ligne - 1, derncol).Value = .Cells(ligne - 1, derncol - 2).Value + 1 End With End Sub
Cdlt
nicogef
Bonjour,

Désolé pour la réponse tardive, mais merci, ce code fonctionne à merveille.
Cordialement
Bonne fin de weekend