Insérer la date avec une bouton en VBA

Je suis débutant en VBA , je veux crée une bouton pour insérer la date dans une seule colonne "Date" et pour chaque click en passe a ligne suivante.

Exemple :

A4 contient une date
Click A5=Date Aujourdhui
etc

Code :

Code:

---

1 2 3 4 5

Private Sub CommandButton1_Click() ActiveCell.FormulaR1C1 = DateValue(Date) ActiveCell.Offset(0, 1).Range("A1").Select End Sub

---

oui ok

en fait ce qu'il te faut c'est déterminé la ligne suivante tout simplement car les select(mauvaise habitude a perdre ) ralentissent beaucoup la mécanique

donc tes dates sont en colonne "A"

on va donc chercher la première ligne de libre après les précédentes
pour cela il y a par exemple cet petite ligne de code

Code:

---

1 2 3

set macellule=range("A" & range("A"& rows.count ).end(xlup).row ) 'tu peut faire apres macellule.offset(,1)=format(Date,"dd/mm/yyyy")'format le plus classique

---

tu peut faire la chose directement aussi

Code:

---

range("A" & range("A"& rows.count ).end(xlup).row ).offset(,1)=format(Date,"dd/mm/yyyy")'format le plus classique

---

l'une ou l'autre tu la met dans la sub du bouton

edit Autant pour moi j'avais oublié les offsets maintenant c'est bon
au plaisir

Bonjour

Citation:

---

Envoyé par daboussiarafet

Code:

---

1 2 3 4 5

Private Sub CommandButton1_Click() ActiveCell.FormulaR1C1 = DateValue(Date) ActiveCell.Offset(0, 1).Range("A1").Select End Sub

---

---

Comme ceci, ça devrait fonctionner :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub CommandButton1_Click()   Dim f As Worksheet, ligne As Long, Ladate As Date     Set f = ActiveSheet 'ou Set f = ThisWorkbook.Worksheets("Feuil1")   ligne = f.Cells(Rows.Count, 1).End(xlUp).Row   Ladate = DateValue(Now) 'Date   f.Cells(ligne, 1).Offset(1, 0).Value = Ladate   End Sub

---

Ou encore

Code:

---

1 2 3 4 5 6

Private Sub CommandButton1_Click()   With ThisWorkbook.Worksheets("Feuil1") .Cells(.Rows.Count, 1).End(xlUp)(2) = Date End With End Sub

---