VBA cellule active date du jour
Résolu/Fermé
Didoch54000
Messages postés
308
Date d'inscription
vendredi 16 février 2007
Statut
Membre
Dernière intervention
27 décembre 2012
-
1 août 2011 à 16:52
Didoch54000 Messages postés 308 Date d'inscription vendredi 16 février 2007 Statut Membre Dernière intervention 27 décembre 2012 - 2 août 2011 à 08:54
Didoch54000 Messages postés 308 Date d'inscription vendredi 16 février 2007 Statut Membre Dernière intervention 27 décembre 2012 - 2 août 2011 à 08:54
A voir également:
- Vba date du jour
- Mettre à jour ses pilotes - Guide
- Jm date - Forum Consommation & Internet
- Whatsapp date incorrecte ✓ - Forum Mobile
- Cette photo n’a pas été prise cette année. trouvez la date, l'heure et avec quel modèle d'appareil photo elle a été prise. - Forum Graphisme
- Vba range avec variable ✓ - Forum VB / VBA
2 réponses
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
1 août 2011 à 21:25
1 août 2011 à 21:25
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)
