XL 2019 Modifier ce code pour de sorte à y rajouter un commentaire après clic droit en colonne I (9) à préremplir mais vierge ?

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion anthoYS
  • Date de début Date de début

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


VB: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 1 And Target.Row > 1 Then
    Cancel = True
    Ligne = Target.Row 'ou Application.Goto [repas].Columns(1).Find(Date)

    UserForm1.Show
    End If
End Sub
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
    'Masque les commentaires
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly

    ' Crée ou ouvre une nouvelle note
    If Target.Comment Is Nothing Then
      Range("A1").Copy
      With Target
        .PasteSpecial Paste:=xlPasteComments
        .Comment.Visible = True
        .Comment.Shape.Select
      End With
    End If
  End If
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'Masque les commentaires
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End Sub

Merci :=)
 
Solution
anthoYS
VB: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 1 And Target.Row > 1 Then
        Cancel = True
        Ligne = Target.Row 'ou Application.Goto [repas].Columns(1).Find(Date)
        UserForm1.Show
    End If
End Sub

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...
Cliquez pour agrandir...
Trier par date Trier par votes
Bonjour
Un fichier aurai été le bienvenu...
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
    'Masque les commentaires
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly
    ' Crée ou ouvre une nouvelle note
    If Target.Comment Is Nothing Then
      Range("A1").Copy
      With Target
        .PasteSpecial Paste:=xlPasteComments
        .Comment.Visible = True
        .Comment.Shape.Select
      End With
    End If
  elseif target.column=9 then
    Cancel = True ' Annule le menu contextuel par défaut
    'Masque les commentaires
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly
    ' Crée ou ouvre une nouvelle note
    If Target.Comment Is Nothing Then
      Range("A1").Copy
      With Target
        .PasteSpecial Paste:=xlPasteComments
        .Comment.Visible = True
        .Comment.Shape.Select
      End With
    End If 
  End If
End Sub
A+ François
 
Vote positif 0 Vote négatif
fanfan38 à dit:
Bonjour
Un fichier aurai été le bienvenu...
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
    'Masque les commentaires
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly
    ' Crée ou ouvre une nouvelle note
    If Target.Comment Is Nothing Then
      Range("A1").Copy
      With Target
        .PasteSpecial Paste:=xlPasteComments
        .Comment.Visible = True
        .Comment.Shape.Select
      End With
    End If
  elseif target.column=9 then
    Cancel = True ' Annule le menu contextuel par défaut
    'Masque les commentaires
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly
    ' Crée ou ouvre une nouvelle note
    If Target.Comment Is Nothing Then
      Range("A1").Copy
      With Target
        .PasteSpecial Paste:=xlPasteComments
        .Comment.Visible = True
        .Comment.Shape.Select
      End With
    End If
  End If
End Sub
A+ François
Cliquez pour agrandir...

Merci, par contre le commentaire reste le même, or en colonne 9 je veux qu'il soit vide, et je ne veux pas non plus qu'il reste affiché.

Mais faire comment avant si cela est possible.
 
Vote positif 0 Vote négatif
pour info,

je joins la solution :
VB: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 1 And Target.Row > 1 Then
        Cancel = True
        Ligne = Target.Row 'ou Application.Goto [repas].Columns(1).Find(Date)
        UserForm1.Show
    End If
End Sub

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
        ' Masque les commentaires
        Application.DisplayCommentIndicator = xlCommentIndicatorOnly
        ' Crée ou ouvre une nouvelle note avec du texte présaisi
        If Target.Comment Is Nothing Then
            With Target
                .AddComment "petit déj : " & vbNewLine & "déj : " & vbNewLine & "snack/collation : " & vbNewLine & "diner : "
                .Comment.Visible = True
                .Comment.Shape.Select
            End With
        Else
            Target.Comment.Visible = True
            Target.Comment.Shape.Select
        End If
    ElseIf Target.Column = 9 Then ' Vérifie si le clic droit est dans la colonne I
        Cancel = True ' Annule le menu contextuel par défaut
        ' Masque les commentaires
        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)
    ' Masque les commentaires
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End Sub


Bonne journée !
 
Vote positif 0 Vote négatif
L'objectif, serait d'avoir ça en B (colonne 2) :
firefox_0xj2nd13Id.png
 
Vote positif 0 Vote négatif
VB: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 1 And Target.Row > 1 Then
        Cancel = True
        Ligne = Target.Row 'ou Application.Goto [repas].Columns(1).Find(Date)
        UserForm1.Show
    End If
End Sub

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 = 9 Then ' Vérifie si le clic droit est dans la colonne I
        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
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Solution
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 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
57
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
598
Nicolas JACQUIN
Nicolas JACQUIN
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
497
un internaute
U
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
463
anthoYS
anthoYS
Lu76Fer
  • Résolu(e)
XL 2016 XLS : comment savoir si un évènement SelectionChange est provoqué par le clavier ou la souris ?
2
Réponses
22
Affichages
538
Lu76Fer
Lu76Fer
thunder23
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
643
thunder23
thunder23
richardlion
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
975
job75
job75
S
  • Résolu(e)
Microsoft 365 Déclenchement macro en série suite à cellule fusionnées
Réponses
3
Affichages
443
spike29
S
anthoYS
  • Résolu(e)
XL 2019 colorer les différents aliments avec un code VB pour macro de ce genre ?
2
Réponses
16
Affichages
219
anthoYS
anthoYS
Lu76Fer
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
393
Lu76Fer
Lu76Fer
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
424
ManuEven
M
AlCapone
  • Résolu(e)
Microsoft 365 VBA - BeforeDoubleClick, 1ère cellule vide à partir de cellule active pour insertion de ligne
Réponses
4
Affichages
331
AlCapone
AlCapone
S
  • Résolu(e)
XL 2016 Comment faire ressortir la ligne sélectionnée dans un tableau
Réponses
2
Affichages
598
Stéphane_1
S
U
  • Question Question
Autres [RESOLU] Déclaration de variable
Réponses
5
Affichages
642
un internaute
U
N
  • Question Question
Microsoft 365 Imbrication de deux formule Worksheet_BeforeDoubleClick
Réponses
1
Affichages
408
Nathan027
N
T
  • Résolu(e)
XL 2021 Incompatibilité de type avec un userform
2
Réponses
19
Affichages
983
Bernard38
Bernard38
patricktoulon
  • Question Question
Autres Petite mise a jour (exceptionnellement pour cp4) du calendar V4.1(OLDVERSION)
2
Réponses
21
Affichages
1 K
patricktoulon
patricktoulon
A
  • Question Question
Microsoft 365 Slicer - supprimer le menu contextuel ou la possibilité de supprimer le filtre
Réponses
1
Affichages
741
xUpsilon
xUpsilon
F
  • Résolu(e)
XL 2021 fermeture du classeur après apple d'un userform d'un autre classeur ouvert
Réponses
2
Affichages
387
farid
F
yojema
  • Question Question
XL 2021 faire évoluer un code VBA
Réponses
3
Affichages
578
Dranreb
Dranreb
Retour