XL 2019 Insérer un commentaire prêt à saisir de B à X sans limite... (excepté en ligne 1 ; taille de commentaire Ok déjà voir code VB en B*)

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
anthoYS

anthoYS

XLDnaute Barbatruc
Bonjour



*Sauf qu'il faudrait retirer ces commentaires
"petit déj :



déj :



snack/collation :



diner : "

le commentaire doit être vierge mais prêt à saisir !


VB: 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 2 Then ' Vérifie si le clic droit est dans la colonne B
        Cancel = True ' Annule le menu contextuel par défaut
        Application.DisplayCommentIndicator = xlCommentIndicatorOnly
        ' Crée ou ouvre une nouvelle note avec du texte présaisi, espacé, en gras et souligné
        If Target.Comment Is Nothing Then
            With Target
                .AddComment ""
                With .Comment.Shape.TextFrame.Characters
                    .Text = "petit déj : " & vbNewLine & vbNewLine & "déj : " & vbNewLine & vbNewLine & "snack/collation : " & vbNewLine & vbNewLine & "diner : "
                    .Font.Bold = True
                    .Font.Underline = True
                End With
                ' Agrandit la fenêtre du commentaire
                .Comment.Shape.Width = 200 ' Largeur en points
                .Comment.Shape.Height = 150 ' Hauteur en points
                .Comment.Visible = True
                .Comment.Shape.Select
            End With
        Else
            Target.Comment.Visible = True
            Target.Comment.Shape.Select
        End If
    ElseIf Target.Column = 10 Then ' Vérifie si le clic droit est dans la colonne J
        Cancel = True ' Annule le menu contextuel par défaut
        Application.DisplayCommentIndicator = xlCommentIndicatorOnly
        ' Crée ou ouvre une nouvelle note vierge
        If Target.Comment Is Nothing Then
            With Target
                .AddComment ""
                .Comment.Visible = True
                .Comment.Shape.Select
            End With
        Else
            Target.Comment.Visible = True
            Target.Comment.Shape.Select
        End If
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End Sub


résultat souhaité :

EXCEL_JcEdQ2um3K.png


Merci par avance !
 

Pièces jointes

Dernière édition:
Solution
Nicolas JACQUIN
Bonjour à tous,
un départ:

VB: 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

    ' Ignorer la ligne 1
    If Target.Row = 1 Then Exit Sub

    ' Colonnes B à X = commentaire vide prêt à saisir
    If Target.Column >= 2 And Target.Column <= 24 Then ' B=2 à X=24
        Cancel = True
        Application.DisplayCommentIndicator = xlCommentIndicatorOnly

        If Target.Comment Is Nothing Then
            With Target
                .AddComment ""
                ' Taille du commentaire
                .Comment.Shape.Width = 200
                .Comment.Shape.Height = 150
                .Comment.Visible = True
                .Comment.Shape.Select
            End With
        Else...
Trier par date Trier par votes
Bonjour à tous,
un départ:

VB: 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

    ' Ignorer la ligne 1
    If Target.Row = 1 Then Exit Sub

    ' Colonnes B à X = commentaire vide prêt à saisir
    If Target.Column >= 2 And Target.Column <= 24 Then ' B=2 à X=24
        Cancel = True
        Application.DisplayCommentIndicator = xlCommentIndicatorOnly

        If Target.Comment Is Nothing Then
            With Target
                .AddComment ""
                ' Taille du commentaire
                .Comment.Shape.Width = 200
                .Comment.Shape.Height = 150
                .Comment.Visible = True
                .Comment.Shape.Select
            End With
        Else
            Target.Comment.Visible = True
            Target.Comment.Shape.Select
        End If

        Exit Sub
    End If

    ' Colonne J = commentaire vide (ta configuration initiale)
    If Target.Column = 10 Then
        Cancel = True
        Application.DisplayCommentIndicator = xlCommentIndicatorOnly

        If Target.Comment Is Nothing Then
            With Target
                .AddComment ""
                .Comment.Visible = True
                .Comment.Shape.Select
            End With
        Else
            Target.Comment.Visible = True
            Target.Comment.Shape.Select
        End If
        Exit Sub
    End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End Sub
 
Vote positif 0 Vote négatif
Solution
Nicolas JACQUIN à dit:
Bonjour à tous,
un départ:

