Discussion :

[AgriPhilou]

Bonjour,

J'essaie avec le code ci-dessous de mettre l'heure système en cours dans les cellules mais je n'y arrive pas, pourriez-vous m'aider ?

Si je double clic dans une des cellules de la zone l'heure doit s'afficher au format 00:00

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A29:B100")) Is Nothing Then
Cancel = True
Target.Font.Name = "arial"
If Target = vbNullString Then
Target.Value = IIf(c = "", "", Now)
            .NumberFormat = "hh:mm"
Else
Target = vbNullString
End If
End If
End Sub

Merci.

[Fred.dz]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
If Not Intersect(Target, Range("A29:B100")) Is Nothing Then
    Cancel = True
    Target.Font.Name = "arial"
 
    If Target = "" Then
        Target.Value = Now
        Target.NumberFormat = "hh:mm"
    Else
        Target = ""
    End If
End If
 
End Sub

[AgriPhilou]

Merci beaucoup, serait-il possible à la fin de l'instruction de passer le curseur sur la cellule de droite ?

Encore merci,

Bonne après midi.

[Fred.dz]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
If Not Intersect(Target, Range("A29:B100")) Is Nothing Then
    Cancel = True
    Target.Font.Name = "arial"
 
    If Target = "" Then
        Target.Value = Now
        Target.NumberFormat = "hh:mm"
    Else
        Target = ""
    End If
    Cells(Target.Row, Target.Column + 1).Select
 
End If
 
End Sub

[rvtoulon]

ou encore

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Target.value = Format(Now, "HH:MM")

[rvtoulon]

désolé j'arrive encore juste après :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Target.Offset(0, 1).Select

[AgriPhilou]

Merci beaucoup à vous deux.


Bravo !

Bonne après midi.