Date et heure saisi automatique
Liansam_96
Messages postés
3
Statut
Membre
-
Liansam_96 Messages postés 3 Statut Membre -
Liansam_96 Messages postés 3 Statut Membre -
Bonjour,
J'aimerai avoir de l'aide svp,
Je souhaiterai que lorsque je saisi quelque chise sur la cellule B, l'heure s'affiche automatiquement dans la cellule A et se met a jour au moment de la saisie de quelques chose dans la cellule B
Exemple : je saisis " rouge" dans B1 , et l'heure au moment de la saisie s'affiche automatiquement dans A1
Et quand je tape "vert" dans B2 , l'heure correspondant au moment de la saisi s'affiche automatiquement dans A2 et ainsi de suite.
Merci d'avance
Configuration: Android / Chrome 57.0.2987.108
J'aimerai avoir de l'aide svp,
Je souhaiterai que lorsque je saisi quelque chise sur la cellule B, l'heure s'affiche automatiquement dans la cellule A et se met a jour au moment de la saisie de quelques chose dans la cellule B
Exemple : je saisis " rouge" dans B1 , et l'heure au moment de la saisie s'affiche automatiquement dans A1
Et quand je tape "vert" dans B2 , l'heure correspondant au moment de la saisi s'affiche automatiquement dans A2 et ainsi de suite.
Merci d'avance
A voir également:
- Date et heure saisi automatique
- Réponse automatique thunderbird - Guide
- Logiciel de sauvegarde automatique gratuit - Guide
- Changement d'heure - Guide
- Réponse automatique gmail - Guide
- Liste deroulante excel avec saisie semi-automatique - Guide
2 réponses
Bonjour
Un exemple à adapter à ton fichier
https://www.cjoint.com/c/IAti56sh0Jk
Cordialement
Un exemple à adapter à ton fichier
https://www.cjoint.com/c/IAti56sh0Jk
Cordialement
Liansam_96
Messages postés
3
Statut
Membre
Vais-je utiliser directement ce fichier ?
Liansam_96
Messages postés
3
Statut
Membre
Et déjà merci. Je vais tester.
Bonjour,
Avec cette macro dans le module de la feuille :
Avec cette macro dans le module de la feuille :
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Column = 2 And Target.Columns.Count = 1 Then
For Each c In Target.Cells
If c.Formula = "" Then
c.Offset(0, -1).ClearContents
c.Offset(0, -1).NumberFormat = "General"
Else
c.Offset(0, -1).Value = Time
c.Offset(0, -1).NumberFormat = "hh:mm"
End If
Next c
End If
End Sub