Discussion :

[truman]

Bonjour

Sur ma feuille Excel j'ai plusieurs plans de regroupement en ligne. Sur ces lignes, plusieurs cellules possédent des commentaires. Le problème est que lorsqu'on regroupe/dégroupe ça met une pagaille monstre au niveau des bulles de commentaires (qui elles ne bougent pas, contrairement aux lignes non masquées).

Je possède déjà une procédure de positionnement des commentaires, qui me sert déjà pour remettre de l'ordre après bidouillage dans la mise en page (masquage de colonnes) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Place_Com()
    Dim com As Comment
 
    For Each com In ActiveSheet.Comments
        With com
            .Shape.Left = .Parent.Left + .Parent.Width
            .Shape.Top = .Parent.Top
        End With
    Next
 
End Sub

Je voudrai que cette procédure soit appelée à chaque fois que l'on clique sur un bouton de regroupement/dégroupement (+ ou -) afin de remettre de l'ordre sur ma feuille (d'ailleurs je me suis étonné que les commentaires ne se positionnent pas correctement, ils sont dépendants d'une cellule et devrait le faire automatiquement, non ? enfin bon ).

Merci de votre aide.

[ouskel'n'or]

Curieux ton histoire
Tu parles bien du regroupement créé lorque tu regroupes plusieurs lignes ou colonne pour créer un plan ?

A+

[truman]

Curieux ton histoire
Tu parles bien du regroupement créé lorque tu regroupes plusieurs lignes ou colonne pour créer un plan ?

A+

C'est exactement ça.
J'ai fait un petit exemple, captures à l'appui.

Voici l'état initial :


Petit clic sur le premier '-'. Et là, c'est le drame :


Voila mon problème actuel. J'aimerai que mes commentaires soient joliment alignés avec mes cellules. Comme tu as pu le voir, j'ai déjà la procédure pour le faire mais... comment l'appeler au moment opportun ??

Merci de ton aide.

[truman]

OH LE C.. !

Clic droit->Format de commentaire->Propriétés->Déplacer sans dimensionner avec les cellules

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.Comment.Shape.Placement = xlMove

[ouskel'n'or]

Je possède déjà une procédure de positionnement des commentaires, qui me sert déjà pour remettre de l'ordre après bidouillage dans la mise en page (masquage de colonnes) :

Tu as plus simple : Pour que ton commentaire suive les cellules, tu as pour chaque commentaire une option "Déplacer et dimensionner avec les cellules"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
    With Selection
        .Placement = xlMoveAndSize
    End With

A adapter, bien sûr, mais je pense que tu pourras faire ça
Un truc comme ça que tu lanceras une fois pour toutes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Place_Com()
Dim com As Comment
    For Each com In ActiveSheet.Comments
        With com
             .Placement = xlMoveAndSize
        End With
    Next 
End Sub

Tu dis

A+

NB - Pas trouvé d'événement correspondant à la modification du masquage des lignes ou colonnes en mode plan