Afficher la date sur un Clic

[eliot raymond]

Bonjour a toutes et tous, forum

Je souhaiterai faire un clic dans une cellule et afficher la date du jour avec un message.

Voir svp le petit fichier ci-joint pour exemple et plus d'infos.


Merci a vous et de votre temps

Meilleurs voeux

Raymond

 

[Vinc]

Re : Afficher la date sur un Clic

Bonjour, avec un double clic :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(ActiveCell, Range("C4:C25")) Is Nothing Then
If ActiveCell.Offset(0, -1).Value Like "" Then Exit Sub
MsgBox ActiveCell.Offset(0, -1).Value, , "DATE"
End If
End Sub

 

[eliot raymond]

Re : Afficher la date sur un Clic

Bonjour Vinc

Merci pour ta réponse et le petit code

voila ca marche pas j'ai mis la colonne B4:B25 a vec format date pour voir marche pas non plus

merci a toi a plus tard

Raymond

 

[Pierrot93]

Re : Afficher la date sur un Clic

Bonjour,

regarde peut être ceci :

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("C4:C25")) Is Nothing Then Exit Sub
With Target.Offset(0, -1)
    .Value = IIf(IsEmpty(.Value), "Prélever le : " & Format(Date, "dddd d mmmm yyyy"), "")
End With
End Sub

bonne journée
@+

 

[Pierrot93]

Re : Afficher la date sur un Clic

Re,

en rajoutant peut être un petit test :

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("C4:C25")) Is Nothing Or Target.Count > 1 Then Exit Sub
With Target.Offset(0, -1)
    .Value = IIf(IsEmpty(.Value), "Prélever le : " & Format(Date, "dddd d mmmm yyyy"), "")
End With
End Sub

 

[DoubleZero]

Re : Afficher la date sur un Clic

Bonjour, le Fil, le Forum,

Une autre suggestion dans le fichier joint.

A bientôt

 

[eliot raymond]

Re : Afficher la date sur un Clic

Bonjour pierrot93

Merci de ta réponse et pour le petit code ca fonctionne comme souhaité, je garde sous le coude

Meilleurs voeux pour l'année 2012

Encore merci et Bonne journée

Raymond

 

[eliot raymond]

Re : Afficher la date sur un Clic

Salut DoubleZero

Merci pour la petite macro ca marche, je garde sous le coude

je te souhaite une bonne année 2012

Encore merci

Raymond

 

[eliot raymond]

Re : Afficher la date sur un Clic

Re Pierrot93

Afin d'éviter un nouveau post, vu que c'est toujours le meme sujet

je souhaiterai rajouter une chtite option svp

Comment faire toujours avec le mème petit fichier de ce matin, dans la zone D4:O25 sur un clic

changer la couleur de fond de la cellule

(1) Je clic dans une cellule elle passe fond gris (16)
(2) un nouveau clic dans la meme cellule elle passe fond vert (4)
(3) en fait soit gris ou vert

merci et bonne après midi

Raymond

 

[Pierrot93]

Re : Afficher la date sur un Clic

Re,

essaye en modifiant comme suit :

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("D4:O25")) Is Nothing Then
    With Target.Interior
        .ColorIndex = IIf(.ColorIndex = 16, 4, 16)
    End With
End If
If Intersect(Target, Range("C4:C25")) Is Nothing Then Exit Sub
With Target.Offset(0, -1)
    .Value = IIf(IsEmpty(.Value), "Prélever le : " & Format(Date, "dddd d mmmm yyyy"), "")
End With
End Sub

bon après midi
@+

 

[eliot raymond]

Re : Afficher la date sur un Clic

Salut Pierrot93

Merci a toi c'est super sympa cerise sur le gateau ca fonctionne aussi sur un double clic
que dire, bah oui encore un grand merci, je place sous le coude (LOL)

je retourne a mon programme

Bonne après midi de l'an 2012 Pierrot93

Bye Pierrot93, bonne année 2012, Raymond