Discussion :

[amael83]

Bonjour, je ne dois certainement pas être le premier à être confronté à ce problème, et malgré mes recherches je ne trouve pas de piste dans le trésor de ce forum. J'aurais donc tendance à penser que ce n'est pas possible, mais encouragé par mes précédents appels à l'aide, je lance ma bouteille à la mer

Je voudrais, pour la valeur comptable d'une cellule donnée, pouvoir faire apparaître dans son commentaire la part qui n'a pas encore été facturée. Cette valeur est disponible dans une autre colonne et pourrait ainsi apparaître au survol de la cellule sans rajouter une colonne permanente dans mon tableau pour autant.

Je souhaiterais donc, plus simplement, afficher la valeur des cellules d'une colonne dans les commentaires des cellules d'une autre colonne.

Est ce possible de le faire simplement sur la base d'un collage spécial amélioré?
Est ce que cela pourrait être supporté par une fonction additive?
Ou en dernier lieu par une macro, mais j'ai peur que de générer un commentaire en ligne à ligne sur 10000 lignes à chaque mise à jour de mon tableur présente une certaine lourdeur d'exécution

Merci beaucoup d'avance à ceux qui se pencheront sur mon problème ! et surtout bon week end à tous

[BENNASR]

bonsoir et bienvenue
partant du principe que en colonne A tu as des valeurs et en colonne B tu as des valeurs y relatives
et tu cherches à imputer chaque valeur en colonne B comme un commentaire de la colonne A :
à tester

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub inserercommentaire()
Dim plage As Range
Dim Cell As Range
Dim Dernligne As Long
Dim L As Integer
Application.ScreenUpdating = False
On Error Resume Next
With Sheets("Feuil1")
Dernligne = .Range("A" & Rows.Count).End(xlUp).Row
For L = 2 To Dernligne
Cells(L, 1).Comment.Delete
With Cells(L, 1).AddComment
.Shape.Placement = xlFreeFloating
.Shape.TextFrame.AutoSize = False
X = Cells(L, 2).Text
.Text Text:=X
End With
Next L
End With
Application.ScreenUpdating = True
End Sub

[amael83]

Merci beaucoup BENNASR ! Je ne pensais pas avoir une réponse aussi rapide

C'est du ligne à ligne mais ça a le mérite de fonctionner. Je verrai à quel point ça augmente la durée de la mise à jour du fichier.

Bon week end et encore merci

[BENNASR]

testez et adaptez pour ton cas et si c'est résolu merci de cliquer en bas sur le bouton RESOLU

[amael83]

Je n'y manquerai pas. Merci !

[patricktoulon]

bonsoir BENNARS
gestion d'erreur superflue avec clearcomments

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub InsertComment()
    Dim plage As Range
    Dim Cel As Range
      Application.ScreenUpdating = False
    With Sheets("Feuil1")
        Set plage = .Range("A2:A" & .Cells(Rows.Count, "A").End(xlUp).Row)
        For Each cel In plage.Cells
            With cel
                .ClearComments
                .AddComment
                .Comment.Text Text:=cel.Offset(, 1).Text
            End With
        Next
    End With
    Application.ScreenUpdating = True
End Sub

Attention a ce que tu ecrit
si tu n'est pas sur le sheet actif !!!

Code :

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

1
2
3
4
With Sheets("Feuil1")
Dernligne = .Range("A" & Rows.Count).End(xlUp).Row
For L = 2 To Dernligne
Cells(L, 1).Comment.Delete'LE POINT DEVANT CELLS !!!!!!!!!!!