Discussion :

[sasch]

Bonjour,
Je voudrai fixé la date dans une cellule.

J'ajoute une ligne automatiquement avec le code.

Code :

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

1
2
3
4
5
6
7
8
Sub ligneajout()
Dim derligne As Integer
derligne = Range("A" & Rows.Count).End(xlUp).Row
 
Cells(derligne, "A").Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(0, 0).FormulaLocal = "=AUJOURDHUI()"
ActiveCell.Offset(0, 1).Value = "11"

Malheureusement, le champs se rempli avec AUJOURDHUI().
Conclusion dans mon tableau excel la date change toujours à la date d'aujourd'hui.

Il faut que quand j’injecte une nouvelle ligne, la date doit se convertir en valeur pour qu"elle ne bouge plus.

Pouvez-vous m'aider svpl?

[Menhir]

Code :

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

1
2
3
4
5
6
Sub ligneajout()
Dim derligne As Long
derligne = Cells(Rows.Count, "A").End(xlUp).Row + 1
 
Cells(derligne, "A").Value = Now()
Cells(derligne, "B").Value = 11

Mais je préfère :

Code :

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

1
2
3
4
5
6
Sub ligneajout()
Dim derligne As Range
Set derligne = Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
 
derligne.Value = Now()
derligne.Offset(0, 1).Value = 11

[Philippe Tulliez]

Bonjour,
Il est normal que si tu écris la formule AUJOURDHUI dans une cellule, Excel te renvoie la date du jour et que celle-ci soit différente chaque jour
En VBA la fonction qui renvoie la date du jour est Date() soit ActiveCell.Offset(0, 0).Value = Date()
Petits conseils :
Lorsque l'on doit insérer une formule dans Excel et pour éviter des problèmes si le classeur est utilisé avec une autre interface linguistique, il y a lieu de privilégier la propriété Formula au lieu de FormulaLocal
Il n'y a aucune raison d'utiliser Select et Selection en VBA pour écrire et lire dans une cellule.

[sasch]

Merci à tous.