XL 2019 Tableau et vba.

[Paulle]

Bonjour,

Je me lance, je débute en vba.

Voilà ce que j'essaie de faire.
Dans le tableau, insérer la date du jour dans la première cellule vide de la colonne "A".
Ensuite, sélection des cellules "B" à "F" et copy dans la ligne vide du dessous de "B" à "F".
Je modifie uniquement les valeurs en "B,C et E" si elles ne conviennent pas.
Tout cela avec "Bouton 6".

Après l'appui sur le bouton, c'est bizarre.

J'ai fait "Convertir en Plage" et là ça fonctionne.

 

[Staple1600]

Bonjour

Affecte cette macro à ton bouton

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.

 

[sylvanu]

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

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.

 

[Staple1600]

Re

Et la même mais en version courte

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

 

[Staple1600]

Bonjour sylvanu

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

 

[Paulle]

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

 

[Paulle]

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é.

 

[Staple1600]

Re

Comme ceci?

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

 

[Paulle]

Merci Staple c'est exactement ce que je voulais.