copier dans une cellule le dernier commentaire de chaque colonne

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

pascal21

XLDnaute Barbatruc
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
 

Pièces jointes

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

Bonjour Pascal,

La macro dans le code de la feuille :

Code:
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+
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour