Comment insérer la valeur de cellules en commentaire dasn une autre ?

[titikio]

Bonjour,

Dans mon fichier Excel, je récupère de données (dans les colonnes de I à N), dans une quinzaine d'onglets différents (je les ai supprimés pour ne pas allourdir le fichier).

Afin de récapituler et de trier mes informations (par date) dans les colonnes A à F, et ne pas avoir un document illisible, il m'a été demandé de mettre en commentaire, la valeur contenue dans la colonne N.

Par exemple, en E27 doit apparaître en commentaire, le texte situé en N5.


Quelqu'un peut-il m'aider ??

Merci d'avance.

 

[Guest]

Re : Comment insérer la valeur de cellules en commentaire dasn une autre ?

Bonsoir et bienvenue sur le forum,

peut-être que cela ira:

Sub Commentaires()
Dim c As Range, c2 As Range
With Sheets("Récap Général")
    For Each c In .Range("L3:L" & .Range("L" & Rows.Count).End(xlUp).Row)
       'Si la cellule n'est pas vide
        If Not IsEmpty(c) Then
          Set c2 = Range("E3:E" & .Range("E" & Rows.Count).End(xlUp).Row).Find(what:=c, LookIn:=xlValues, lookat:=xlWhole)
          'Si la cellule est trouvée en colonne E et qu'il y a un text en colonne N pour le dossier
          If Not c2 Is Nothing And Not IsEmpty(c(1, 3)) Then
            'Si c2 possède un commentaire, le supprimer
            If Not c2.Comment Is Nothing Then c2.Comment.Delete
            'créer le commentaire
            c2.AddComment c(1, 3).Text
          End If
        End If
    Next
End With
End Sub

A+

 

[BOISGONTIER]

Re : Comment insérer la valeur de cellules en commentaire dasn une autre ?

Bonsoir,

Avec une fonction perso (maj automatique)

JB