VB: 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

    ' Ignorer la ligne 1
    If Target.Row = 1 Then Exit Sub

    ' Colonnes B à X = commentaire vide prêt à saisir
    If Target.Column >= 2 And Target.Column <= 24 Then ' B=2 à X=24
        Cancel = True
        Application.DisplayCommentIndicator = xlCommentIndicatorOnly

        If Target.Comment Is Nothing Then
            With Target
                .AddComment ""
                ' Taille du commentaire
                .Comment.Shape.Width = 200
                .Comment.Shape.Height = 150
                .Comment.Visible = True
                .Comment.Shape.Select
            End With
        Else
            Target.Comment.Visible = True
            Target.Comment.Shape.Select
        End If

        Exit Sub
    End If

    ' Colonne J = commentaire vide (ta configuration initiale)
    If Target.Column = 10 Then
        Cancel = True
        Application.DisplayCommentIndicator = xlCommentIndicatorOnly

        If Target.Comment Is Nothing Then
            With Target
                .AddComment ""
                .Comment.Visible = True
                .Comment.Shape.Select
            End With
        Else
            Target.Comment.Visible = True
            Target.Comment.Shape.Select
        End If
        Exit Sub
    End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End Sub
Cliquez pour agrandir...
Bonjour à vous tous

Intéressant sujet mais quand on veut supprimer les commentaires cela plante erreur, (365--w10) il faut sélectionner les colonnes sans commentaires pour effacer ceux que l'on à mis en place mais on ne peut pas en supprimer un seul,
peut on faire une module pour le code et l’appeler depuis le feuille concerner comme sur un calendrier avec 12 mois

bonne continuation jcf
 

Pièces jointes

  • Capture d’écran 2025-12-01 112724.jpg
    Capture d’écran 2025-12-01 112724.jpg
    50 KB · Affichages: 17
Dernière édition:
Vote positif 0 Vote négatif
Nicolas JACQUIN à dit:
Bonjour à tous,
un départ:

VB: 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

    ' Ignorer la ligne 1
    If Target.Row = 1 Then Exit Sub

    ' Colonnes B à X = commentaire vide prêt à saisir
    If Target.Column >= 2 And Target.Column <= 24 Then ' B=2 à X=24
        Cancel = True
        Application.DisplayCommentIndicator = xlCommentIndicatorOnly

        If Target.Comment Is Nothing Then
            With Target
                .AddComment ""
                ' Taille du commentaire
                .Comment.Shape.Width = 200
                .Comment.Shape.Height = 150
                .Comment.Visible = True
                .Comment.Shape.Select
            End With
        Else
            Target.Comment.Visible = True
            Target.Comment.Shape.Select
        End If

        Exit Sub
    End If

    ' Colonne J = commentaire vide (ta configuration initiale)
    If Target.Column = 10 Then
        Cancel = True
        Application.DisplayCommentIndicator = xlCommentIndicatorOnly

        If Target.Comment Is Nothing Then
            With Target
                .AddComment ""
                .Comment.Visible = True
                .Comment.Shape.Select
            End With
        Else
            Target.Comment.Visible = True
            Target.Comment.Shape.Select
        End If
        Exit Sub
    End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End Sub
Cliquez pour agrandir...
Ce n'est pas qu'un début, ça résout ou rempli vraiment l'objectif.

Merci beaucoup
 
Vote positif 0 Vote négatif
jcf6464 à dit:
Bonjour à vous tous

Intéressant sujet mais quand on veut supprimer un ou des commentaires comment fait-on ...

bonne continuation jcf
Cliquez pour agrandir...

Bonjour à tous,

Soit,

1-double clic sur la cellule contenant

ou

2- clique droit sur la cellule contenant le com, le sélectionner et le supprimer

Voici le code complet corriger pour éviter d'avoir l'erreur au clic droit et pouvoir le sélectionner

