Date et heure automatique saisie cellule Excel
Résolu/Fermé
CharlesDB
Messages postés
78
Date d'inscription
samedi 20 février 2010
Statut
Membre
Dernière intervention
9 mars 2015
-
15 févr. 2013 à 20:35
you - 9 mars 2016 à 09:11
you - 9 mars 2016 à 09:11
A voir également:
- Excel heure automatique avec mise à jour
- Mise en forme conditionnelle excel - Guide
- Liste déroulante excel - Guide
- Mise à jour pilote - Guide
- Mise a jour airpods - Guide
- Mise a jour windows 10 - Guide
10 réponses
Mike-31
Messages postés
18313
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 avril 2024
5 073
Modifié par Mike-31 le 16/02/2013 à 08:16
Modifié par Mike-31 le 16/02/2013 à 08:16
Salut,
Tu aurais aussi vite fait de faire un simple clic sur deux touches Ctrl et point virgule
avec la fonction Maintenent la date changera tous les jours et avec un code VBA le fait de changer la donnée en A entrainera automatiquement le changement de la date en B
si c'est que tu cherches, clic droit sur l'onglet de ta feuille et colle ce code
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [A1:A100]) Is Nothing Then
Target(1, 2) = Now
End If
End Sub
si le code se limite à cette simple saisie tu peux écourter le code comme ceci
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [A1:A100]) Is Nothing Then Target(1, 2) = Now
End Sub
il est possible de figer la date en B pour éviter tout changement après postérieur et obliger la modification manuelle mais on verra plus tard
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Tu aurais aussi vite fait de faire un simple clic sur deux touches Ctrl et point virgule
avec la fonction Maintenent la date changera tous les jours et avec un code VBA le fait de changer la donnée en A entrainera automatiquement le changement de la date en B
si c'est que tu cherches, clic droit sur l'onglet de ta feuille et colle ce code
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [A1:A100]) Is Nothing Then
Target(1, 2) = Now
End If
End Sub
si le code se limite à cette simple saisie tu peux écourter le code comme ceci
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [A1:A100]) Is Nothing Then Target(1, 2) = Now
End Sub
il est possible de figer la date en B pour éviter tout changement après postérieur et obliger la modification manuelle mais on verra plus tard
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
26 mars 2014 à 11:26
Grace au code de Mike-31 j'ai pu résoudre la moitié de mon problème, cependant j'aimerais bien que le résultat soit figé
Merci d'avance à vous tous
Très bonne journée
26 mars 2014 à 14:08
Que veux tu dire par "cependant j'aimerais bien que le résultat soit figé "
Cordialement
Mike-31