Double clic doit ajouter date du jour en commentaire ; macro coloration cellule (R/V)

[anthoYS]

Bonsoir (bonjour),

Mon projet c'est d'ajouter des commentaires prés à saisir, avec la date du jour au dessus :

D'autres part, créer des macros dans la feuille uniquement qui colore soit en rouge soit en vert, d'ou le R/V du titre de ce sujet (voir fichier)

voilà des bout de codes qui peuvent être utiles ;

Celui ci concerne l'apparition d'un commentaire pré à saisir :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
With Target
    If .Column = 1 Then
        Cancel = True
        If .Comment Is Nothing Then
            .AddComment
            .Comment.Shape.Width = 121.5
            .Comment.Shape.Height = 59.75
        End If
        SendKeys "%im"
    End If
    If Target.Column = 4 Then
Cells(Target.Row, 4) = Date
End If
End With
End Sub

Code concernant l'ajout de la date dans le code, après le double clic dans la cellule :

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

La zone choisie pour ce code, concerne les colonnes C à EE incluse (toutes lignes).

Merci d'avance ; 😉

 

[anthoYS]

Re : Double clic doit ajouter date du jour en commentaire ; macro coloration cellule

Bonsoir,

Qui peut m'aider ici, svp ???

A+

 

[PMO2]

Re : Double clic doit ajouter date du jour en commentaire ; macro coloration cellule

Bonjour,

Essayez la démarche suivante

1) Dans la fenêtre de code de la feuille concernée, copiez le code suivant

Private Sub Worksheet_Activate()
Application.OnKey "%j", "Jaune"
Application.OnKey "%v", "Vert"
End Sub

Private Sub Worksheet_Deactivate()
Application.OnKey "%j", ""
Application.OnKey "%v", ""
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim lig
Dim col
col = Target.Column
lig = Target.Row
With Target
  If .Column > 2 And .Column < 51 And lig > 1 Then
    Cancel = True
    If .Comment Is Nothing Then
      .AddComment
      .Comment.Shape.TextFrame.AutoSize = True
      .Comment.Text Text:=CStr(Date)
      .Comment.Visible = False
    End If
  End If
End With
Exit Sub
End Sub

2) Dans un module standard, copiez le code suivant

Private Sub Jaune()
ActiveCell.Interior.Color = vbYellow
End Sub

Private Sub Vert()
ActiveCell.Interior.Color = vbGreen
End Sub

Cordialement.

PMO

 

[anthoYS]

Re : Double clic doit ajouter date du jour en commentaire ; macro coloration cellule

Merci PMO2, j'essaierai plus tard.

 

[anthoYS]

Re : Double clic doit ajouter date du jour en commentaire ; macro coloration cellule

re,

Non pour la date, car ce code ajoute la date uniquement, sans pouvoir écrire par derrière un commentaire à la suite de cette date figée, j'entend qu'il faut que suite au double clic, la date ce fige, et que l'on puisse saisir dessuite un commentaire, sans avoir à modifier le commentaire, donc agrandir un peu le cadre si possible.

Sinon, pour l'ajout des couleurs... rien, je ne parviens pas à faire fonctionner ce code, en outre je ne veux pas de jaune, mais du rouge !

Merci encore ;

 

[Staple1600]

Re : Double clic doit ajouter date du jour en commentaire ; macro coloration cellule

Bonsoir

anthoYS

en outre je ne veux pas de jaune, mais du rouge !

Si tu vas voir dans l'aide VBA, tu trouveras que Rouge c'est vbRed 🙄

Ci-dessous extrait de l'aide VBA d'Excel 2000

Constantes de couleurs
Les constantes suivantes peuvent remplacer les valeurs réelles partout dans votre code :
Constante
vbRed
vbGreen
vbYellow
vbBlue
vbMagenta
vbCyan
vbWhite