XL 2010 Créer un historique en décalant la copie d'une colonne à chaque fois

channoyer · 18 Octobre 2021

Bonjour,

je souhaiterais créer un historique de valeurs qui se crée à chaque modification de ces valeurs.
Voici la macro que j'ai pour l'instant :

Sub Historique()
Dim Ligne As Long
Ligne = Sheets("Historic").Cells(Rows.Count, 1).End(xlUp).Row + 1
[Feuil1!D4:AB4].Copy
Sheets("Historic").Cells(Ligne, 1).PasteSpecial xlPasteValues, Transpose:=True
End Sub

Mon problème est que l'historique se crée sur une seule colonne alors que je voudrais le décaler d'une colonne à chaque fois.

Chris401 · 18 Octobre 2021

Bonsoir

VB:

Sub Historique()
Dim col As Integer
With Sheets("Historic")
col = .Cells(1, .Columns.Count).End(xlToLeft).Column + 1
[Feuil1!D4:AB4].Copy
.Cells(1, col).PasteSpecial xlPasteValues, Transpose:=True
End With
End Sub

channoyer · 20 Octobre 2021

Merci beaucoup, cela fonctionne parfaitement

XL 2010 Créer un historique en décalant la copie d'une colonne à chaque fois

channoyer

XLDnaute Nouveau

Chris401

XLDnaute Accro

channoyer

XLDnaute Nouveau

Discussions similaires