Double clic et heures

Version imprimable

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:

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.

Code:

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

12/06/2013, 13h48
AgriPhilou

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

Encore merci, :ccool:

Bonne après midi.
12/06/2013, 13h50
rvtoulon

ou encore

Code:

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

Code:

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

12/06/2013, 13h53
rvtoulon

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

Code:

Target.Offset(0, 1).Select
12/06/2013, 13h58
AgriPhilou

Merci beaucoup à vous deux.

Bravo ! :ccool:

Bonne après midi.