Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion

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
U

un internaute

XLDnaute Impliqué
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
 

Pièces jointes

Trier par date Trier par votes
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]
 
Vote positif 0 Vote négatif
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:
Vote positif 0 Vote négatif
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

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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
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

U
  • Question Question
Autres RÉSOLU ma macro ne fonctionne pas
Réponses
3
Affichages
155
un internaute
U
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
488
un internaute
U
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
366
ManuEven
M
U
  • Question Question
Autres [RÉSOLU] Pour faire afficher colonne F par double clic dans tout le classeur
Réponses
3
Affichages
546
vgendron
D
  • Question Question
XL 2010 Valoriser cellule par clic
Réponses
4
Affichages
575
fanch55
U
  • Question Question
Autres [RÉSOLU] Faire afficher ligne sur tout le classeur par double clic et la faire maquer à l’enregistrement
Réponses
11
Affichages
864
un internaute
U
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
324
Lu76Fer
  • Suggestion Suggestion
Recherche & référence Rand_Between_Nodouble
Réponses
0
Affichages
550
patricktoulon
U
  • Question Question
Autres Enregistrer sur Onglet TOTO
Réponses
2
Affichages
654
un internaute
U
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
761
oguruma
Z
  • Résolu(e)
XL 2019 Problème liens Hypertexte
2
Réponses
16
Affichages
2 K
Zapinet
Z
U
  • Question Question
Autres [RESOLU] Application.ScreenUpdating = False
Réponses
4
Affichages
1 K
un internaute
U
  • Résolu(e)
Microsoft 365 compter le temps passé sur une ligne et cumuler tous les temps passés
2
Réponses
17
Affichages
2 K
Usine à gaz
U
  • Résolu(e)
Autres Mettre en couleur ligne avec VBA car MFC occupées (Excel 2003)
2
Réponses
15
Affichages
2 K
un internaute
U
  • Résolu(e)
Microsoft 365 msgBox : afficher contenu de la cellule cliquée
2
Réponses
15
Affichages
2 K
Usine à gaz
  • Résolu(e)
Microsoft 365 Calendrier : Modifier Target > change R
Réponses
10
Affichages
2 K
Usine à gaz
U
  • Question Question
Autres [RÉSOLU] Code macro à modifier ou pas
Réponses
3
Affichages
1 K
ChTi160
O
  • Résolu(e)
XL 2013 Rajouter une bordure noire dans un tableau par VBA
Réponses
5
Affichages
995
Lolote83
L
U
  • Question Question
Autres Modifier couleurs par double click
Réponses
1
Affichages
955
Dudu2
  • Résolu(e)
Microsoft 365 lister des fichiers
2
Réponses
19
Affichages
2 K
Usine à gaz
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…