[RÉSOLU] Modifier commentaires sans passer par commenter bloc

[un internaute]

Bonjour le forum
Pour être franc j'ai posté sur un autre forum mais aucune réponse.
Dans le fichier joint je suis obligé de faire commenter bloc dans ThisWorkbook de la macro ci-dessous qui sert à afficher / masquer la ligne A3 et les colonnes de G à J avant de pouvoir faire Clic Droit pour modifier le commentaire dans cellule A3 ou cellule F2
J'ai pensé au Double clic mais il y en a déjà un dans la feuille.
Je ne trouve pas l'astuce pour l'instant
Cordialement

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal R As Range)       'Cliquez cellule A2 rappel dernier mois de l'année s'affiche (Pas de Double Clic)
  If R.Address = "$A$2" And R.Count = 1 Then Rows(3).Hidden = Not Rows(3).Hidden: R(1, 2).Select   'Modifier "$A$2" pour autre cellule
  If R.Address = "$F$2" And R.Count = 1 Then Columns("G:J").Hidden = Not Columns("G:J").Hidden: R(1, 2).Select   'Modifier "$F$2" pour autre cellule
End Sub

 

[Staple1600]

Bonjour le fil, le forum, un internaute

@un internaute
NB: La question indique RESOLU dans son titre alors qu'il y aucune proposition de solution...
Bizarre, non ?

Ah,non, j'ai compris (voir ci-dessous)

[au cas où la solution intéresserait d'autres membres que @un internaute]
Cette question étant multi-postée (mais pas signalée par un simple lien posté par le demandeur...)
La réponse était là-bas (où @un internaute s'appelle al87)

Ah, la courtoisie, c'est plus ce que c'était, ma bonne dame!
Et pourtant @un internaute n'est pas un perdreau de l'année
[/au cas où la solution intéresserait d'autres membres que @un internaute]

 

[Robert]

Bonjour le forum,

Pour être franc j'ai posté sur un autre forum mais aucune réponse.

Ça me semble pourtant clair...

 

[Staple1600]

Bonjour Robert

Ca ne coûtait rien à @un internaute de mettre le lien, non ?
D'autant que des réponses, il y en avait (dont une qui a résolu le problème)

PS: Encore une fois, ce n'est pas un problème de multi-poster sa question.
C'est simplement apprécié que le demandeur mettre un lien vers le/les autre(s) forums afin de savoir où en est la résolution de la question ailleurs.
Quel intérêt de répondre à une question déjà résolue ailleurs?

NB: D'ailleurs pourquoi revenir sur XLD pour éditer le titre de la discussion en ajoutant RESOLU mais sans préciser comment la question a été résolue ?

 

[un internaute]

Bonjour Ce lien n'existe plus et Robert
Toutes mes excuses mais oubli de ma part j'étais dans mon "truc"
Merci pour le rappel
Cordialement à vous

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, Union(Range("A2"), Range("F2"))) Is Nothing Then
    If Target.Column = 1 Then Rows(3).Hidden = Not Rows(3).Hidden
    If Target.Column = 6 Then Columns("G:J").Hidden = Not Columns("G:J").Hidden
    [A1].Select
End If
End Sub

 

[Staple1600]

Re

@un internaute
Merci pour ton retour et la publication de la solution.

PS: Pour ta prochaine question, n'oublie de mettre le lien si tu poses ta question sur plusieurs forums.