Microsoft 365 VBA double clic et saisie de cellule avec texte et horaire

eCHO à dit:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Then
Target.Value = Now()
End If
End Sub

Ce code définit une macro qui s'exécute avant chaque double-clic sur la feuille de calcul. La macro vérifie si la cellule ciblée par le double-clic se trouve dans la colonne B (colonne 2). Si c'est le cas, la macro insère l'heure courante dans la cellule.

Pour afficher l'heure courante dans les cellules de la colonne Q et S au clic, vous pouvez utiliser une macro similaire en modifiant la vérification de la colonne ciblée par le clic. Voici le code à utiliser :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 17 Or Target.Column = 19 Then
Target.Value = Now()
End If
End Sub

Ce code définit une macro qui s'exécute chaque fois qu'une cellule est sélectionnée sur la feuille de calcul. La macro vérifie si la cellule sélectionnée se trouve dans la colonne Q (colonne 17) ou la colonne S (colonne 19). Si c'est le cas, la macro insère l'heure courante dans la cellule.

Pour faire changer le statut d'une cellule au clic dans les cellules de la colonne D à O, vous pouvez utiliser une macro qui modifie la couleur de fond de la cellule ciblée par le clic. Voici le code à utiliser :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column >= 4 And Target.Column <= 15 Then
If Target.Interior.ColorIndex = 3 Then
Target.Interior.ColorIndex = 0
Else
Target.Interior.ColorIndex = 3
End If
End If
End Sub

Ce code définit une macro qui s'exécute chaque fois qu'une cellule est sélectionnée sur la feuille de calcul. La macro vérifie si la cellule sélectionnée se trouve dans la colonne D (colonne 4)

Cliquez pour agrandir...

fanfan38 à dit:

Bonjour
Clic droit pour changer de statut
Double clic pour avoir l'heure, etc...
Ci joint ma solution

A+ François

Cliquez pour agrandir...