VBA cellule active date du jour
Résolu
Didoch54000
Messages postés
308
Date d'inscription
Statut
Membre
Dernière intervention
-
Didoch54000 Messages postés 308 Date d'inscription Statut Membre Dernière intervention -
Didoch54000 Messages postés 308 Date d'inscription Statut Membre Dernière intervention -
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.
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.
A voir également:
- Date du jour vba
- Mise a jour chrome - Accueil - Applications & Logiciels
- Mise a jour windows 10 - Accueil - Mise à jour
- Mettre a jour chromecast - Accueil - Guide TV et vidéo
- Trouver une date de naissance gratuit - Forum Webmastering
- Comment mettre à jour ses pilotes - Guide
2 réponses
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.
Dans un module (ici module1) mettre le code suivant :
;o)
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)