Que puis-je ajouter dans cette macro pour éviter de la modifier?

Version imprimable

29/12/2022, 07h34
Un Internaute

1 pièce(s) jointe(s)

Que puis-je ajouter dans cette macro pour éviter de la modifier?

Bonjour le forum

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

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

Bonjour,

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

Code:

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

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

Code:

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

1 pièce(s) jointe(s)

Citation:
Envoyé par ARTURO83
Bonjour,

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

Code:

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

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

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

30/12/2022, 06h08
ARTURO83

1 pièce(s) jointe(s)

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)

Pièce jointe 631628

Cdlt
30/12/2022, 06h47
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
30/12/2022, 09h59
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
30/12/2022, 10h34
Un Internaute

Bonjour Philippe Tulliez
Dans le fichier joint Essai joint je voudrais avec la macro ci-dessous pouvoir modifier les commentaires dans tout le classeur
Merci
Bien cordialement à vous

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = False
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
End Sub

Alors ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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
    If Not Application.Intersect(Target, Range("H6:H36")) Is Nothing Then
        Cancel = True
        If Target.Cells(1, 1).Value = "" Then
            Target.Cells(1, 1).Value = 1
        Else
            Target.Cells(1, 1).Value = ""
        End If
    Else
        Cancel = False
    End If
Sortie:
    Application.EnableEvents = True
End Sub

Cdlt

30/12/2022, 11h31
Philippe Tulliez

Bonjour,
Je vous demandais d'expliquer sans jargon informatique, comme vous l'expliqueriez à quelqu'un qui devrait le programmer.
Pourquoi voulez-vous passer par une procédure événementielle ?

Pour modifier tous les commentaires d'un classeur, une simple procédure écrite dans un module standard pourrait faire l'affaire mais comme vous n'expliquez pas exactement ce que vous voulez, il n'y a pas de solution.
Vous voulez changer quoi dans les commentaires ?
Les titres, la mise en forme, y a t'il des conditions, des textes à récupérer depuis des cellules, etc., etc. ?

On vit dans une société de communication et on communique de plus en plus mal

Citation:

Envoyé par ARTURO83

Alors ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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
    If Not Application.Intersect(Target, Range("H6:H36")) Is Nothing Then
        Cancel = True
        If Target.Cells(1, 1).Value = "" Then
            Target.Cells(1, 1).Value = 1
        Else
            Target.Cells(1, 1).Value = ""
        End If
    Else
        Cancel = False
    End If
Sortie:
    Application.EnableEvents = True
End Sub

Cdlt

re ARTURO83
SUPER
Excuse moi si je me suis mal exprimé ( je suis un spécialiste on me le reproche souvent sur les forums!!!)
Encore un grand merci
Bonne fin de journée
Très cordialement

30/12/2022, 13h09
Philippe Tulliez

Bonjour,
Je suis heureux pour vous que vous ayez reçu la réponse que vous attendiez mais je reste perplexe entre le fait que vouliez modifier tous les commentaires du classeur alors que le code que vous avez retenu efface la valeur ou écrit 1 (plage H6:H36)

Je dois sans doute ne pas comprendre ce que je lis.
31/12/2022, 07h07
Un Internaute

1 pièce(s) jointe(s)

Bonjour Philippe Tulliez
Je voulais exactement ça et non modifier tous les commentaires du classeur
C'était pouvoir faire un clic droit sans afficher le menu contextuel et pourvoir modifier mes commentaires sans modifier la macro à chaque modifs des commentaires
Pour copier tous les commentaires dans un classeur j'ai des programmes ou les déplacer j'ai des macros dans fichier Essai et modules divers
J'ai fait ARTURO83 EST SUPER Cellule A3
Merci à toi et Bonne Année 2023
Cordialement

Bonjour,
Désolé si j'ai mal interpreté vos explications.

Petites remarques tout de même.
Je ne vois pas la raison de placer un On Error Goto Fin ni de placer l'instruction Application.EnableEvents = False et j'ajouterais un test (voir ligne 4) car si vous faites une sélection de plusieurs cellules par exemple G6:I7 vous allez écrire 1 ou "" dans la cellule G6
Une dernière remarque. Vous utilisez la procédure Workbook_SheetBeforeRightClick, cela signifie donc que cela doit fonctionner sur toutes les feuilles de votre classeur sans exception ?
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) 'macro pour click droit cellules colonne H If Not Application.Intersect(Target, Range("H6:H36")) Is Nothing Then With Target If ActiveCell.Column = 8 Then .Cells(1, 1).Value = IIf(.Cells(1, 1).Value = 1, "", 1) Cancel = True End If End With End If End Sub

Fuseau horaire GMT +2. Il est actuellement 10h33.