code VBA copier coller sur derniere ligne

Version imprimable

04/09/2024, 11h07
rodflodds

1 pièce(s) jointe(s)

code VBA copier coller sur derniere ligne

Bonjour a tous

Je fais appel a une bonne âme qui pourrait m’ aider a solutionner un probleme.

J’ ai un tableau Excel qui s’ étend de la colonne A a G.

Je cherche a créer une macro qui me permettrait d’ ajouter automatiquement une ligne supplémentaire au tableau en copiant la quatrième ligne du tableau en remontant a partir de la dernière ligne non vide et qui se collerait sur la première ligne vide de mon tableau. De facto, la ligne a copier ne serait jamais la même a chaque utilisation de la macro compte tenu que le tableau augmenterait d’ une ligne a chaque utilisation. je joins une capture d' écran du tableau pour être plus explicite, concretement apres avoir lancé la macro, je souhaiterai que les cellules A3:G3 soient copiées en A7:G7

J’ espère avoir été clair dans ma question et désolé par avance si la question a été posée et solutionnée.
Merci par avance

Pièce jointe 658946

bonjour
teste avec prudence sur une copie de ton fichier

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test()
 Dim F As Worksheet
 Dim lig As Long
 Dim l As Integer
 Application.ScreenUpdating = False
   Set F = Sheets("Feuil1")
   lig = F.Range("A" & Rows.Count).End(xlUp).Row
   l = lig - 3
   F.Cells(lig + 1, "A") = F.Cells(l, "A")
   F.Cells(lig + 1, "A").NumberFormat = "m/d/yyyy"
   For col = 3 To 7
   F.Cells(lig + 1, col) = F.Cells(l, col)
   Next col
   Application.ScreenUpdating = True
End Sub

04/09/2024, 12h02
rodflodds

Merci bcp pour ta réponse

alors cela fonctionne très bien dans le sens ou la ligne se reporte précisemment a l' endroit ou il faut .
le Hic pour être plus complet, c' est que le tableau est alimenté de façon automatique par une autre feuille qui se trouve sur le même fichier a l' aide de formules.
a l' éxecution de la macro les formules de la ligne source n' apparaissent plus sur la ligne de destination. et j' ai besoin de ces formules.
Comment faire stp pour conserver les formules sur la ligne de destination ?

Merci par avance

voir avec :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub test()
 Dim F As Worksheet
 Dim lig As Long
 Dim l As Integer
 Application.ScreenUpdating = False
   Set F = Sheets("Feuil1")
   lig = F.Range("A" & Rows.Count).End(xlUp).Row
   l = lig - 3
   F.Cells(l, "A").Copy Destination:=F.Cells(lig + 1, "A")
   F.Cells(lig + 1, "A").NumberFormat = "m/d/yyyy"
   F.Cells(lig + 1, "B") = F.Cells(lig, "B") + 1
   For col = 3 To 7
   F.Cells(l, col).Copy Destination:=F.Cells(lig + 1, col)
   Next col
   Application.ScreenUpdating = True
End Sub

04/09/2024, 23h01
rodflodds

Merci bcp . Cela fonctionne a la perfection