Commentaire à la fausse place

Bonjour à toute la communauté !

J’ai déjà bien profité de toutes les solutions proposées sur ce forum mais pour la question que j’ai maintenant je n’ai pas trouvé de réponse. Et sincèrement après avoir cherché plusieurs jours j’abandonne. Alors voilà, présentation du fichier :

mon employeur voulait un fichier regroupant l’intégralité des plans de travail des différentes unités. Pour ce faire, j’ai uniformisé le système d’entrée des données (chaque tâche correspond à une ligne dans un commentaire) dans chaque fichier des unités et créé une base de données. À l’ouverture de celle-ci, chaque fichier d’unité est ouvert l’un après l’autre et les données sont collées au fur et à mesure dans la base de données.

Tout fonctionnait très bien jusqu’au début de la semaine quand le problème est apparu. Si je passe la souris sur une cellule contenant un commentaire, celui-ci s’affiche normalement en haut à droite de la cellule.

Cependant si je clique sur les différents menus déroulants se trouvant sur cette même page le commentaire d’une cellule aléatoire (disons DX462) s’affiche à côté de la cellule sélectionnée. Ce qui ne devrait pas être le cas.

HELP!?!?!

oh.....

Je ne suis pas le seul à ne rien y comprendre?

Bonsoir,

A mon avis, c'est qu'il faut d'abord voir le problème, et que tu ne montres rien... !

Les images ne s'affichent pas?

Bonjour,

Copie cette procédure dans un module standard.

Elle va repositionner tous les commentaires de la feuille active.

Cdlt.

Sub ResetComments()
Dim cmt As Comment
    For Each cmt In ActiveSheet.Comments
        With cmt.Shape
            .Top = cmt.Parent.Top + 5
            .Left = cmt.Parent.Offset(, 1).Left + 5
        End With
    Next cmt
End Sub

Salut Jean-Eric

Malheureusement dejà essayé avant de poser la question mais merci beaucoup !

Jean-Eric a écrit :

Bonjour,

Copie cette procédure dans un module standard.

Elle va repositionner tous les commentaires de la feuille active.

Cdlt.

Sub ResetComments()
Dim cmt As Comment
    For Each cmt In ActiveSheet.Comments
        With cmt.Shape
            .Top = cmt.Parent.Top + 5
            .Left = cmt.Parent.Offset(, 1).Left + 5
        End With
    Next cmt
End Sub

une autre idée?

Bonjour,

Sans fichier joint, il va être difficile de te renseigner.

Cdlt.

Jean-Eric a écrit :

Bonjour,

Sans fichier joint, il va être difficile de te renseigner.

Cdlt.

Le problème qu'il s'agit d'un fichier du travail avec des noms ainsi que des horaires confidentiels. Je n'ai pas le droit de le transmettre à l'extérieur.

Bonjour,

Tu devrais regarder regarder au niveau de tes listes déroulantes (Données validation, messages).

Sinon, exécute cette procédure dans la feuille active.

Elle va créer une nouvelle feuille avec toutes les informations des commentaires.

Cela pourra peut-être t'aider...

Cdlt.

Option Explicit

Public Sub ShowComments()
Dim rngComments As Range, Cell As Range
Dim ws As Worksheet, newWS As Worksheet
Dim I As Long

    Set ws = ActiveSheet

    On Error Resume Next
    Set rngComments = ws.Cells.SpecialCells(xlCellTypeComments)
    On Error GoTo 0

    If rngComments Is Nothing Then
        MsgBox "Il n'y a pas de commentaires dans cette feuille."
        Exit Sub
    End If

    Application.ScreenUpdating = False
    Set newWS = Worksheets.Add
    newWS.Range("A1:D1").Value = _
    Array("Addresse", "Nom", "Valeur", "Commentaire")

    I = 1
    For Each Cell In rngComments
        With newWS
            I = I + 1
            On Error Resume Next
            .Cells(I, 1).Value = Cell.Address
            .Cells(I, 2).Value = Cell.Name.Name
            .Cells(I, 3).Value = Cell.Value
            .Cells(I, 4).Value = Cell.Comment.Text
        End With
    Next Cell

End Sub

Bonjour Jean-Eric,

Merci pour les inputs, je vais regarder ça et reviendrai vers toi.

Bonne journée

DM

Bonjour,

Le problème qu'il s'agit d'un fichier du travail avec des noms ainsi que des horaires confidentiels.

C'est vrai que c'est insurmontable ça...

eric

Dams86 a écrit :

Jean-Eric a écrit :

Bonjour,

Sans fichier joint, il va être difficile de te renseigner.

Cdlt.

Le problème qu'il s'agit d'un fichier du travail avec des noms ainsi que des horaires confidentiels. Je n'ai pas le droit de le transmettre à l'extérieur.

Et même en copiant et changeant les données confidentielles ?