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

Commentaire visible sur une colonne variable en fonction d'une donnée

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

piga25

XLDnaute Barbatruc
Bonjour,

Je ne suis vraiment pas doué pour les commentaires (ceux d'excel).
Je cherche à rendre visible tous les commentaires d'une colonne, mais uniquement ceux de la colonne qui correspondent à l'année choisie dans une cellule dont la valeur change avec un Scrollbar.
Merci
 

Pièces jointes

Trier par date Trier par votes
Re : Commentaire visible sur une colonne variable en fonction d'une donnée

Bonjour PierreJean,

C'est parfait.
Juste un petit ajout si cela est possible, c'est en voyant le résultat que j'y pense.
Y a t'il moyen que les commentaires se positionnent obligatoirement sur la droite de la cellule avec la même hauteur que la ligne, et cela même si lors de la création ils ont été mis à gauche.
Déjà merci, je regarde bien les codes pour tout comprendre.
 
Vote positif 0 Vote négatif
Re : Commentaire visible sur une colonne variable en fonction d'une donnée

Bonjour à toutes et à tous,

J'ai trouvé un code du Grand Chaman Excel qui répond à ma demande
https://www.excel-downloads.com/threads/conserver-la-position-des-commentaires.184240/

Code: 
Sub ReplacerCommentaires()
    Dim cmtr As Comment
    For Each cmtr In ActiveSheet.Comments
       cmtr.Shape.Top = cmtr.Parent.Top + 6
       cmtr.Shape.Left = cmtr.Parent.Offset(0, 1).Left + 6
    Next
End Sub

 
Vote positif 0 Vote négatif
Re : Commentaire visible sur une colonne variable en fonction d'une donnée

Re

Merci PierreJean

Et avec un ajustement auto des commentaires en plus :
Code: 
Sub invisibles()For Each cmtr In ActiveSheet.Comments
  cmtr.Visible = False
Next
End Sub


Sub visibles()
For n = 1 To Cells(2, Columns.Count).End(xlToLeft).Column
  If Cells(2, n) = Range("B1") Then
    For Each cmtr In ActiveSheet.Comments
      If cmtr.Parent.Column = n Then
        cmtr.Visible = True
        cmtr.Shape.Top = cmtr.Parent.Top + 6
        cmtr.Shape.Left = cmtr.Parent.Offset(0, 1).Left + 6
        cmtr.Shape.TextFrame.AutoSize = True
      End If
    Next
  End If
Next
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

S
  • Question Question
Microsoft 365 TCD avec pourcentage en fonction d'une variable
Réponses
6
Affichages
311
chris
  • Résolu(e)
XL 2021 Extraction images depuis commentaire de cellule vers dossier.
11 12 13
Réponses
182
Affichages
3 K
patricktoulon
A
  • Question Question
Microsoft 365 créer un lien vers une cellule dont la ligne est fluctuante
Réponses
3
Affichages
249
AtTheOne
Z
  • Question Question
Microsoft 365 Rendre visible un onglet en fonction du contenu d'une cellule
Réponses
2
Affichages
218
zorol
Z
J
  • Question Question
Microsoft 365 VBA transformer une formule au format texte en formule dans excel
Réponses
2
Affichages
201
jujulili
J
I
  • Résolu(e)
Microsoft 365 Copier-coller dans une plage avec des cellules masquées
Réponses
6
Affichages
554
sylvanu
M
  • Question Question
Microsoft 365 Aide à une formule sur un calendrier semainier
Réponses
4
Affichages
283
GALOUGALOU
M
  • Résolu(e)
XL 2021 Automatisation de la randomisation des cellules d'une colonne
3 4 5
Réponses
61
Affichages
2 K
Dranreb
T
  • Question Question
Microsoft 365 Afficher des résultats d'une colonne sur une ligne
Réponses
3
Affichages
260
toto142
T
A
  • Résolu(e)
Microsoft 365 NB.SI sous condition_fusionner deux formules
Réponses
10
Affichages
395
job75
O
  • Question Question
XL 2019 erreur de valeur sur formule
2
Réponses
18
Affichages
1 K
olivier1984
O
Y
  • Résolu(e)
XL 2016 Validation de données en fonction d'une table
Réponses
3
Affichages
172
youguybass
Y
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
645
piga25
L
  • Question Question
Microsoft 365 Trier des données d'une colonne dans une autre
Réponses
2
Affichages
442
Langrand
L
F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
1 K
fanfan38
C
  • Question Question
XL 2010 Recherche de colonne et calcul sur 2 années consécutives
Réponses
0
Affichages
341
CS49
C
A
  • Question Question
XL 2019 Copier le contenu d'un MsgBox ou d'une variable
Réponses
12
Affichages
754
Attila451
A
C
  • Résolu(e)
Microsoft 365 Trouver résultat en fonction de la dernière ligne d'une colonne
Réponses
7
Affichages
470
Chounoé
C
C
  • Résolu(e)
XL 2016 Formule de calcul de la somme conditionnée des écarts d'une plage par rapport à une valeur témoin
Réponses
3
Affichages
271
crocrocro
C
  • Question Question
Microsoft 365 VBA : copier / coller d'un onglet à l'autre en fonction d'une valeur
Réponses
8
Affichages
777
Lisette
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…