Ajouter la date du jour du double clic en commentaire

[anthoYS]

Bonjour,

Voici le code de la feuille :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
    If .Column = 2 Then
        Cancel = True
        If .Comment Is Nothing Then
            .AddComment
            .Comment.Shape.Width = 241.5
            .Comment.Shape.Height = 99.75
        End If
        SendKeys "%im"
    End If
End With
If Target.Column = 3 Then
Cells(Target.Row, 3).Interior.ColorIndex = 3
Cells(Target.Row, 8) = Date
End If
If Target.Column = 4 Then
Cells(Target.Row, 4).Interior.ColorIndex = 44
Cells(Target.Row, 8) = Date
End If
If Target.Column = 5 Then
Cells(Target.Row, 5).Interior.ColorIndex = 6
Cells(Target.Row, 8) = Date
End If
If Target.Column = 6 Then
Cells(Target.Row, 6).Interior.ColorIndex = 42
Cells(Target.Row, 8) = Date
End If
If Target.Column = 7 Then
Cells(Target.Row, 7).Interior.ColorIndex = 4
Cells(Target.Row, 8) = Date
End If
End Sub

Ajouter la date de commentaire, de la sorte après chaque double clic et selon la cellule incriminée.
Et ceci en respectant les dimensions indiqués dans le cadre pour les dimensions du cadre de ce commentaire.



Je récapitule mon voeu :
Un double clic doit faire apparaître en commentaire, la date du jour de ce double clic et figer cette date jusqu'au prochain double clic.
Test fait le 5 juillet (d'ou la date en commentaire).

Voilà, merci par avance

 

[Pierrot93]

Re : Ajouter la date du jour du double clic en commentaire

Bonjour Anthoys,

regarde peut être le code ci-dessous :

        If .Comment Is Nothing Then
            .AddComment
            .Comment.Text "Test fait le " & Format(Date, "d yyyy")
            .Comment.Shape.Width = 241.5
            .Comment.Shape.Height = 99.75
        End If

bon après midi
@+

 

[Efgé]

Re : Ajouter la date du jour du double clic en commentaire

Bonjour anthoYS, Pierrot93 🙂,
Une autre proposition:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Dt As String
Dt = Date
With Target
    If .Column = 2 Then
        Cancel = True
        If .Comment Is Nothing Then .AddComment
            .Comment.Shape.TextFrame.AutoSize = True
            .Comment.Text Text:=Dt
    End If
End With
End Sub

Cordialement

 

[anthoYS]

Re : Ajouter la date du jour du double clic en commentaire

Re,

Merci à vous.

Mais ou mettre le code dans le mien?

 

[Pierrot93]

Re : Ajouter la date du jour du double clic en commentaire

Re,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
    If .Column = 2 Then
        Cancel = True
        If .Comment Is Nothing Then
            .AddComment
            .Comment.Text "Test fait le " & Format(Date, "d yyyy")
            .Comment.Shape.Width = 241.5
            .Comment.Shape.Height = 99.75
        End If
        SendKeys "%im"
    End If
End With
If Target.Column = 3 Then
Cells(Target.Row, 3).Interior.ColorIndex = 3
Cells(Target.Row, 8) = Date
End If
If Target.Column = 4 Then
Cells(Target.Row, 4).Interior.ColorIndex = 44
Cells(Target.Row, 8) = Date
End If
If Target.Column = 5 Then
Cells(Target.Row, 5).Interior.ColorIndex = 6
Cells(Target.Row, 8) = Date
End If
If Target.Column = 6 Then
Cells(Target.Row, 6).Interior.ColorIndex = 42
Cells(Target.Row, 8) = Date
End If
If Target.Column = 7 Then
Cells(Target.Row, 7).Interior.ColorIndex = 4
Cells(Target.Row, 8) = Date
End If
End SubAjouter la date de commentaire

 

[anthoYS]

Re : Ajouter la date du jour du double clic en commentaire

Re,

ça n'est pas ce que j'attends
Pierrot93, voilà ce que donne votre code :



Efgé s'y rapproché, sauf, que cela doit avoir lieu sur toutes les cellules ou à lieu le double clic (voir image jointe premier post), càd de C à F et non pas en A, ou mon code convenait.

Merci par avance.

 

[Pierrot93]

Re : Ajouter la date du jour du double clic en commentaire

Re,

désolé, mais image et fichier sur cjoint bloqués par le proxy chez moi, il eut été préférable de mettre le tout dans le 1er fichier joint....

 

[Efgé]

Re : Ajouter la date du jour du double clic en commentaire

Re
Si j'ai compris.
Au double click dans n'inporte quelle Cellule de D à F:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Dt As String
Dt = Date
With Target
    If .Column > 2 Or .Column < 7 Then
        Cancel = True
        If .Comment Is Nothing Then .AddComment
            .Comment.Shape.TextFrame.AutoSize = True
            .Comment.Text Text:=Dt
    End If
End With
End Sub

Cordialement

 

[anthoYS]

Re : Ajouter la date du jour du double clic en commentaire

Ok, c'est ça Efgé, enfin presque. Tout les doubles clics ou qu'ils soient, affichent la date en commentaire.
Car en B, je souhaite conserver un cadre plus gros et sans date comme dans le premier post (code).
Et d'autre part, laisser les colorations selon si c'est D, E, F. ou G.

Mais on s'y rapproche.

Merci.

 

[Efgé]

Re : Ajouter la date du jour du double clic en commentaire

Re
Avec les dernières explications:
Cordialement

 

[anthoYS]

Re : Ajouter la date du jour du double clic en commentaire

D'accord, merci beaucoup de ton aide (Efgé).
Je n'oublie pas non plus Pierrot93.