details dans commentaires

  • Initiateur de la discussion Initiateur de la discussion jack
  • Date de début Date de début

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 !

J

jack

Guest
Bonjour à tous

un peu à l'image de ce que Hervé a réalisé pour Grumly,

Je voudrais par une macro avec un bouton toggle pouvoir afficher les commentaires ou au contraire ne pas les afficher
avec dans les commentaires le report de certaines cellules bien précises en l'occurrence les valeurs qui ont permis de faire le total trouver en c12 pour l'exemple
il me faudra cela pour les cellules de c10 à c50
la totalisation des cellules c12 c14 c16 est fictive
j'adapterais par la suite

est ce que cela est possible ?
merci pour votre aide
ci joint le dossier pour aider à u voir plus clair

slts

jack [file name=COMMENTAIRES.zip size=14858]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/COMMENTAIRES.zip[/file]
 

Pièces jointes

Bonjour,

Pour afficher ou non les commentaire deux macros à placer .
- Vas dans VBA
- CTRL + R pour affiche VBA project
- Double clique sur « FEUIL1 »- Taches
- Colle cette macro :
Code:
Private Sub ToggleButton1_Click()
If ToggleButton1 = True Then
Call Montrecommentaire
Else
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End If
End Sub
- toujours dans VBA, crèe un module via menu / insertion / module
- Colle cette macro
Code:
Sub Montrecommentaire()
Application.CommandBars('Reviewing').Visible = False
For Each cell In Range('C10:C50')
If cell.Value > 0 Then
Application.DisplayCommentIndicator = xlCommentAndIndicator
End If
Next
End Sub

Bon travail

😉
 
Bonjour jack, dan, le forum

une autre syntaxe possible :


Private Sub ToggleButton1_Click()
Dim i As Integer

If ToggleButton1 Then
ToggleButton1.Caption = 'DETAILS DES COLIS'
Else
ToggleButton1.Caption = 'SANS DETAILS DES COLIS'
End If

For i = 10 To 50
If Not Cells(i, 'c').Comment Is Nothing Then
Cells(i, 'c').Comment.Visible =
Not ToggleButton1
End If
Next i
End Sub

a placer dans le module de la feuille.

Par contre je ne vois pas trop comment renseigner les commentaires directement par macro.

Les 2 tableaux seraient sur la meme feuilles on pourrait jouer avec les dependents.

il faudrait que tu nous montres les formules que tu va réellement employer ( c'est toujours des sommes ?)

salut

Message édité par: hervé, à: 01/12/2005 10:35
 
bonjour

merci à vous deux

il y aura toujours des sommes dans les colonnes ' total'
s'il faut passer par une ' manoeuvre' je peux toujours reprendre le tableau et le réaménager différemment
Exemple ci joint
c'est un peu lourd mais bon à défaut de trouver mieux pour l'instant

je peux tout aussi mettre le tableau sur la même feuille le cas échéant
merci pour votre aide

slts

jack [file name=COMMENTAIRES_20051201104736.zip size=15666]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/COMMENTAIRES_20051201104736.zip[/file]
 

Pièces jointes

re jack, dan

J'ai pas trouvé d'autres solutions que tout mettre sur la meme feuille.

Ou alors il faudrait monter une usine à gaz, en splitant les formules de calul, puis en recherchant les adresses dans chaque troncon.

et encore, cette méthode ne résisterait pas à une formule de type somme()

donc en pièce jointe, une propostion, un peu bricolorigolo, mais j'ai pas mieux en stock.

salut [file name=COMMENTAIRESjack.zip size=21584]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/COMMENTAIRESjack.zip[/file]
 

Pièces jointes

Bonsoir
Merci Hervé pour cette solution

il y a un petit bug car dans les commentaires il manque des données c'est à dire que la fenêtre du commentaire ne s'adapte pas au contenu
si j'ai 8 familles 101,103,105,107,109,115,117,119 il ne m'affiche que les 4 premières par défaut

d'où soucis

merci de votre aide à tous en tous les cas

slts
jack
 
re jack

c'est pas un bug, c'est parce que ton commentaire est trop petit pour laisser apparaitre toutes les données.

souci solutionné en pièce jointe. (enfin !!!! si j'y arrive)


salut [file name=COMMENTAIRESjack_20051201183508.zip size=23366]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/COMMENTAIRESjack_20051201183508.zip[/file]
 

Pièces jointes

j'ai bien une solution qui permet de définir le commentaire directement depuis la cellule Excel, dans une formule, mais j'ai rencontré le même écueil qu'Hervé, à savoir qu'il est impossible de définir la propriété Autosize du commentaire depuis une fonction personnalisée. Cependant il est possible de lui donner une taille fixe. Comme je n'aime pas mettre des solutions incomplètes, je ne l'ai pas jointe ici, mais si tu crois que ça peut t'intéresser, dis-le et je joindrai mon fichier tout de même.
 
Alors voilà une solution qui nous permet de définir le texte du commentaire à afficher (ainsi que les dimensions de celui-ci) directement depuis la cellule, ce qui nous permet de nous dispenser de bouton d'appel de la macro. [file name=CommentTi.zip size=15109]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CommentTi.zip[/file]
 

Pièces jointes

- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

D
Réponses
21
Affichages
4 K
S
Réponses
1
Affichages
1 K
Retour