XL 2019 Tableau et vba.

Staple1600

XLDnaute Barbatruc

• 7 Mars 2021

• #2

Bonjour

Affecte cette macro à ton bouton

VB:

Sub test()
Dim t As ListObject
Set t = ActiveSheet.ListObjects(1)
t.ListRows.Add.Range(1, 1).Value = Date
End Sub

La date est insérée dans une nouvelle ligne et les formules existantes recopiées.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 7 Mars 2021

• #3

Bonsoir Paulle,
Je pense qu'il suffit de changer :

VB:

Sub DerniereLigne()
'Feuille Cours
Range("a2").End(xlDown).Offset(1, 0) = Date

De toute façon y mettre la formule =aujourdhui() est une mauvaise idée, elle changera de valeur demain.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Mars 2021

• #4

Re

Et la même mais en version courte

VB:

Sub test_II()
ActiveSheet.ListObjects(1).ListRows.Add.Range(1, 1).Value = Date
End Sub

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Mars 2021

• #5

Bonjour sylvanu

Tu n'aimes pas ma one-liner ?
(voir message 2 et 4)

 

Vote positif 0 Vote négatif

P

Paulle

XLDnaute Occasionnel

• 7 Mars 2021

• #6

J'essaie de mettre en pratique et je reviens vers vous.
Merci.

 

Vote positif 0 Vote négatif

P

Paulle

XLDnaute Occasionnel

• 7 Mars 2021

• #7

C'est parfait, je vois que j'ai beaucoup à apprendre.
J'aurais voulu que les valeurs des colonnes B, C et de la dernière ligne soient recopiées.
Je modifie uniquement les cellules qui ont changé.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Mars 2021

• #8

Re

Comme ceci?

VB:

Sub test_III()
With ActiveSheet.ListObjects(1).ListRows.Add
    .Range(1, 1).Value = Date
    .Range(1, 2).Resize(, 2) = .Range(0, 2).Resize(, 2).Value
    .Range(1, 5) = .Range(0, 5).Value
End With
End Sub

 

Vote positif 0 Vote négatif

Solution

P

Paulle

XLDnaute Occasionnel

• 7 Mars 2021

• #9

Merci Staple c'est exactement ce que je voulais.

 

Vote positif 0 Vote négatif