VBA cellule active date du jour Résolu/Fermé

Question

Bonjour, 

J'essaye d'automatiser un fichier utilisé tout les jours.
Dans la colone A j'implémente la date du jour (manuellement), ce que je souhaite faire par VBA :

Inserer la date du jour automatiquement lorsque je clique sur une cellule vierge.
En gros je clique sur la cellule A240 il met la date du jour, demain je cliquerais sur la cellule A245 il mettra la date du jour ou je clic....

Petite précision je créer une feuille par mois il faut que cela soit effectif sur toutes les feuilles.

Merci de m'éclairer dans ce petit bout de code.

Configuration: Windows 7 / Internet Explorer 8.0

Polux31 · Answer

Bonjour,

Dans l'éditeur VB (Alt+F11) coller ce code pour toutes les feuilles mensuelles (feuil1, feuil2, feuil3 etc ...). Il faut un double clique gauche dans la cellule de la colonne A pour afficher la date.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Target.Column <> 1 Then Exit Sub
    Target = Module1.datedujour
    
End Sub

Dans un module (ici module1) mettre le code suivant :
Public Function datedujour() As Date
    datedujour = Date
End Function

;o)

Didoch54000 · Answer

Merci Mosieur Polux 31, c'est exactement ce qu'il me fallait c'est plus ou moins ce que j'avais fait sauf que moi ca ne marchait pas :-)

J'avais fait un truc comme ca :

Private Sub AjoutDate()
    If ActiveCell.Value = "" Then
    ActiveCell.FormulaR1C1 = DateValue(Now)
    Else: Exit Sub
    End If
End Sub

En tout cas merci bcp.

VBA cellule active date du jour

2 réponses

Discussions similaires