Code: 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

    On Error GoTo ErrHandler

    If Target.Row = 1 Then Exit Sub
    If Target.CountLarge > 1 Then Exit Sub

    If Target.Column >= 2 And Target.Column <= 24 Then
        Cancel = True
        Application.DisplayCommentIndicator = xlCommentIndicatorOnly

        If Target.Comment Is Nothing Then
            With Target
                .AddComment ""
                On Error Resume Next
                .Comment.Shape.Width = 200
                .Comment.Shape.Height = 150
                On Error GoTo ErrHandler
                .Comment.Visible = True
            End With
        Else

            On Error Resume Next
            Target.Comment.Visible = True
            On Error GoTo ErrHandler
        End If

        Exit Sub
    End If

    If Target.Column = 10 Then
        Cancel = True
        Application.DisplayCommentIndicator = xlCommentIndicatorOnly

        If Target.Comment Is Nothing Then
            With Target
                .AddComment ""
                On Error Resume Next
                .Comment.Shape.Width = 200
                .Comment.Shape.Height = 150
                On Error GoTo ErrHandler
                .Comment.Visible = True
            End With
        Else
            On Error Resume Next
            Target.Comment.Visible = True
            On Error GoTo ErrHandler
        End If

        Exit Sub
    End If

    Exit Sub

ErrHandler:
    Resume Next
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    On Error Resume Next
    If Target.CountLarge > 1 Then Exit Sub
    If Not Target.Comment Is Nothing Then
        Target.Comment.Delete
        Cancel = True
    End If
    On Error GoTo 0
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End Sub

Bonne jounée
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

anthoYS
  • Résolu(e)
XL 2019 Comment modifier ces codes VB de sorte que le clic droit sur un commentaire présent, permette l'édition et non cette erreur (capture) ?
Réponses
6
Affichages
146
anthoYS
anthoYS
anthoYS
  • Résolu(e)
XL 2019 Clic droit en F doit afficher la fenêtre de commentaire, prêt à saisir vierge. Qu'est-ce qui cloche ici ? ça copie...
Réponses
1
Affichages
98
anthoYS
anthoYS
anthoYS
  • Résolu(e)
XL 2019 Modifier ce code pour de sorte à y rajouter un commentaire après clic droit en colonne I (9) à préremplir mais vierge ?
Réponses
8
Affichages
185
anthoYS
anthoYS
anthoYS
  • Résolu(e)
Microsoft 365 VBA : Commentaire en B, C, D après clic droit dans n'importe quelle cellule de cette plage ?
2
Réponses
15
Affichages
685
Nicolas JACQUIN
Nicolas JACQUIN
anthoYS
  • Résolu(e)
Microsoft 365 Clic droit en B (Quelle que soit la cellule de cette colonne) : doit créer ou ouvrir une nouvelle note*
2
Réponses
19
Affichages
585
anthoYS
anthoYS
anthoYS
  • Question Question
Comment trouver le code qui dit, de la colonne 1 à 15, insérer un commentaire par double clic ? [rés
Réponses
6
Affichages
1 K
phlaurent55
phlaurent55
anthoYS
  • Question Question
Comment préciser de la colonne 3 à 36 si double clic alors insérer commentaire ? [résolu]
Réponses
4
Affichages
1 K
anthoYS
anthoYS
anthoYS
  • Question Question
Quel est le code pour ajouter un commentaire actif après clic droit ?
Réponses
1
Affichages
629
Lone-wolf
Lone-wolf
anthoYS
  • Question Question
[réSoLu] code permettant d'insérer un commentaire par clic droit, non conforme
Réponses
3
Affichages
2 K
anthoYS
anthoYS
M
  • Question Question
Code pour modifier la couleur de fond d'un commentaire
Réponses
8
Affichages
7 K
marcelio
M
anthoYS
  • Question Question
Insérer par clic droit un commentaire dans une plage déterminer
Réponses
1
Affichages
8 K
STephane
S
anthoYS
  • Question Question
[résolu] Code permettant d'ajouter un commentaire préetablit par clic droit
Réponses
2
Affichages
12 K
anthoYS
anthoYS
anthoYS
  • Question Question
clic droit ne marche plus avec ce code de la feuille. Qui voit la faille ?
Réponses
1
Affichages
12 K
Pierrot93
Pierrot93
anthoYS
  • Question Question
Code après clic droit, ligne 1 de A à ZZ... Comment faire svp ? [résolu !]
Réponses
5
Affichages
913
anthoYS
anthoYS
anthoYS
  • Question Question
Ajouter un code à un déjà existant (ajout image en B après double clic) !
Réponses
5
Affichages
2 K
Robert
Robert
Retour