copier dans une cellule le dernier commentaire de chaque colonne

[pascal21]

bonjour le forum
j'aimerais rajouter une petite fonction pour me simplifier la vie dans un tableau que je commence à utiliser au travail
il faudrait que çà reprenne dans une cellule le dernier commentaire de chaque colonne
le mieux est de regarder le classeur fourni pour mieux comprendre
j'ai enlevé tout ce qui ne servait pas à la compréhension couleur MFC etc.....
à cause du poids du bébé
le tableau final s'étend jusqu'à la colonne EP et sur env. 2000 lignes

 

[job75]

Re : copier dans une cellule le dernier commentaire de chaque colonne

Bonjour Pascal,

La macro dans le code de la feuille :

Private Sub CommandButton1_Click()
Dim cel, plage As Range, ref As Range
Application.ScreenUpdating = False
For Each cel In [E5:L11] 'plage à adapter
  If cel <> "" Then
    Set plage = Intersect(Rows("16:65536"), cel.EntireColumn)
    Set ref = plage.Find("*" & Cells(cel.Row, "D") & "*", _
      LookIn:=xlValues, SearchDirection:=xlPrevious)
    If Not ref Is Nothing Then
      ref.Copy
      cel.PasteSpecial Paste:=xlPasteComments
    End If
  End If
Next
Application.CutCopyMode = False
[A1].Select
End Sub

Fichier joint.

A+

 

[job75]

Re : copier dans une cellule le dernier commentaire de chaque colonne

Re,

Il est sans doute souhaitable d'effacer les commentaires en début de macro :

[E5:L11].ClearComments 'plage à adapter

A+

 

[pascal21]

Re : copier dans une cellule le dernier commentaire de chaque colonne

bonjour et merci çà fonctionne bien