Discussion :

[Un Internaute]

Bonjour le forum

Dans la macro ci-dessous
Pour modifier le commentaire il faut mettre false
Si on met True s'affiche ceci


Modifier Commentaire dans Cellules H2:H4 fusionnées
1er Clic droit supprime 1 & affiche couleur
2ème Clic droit affiche 1 & supprime couleur

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) 'macro pour click droit cellules colonne H
Cancel = True
If Not Application.Intersect(Target, Range("H6:H36")) Is Nothing Then
If Target.Value = "" Then
Target.Value = 1
Else
Target.Value = ""
End If
End If
Cancel = True ' False pour modifier le commentaire
End Sub

Merci pour vos éventuels retours
Cordialement

[ARTURO83]

Bonjour,

Si vos cellules sont fusionnées, il faut lui indiquer la 1ère cellule de cette fusion, comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

       If Target.Cells(1, 1).Value = "" Then

Maintenant pour compléter votre code et le rendre plus sûr, je ferai ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) 'macro pour click droit cellules colonne H
    On Error GoTo Sortie
    Application.EnableEvents = False
    Cancel = True
    If Not Application.Intersect(Target, Range("H6:H36")) Is Nothing Then
        If Target.Cells(1, 1).Value = "" Then
            Target.Cells(1, 1).Value = 1
        Else
            Target.Cells(1, 1).Value = ""
        End If
    End If
    Cancel = True ' False pour modifier le commentaire
Sortie:
    Application.EnableEvents = True
End Sub

Cdlt

[Un Internaute]

Bonjour,

Si vos cellules sont fusionnées, il faut lui indiquer la 1ère cellule de cette fusion, comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

       If Target.Cells(1, 1).Value = "" Then

Maintenant pour compléter votre code et le rendre plus sûr, je ferai ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) 'macro pour click droit cellules colonne H
    On Error GoTo Sortie
    Application.EnableEvents = False
    Cancel = True
    If Not Application.Intersect(Target, Range("H6:H36")) Is Nothing Then
        If Target.Cells(1, 1).Value = "" Then
            Target.Cells(1, 1).Value = 1
        Else
            Target.Cells(1, 1).Value = ""
        End If
    End If
    Cancel = True ' False pour modifier le commentaire
Sortie:
    Application.EnableEvents = True
End Sub

Cdlt

Bonjour ARTURO 83
Voici le fichier ça sera plus facile pour toi
Merci de t’intéresser à cette macro
Cordialement

[ARTURO83]

Bonjour,

Je ne comprends pas, pourquoi n'avez-vous pas recopié la macro modifié? je l'ai essayé et ça marche bien, y a t-il un autre problème?
La macro répond bien à votre demande, suite à un clic droit sur une cellule fusionnée, elle affiche 1 ou rien et change la couleur de fond d'une cellule.

Question: Quelle est votre version d'excel? Si pas trop ancienne, pourquoi l'avoir enregistrée avec l'extension.xls?
ici, votre fichier enregistré avec l'extension xlsm (prend en charge les macros)

Un internaute_Que puis-je ajouter dans cette macro pour éviter de la modifier.xlsm

Cdlt

[Un Internaute]

Bonjour ARTURO83
Je pense qu'on s'est pas compris ou je me suis mal exprimé
Ce n'est pas les cellules fusionnées H2:H4 qui posent problème
Lorsque je mets True à la fin de ma macro, dans H2:H3 (cellules fusionnées) je ne peux pas modifier les commentaires
Il faut mettre False. Et si je met False j'ai la Pièce jointe 631628
C'est pour éviter de passer de False à True souvent (si je veux modifier les commentaires mais ce n'est pas sans arrêt non plus) mais pour le programme ce n'est pas un souci
Tous les commentaires ne peuvent-être modifiés[/U][/B] => Normal la macro est dans ThisWorkbook
Oui je suis encore sous Excel 2003 comme le vieux nonagénaire que je suis

Merci à toi
Bien cordialement

[Philippe Tulliez]

Bonjour,
L'argument Cancel avec comme valeur True sert à éviter que le menu contextuel ne s'affiche lorsque l'on fait un clic droit. C'est pour cette raison d'ailleurs que cette procédure événementielle se nomme BeforeRightClic

On utilise ce type d'événement pour justement utiliser le clic droit pour faire une action ou lancer une procédure en évitant au retour d'avoir le menu contextuel qui s'affiche.

Votre explication dans la discussion fil #5 est très confuse. Si vous expliquiez clairement ce que vous voulez-faire exactement, sans parler de VBA ni de True et de False, ce serait peut-être plus simple pour vous aider

Pour en savoir plus sur les procédures événementielles, je vous conseille un peu de lecture

• Les évènements dans la feuille de calcul Excel
• Les évènements du module objet ThisWorkbook, dans Excel