Discussion :

[EtiennePat]

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

[nicogef]

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

[EtiennePat]

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

[nicogef]

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

Code :

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

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

[EtiennePat]

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

Code :

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

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