Heure et double clic

[Pat_2705]

Bonjour a vous tous,

il s'agit de ma première question sur le forum.

Sur mon document, il est souhaité lorsqu'on double clic dans une cellule, que l'heure s'inscrive. Jusque là, tout est nickel.

Mais si pour une raison ou une autre, quelques minutes plus tard, l'on veuille double cliquer a nouveau dans cette même cellule afin de modifier l'heure, cette fois-ci, la date s'inscrit aussi avec la nouvelle heure.

Mon problème est le suivant: comment faire pour que la date ne s'affiche pas, seulement la nouvelle heure?

Voici mon code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Application.Intersect(Target, Range("a11:a110")) Is Nothing Then

VAL_heuredroite

Else

End If
If Not Application.Intersect(Target, Range("o11110")) Is Nothing Then
VAL_heuredroite

Else

End If
End Sub

Je vous remercie a l'avance.

Pat

 

[Modeste geedee]

Bonsour®

Bonjour a vous tous,

il s'agit de ma première question sur le forum.
Mon problème est le suivant: comment faire pour que la date ne s'affiche pas, seulement la nouvelle heure?

modifier la proc VAL_heuredroite !!!

 

[Paf]

Bonjour et bienvenue sur XLD,

Dans le code transmis, la seule chose qu'on voit c'est que si on doubleclique en A11:A110 ou O11:O110(?) on appelle la sub VAL_heuredroite , mais comme on ne connait pas le code de cette sub on ne peut apporter de réponse ...

A+


Edit : Bonjour Modeste geedee

 

[vgendron]

Hello tout le monde
avec un truc comme ca??

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Application.Intersect(Target, Range("a11:a110")) Is Nothing Then
    If Target = "" Then
        Target = Now 'VAL_heuredroite
    Else
        Target = Time
    End If
End If

End Sub

 

[Pat_2705]

Merci a tous de vos réponses rapides. Vous aurez devinez que je ne suis pas un pro!

Voici le code VAL_heuredroite


Sub VAL_heuredroite()
'
' Macro2 Macro
'

'
Dim h As String

h = ActiveCell.Value

If h = "" Then heuredroite
Rem If UCase([a1]) Like "*LULU*" Then MsgBox "A1 contient LULU"

Rem If v = "" Then MsgBox "non"
End Sub

 

[Paf]

Re,

codage tordu ??

Dans cette sub on fait appel à une autre sub : heuredroite

le plus simple est de réécrire la Sub Worksheet_BeforeDoubleClick, comme le proposait vgendron.

à chaque double clic dans un cellule de l'une ou l'autre plage, on affiche l'heure :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("A11:A110, O11:O110")) Is Nothing Then
   Target = Time
End If
End Sub

A+

 

[Pat_2705]

Merci encore.

Hello tout le monde
avec un truc comme ca??

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Application.Intersect(Target, Range("a11:a110")) Is Nothing Then
    If Target = "" Then
        Target = Now 'VAL_heuredroite
    Else
        Target = Time
    End If
End If

End Sub

Merci

En fait, maintenant la date s'inscrit la première fois que l'on double clic et ne s'inscrit plus les fois subséquentes.

La date ne devrait jamais s'inscrire, cela n'est pas pertinent.

C'est gentil tout l'effort que vous y mettez en tout ca!

 

[Pat_2705]

Re,

codage tordu ??

Dans cette sub on fait appel à une autre sub : heuredroite

le plus simple est de réécrire la Sub Worksheet_BeforeDoubleClick, comme le proposait vgendron.

à chaque double clic dans un cellule de l'une ou l'autre plage, on affiche l'heure :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("A11:A110, O11:O110")) Is Nothing Then
   Target = Time
End If
End Sub

A+

Voici le code pour heuredroite

Sub VAL_heuredroite()
'
' Macro2 Macro
'
'

'
Dim h As String

h = ActiveCell.Value

If h = "" Then heuredroite
Rem If UCase([a1]) Like "*LULU*" Then MsgBox "A1 contient LULU"

Rem If v = "" Then MsgBox "non"
End Sub

J'ai fait les modification, t'el que vous et Gendron me le proposez. Mais cette fois-ci, la date et l'heure s'affichent dès le premier double clic (et la date disparait les double-clics suivant).

En fait, la date n'est aucunement nécessaire !

Merci encore

 

[vgendron]

euh. en fait tu veux quoi?

quand tu cliques dans une cellule vide: on met quoi?? la date ou l'heure ou les deux?
quand tu cliques une seconde fois dans la cellule (non vide donc): tu y mets quoi maintenant??

 

[Pat_2705]

euh. en fait tu veux quoi?

quand tu cliques dans une cellule vide: on met quoi?? la date ou l'heure ou les deux?
quand tu cliques une seconde fois dans la cellule (non vide donc): tu y mets quoi maintenant??

La première fois qu'on clic = l'heure

la deuxième qu'on clic dans la même cellule = l'heure

La troisième fois.... = l'heure

...

La date ne devrait jamais être indiqué!

Merci

 

[vgendron]

bon bah..

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Application.Intersect(Target, Range("a11:a110")) Is Nothing Then
    Target = Time
   End If

End Sub

 

[Pat_2705]

bon bah..

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Application.Intersect(Target, Range("a11:a110")) Is Nothing Then
    Target = Time
   End If

End Sub

Merveilleux! Merci beaucoup.

Je vais étudier tout ca afin de bien comprendre le truc.

 

[Paf]

Re,

Heu .... ben ..... c'est t'y donc pas ce qu'est ce que j'avais proposé au post #6 ??

Par ailleurs
Dans Sub VAL_heuredroite(), on trouve l'appel suivant: If h = "" Then heuredroite où heuredroite semble être une autre sub. D'où codage tordu ??

On ne sait toujours pas comment était le code qui inscrivait l'heure ou la date ( dans heuredroite ou encore dans une autre sub ?), mais c'est réglé, c'est le principal.

Bonne suite

 

[JCGL]

Bonjour à tous,

Pat_2705 : pour une prochaine fois, dépose un fichier... Anonymisé mais avec toutes les procédures.

A+ à tous