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

un internaute

XLDnaute Occasionnel
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

VB:
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
 

Fichiers joints

Staple1600

XLDnaute Barbatruc
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)
:rolleyes:
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 :D
[/au cas où la solution intéresserait d'autres membres que @un internaute]
 

Staple1600

XLDnaute Barbatruc
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 ?
 
Dernière édition:

un internaute

XLDnaute Occasionnel
Bonjour Staple1600 et Robert
Toutes mes excuses mais oubli de ma part j'étais dans mon "truc"
Merci pour le rappel
Cordialement à vous

VB:
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
 

Discussions similaires


Haut Bas