Discussion :

[daboussiarafet]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Docmarti]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

Ou encore

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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