XL 2010 Copier les commentaires en masse vers un autre emplacement

[jokerfidelio]

Bonjour a tous et d'abord merci pour votre travail a tous

Dans l'exemple du fichier donné ici, est il possible via VBA (via bouton de formulaire) de copier les commentaires de plusieurs cellules exemple ici
"A1:A21"
et de les copier les uns en dessous des autres comme dans l'exemple en "J23" pour une lecture rapide et clair ?

Merci a vous de m'aidé

 

[jokerfidelio]

RE
Ceci fonctionne sans problème avec xl 2007
Sans dupliquer la macro x fois

**Autre version en V4

Bonsoir Jacky67, j'aimerais revenir sur ce post et sollicite a nouveau vos compétences :
j'ai pu reprendre votre code sur un autre fichier mais je but sur un problème :
qui je pense est du au colonne masqué ?
la copies des commentaires est complètement décalé, j'arrive pas à résoudre ce problème

Option Explicit

Sub commentaire()  'lundi...samedi
Dim C As Range, Lig&, Col&, Plage
With Feuil5
  .Range("U20:u" & .Rows.Count).ClearContents
  Lig = 20: Col = Application.Match(ActiveCell.Value, [U19:Z19], 0) + 3
  Set Plage = .Range(.Cells(15, Col), .Cells(55, Col))
  For Each C In Plage
    On Error Resume Next
    .Cells(Lig, "u") = C.Comment.Text
    .Cells(Lig, "u").WrapText = False
    If Err = 0 Then Lig = Lig + 1
    On Error GoTo 0
  Next
End With
End Sub

 

[Jacky67]

je pense est du au colonne masqué ?

Bonjour,
Oui ce sont bien les colonnes masquées qui provoquent l'erreur
J'ai pris comme référence pour récupérer le n° de colonne , la ligne 13 (a13 : p13)
Cette plage (a13 : p13) ne doit pas être modifiée.

Sub commentaire()  'lundi...samedi
Dim C As Range, Lig&, Col&, Plage
With Feuil5
  .Range("U20:u" & .Rows.Count).ClearContents
  Lig = 20: Col = Application.Match(ActiveCell.Value, .[a13:p13], 0) ' * modifié
  Set Plage = .Range(.Cells(15, Col), .Cells(55, Col))
  For Each C In Plage
    On Error Resume Next
    .Cells(Lig, "u") = C.Comment.Text
    .Cells(Lig, "u").WrapText = False
    If Err = 0 Then Lig = Lig + 1
    On Error GoTo 0
  Next
End With
End Sub

 

[jokerfidelio]

Bonjour,
Oui ce sont bien les colonnes masquées qui provoquent l'erreur
J'ai pris comme référence pour récupérer le n° de colonne , la ligne 13 (a13 : p13)
Cette plage (a13 : p13) ne doit pas être modifiée.

Sub commentaire()  'lundi...samedi
Dim C As Range, Lig&, Col&, Plage
With Feuil5
  .Range("U20:u" & .Rows.Count).ClearContents
  Lig = 20: Col = Application.Match(ActiveCell.Value, .[a13:p13], 0) ' * modifié
  Set Plage = .Range(.Cells(15, Col), .Cells(55, Col))
  For Each C In Plage
    On Error Resume Next
    .Cells(Lig, "u") = C.Comment.Text
    .Cells(Lig, "u").WrapText = False
    If Err = 0 Then Lig = Lig + 1
    On Error GoTo 0
  Next
End With
End Sub

Effectivement je comprend maintenant mon erreur, merci beaucoup !

j'ai encore une question :

Si je veux utiliser 2 feuilles avec ce même code de récupération de commentaire j'ai une erreur
"Nom ambigu" sur le code de la feuille , Call commentaires !

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [U19:Z19]) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
[U19:Z19].Interior.ColorIndex = 1
Target.Interior.ColorIndex = 3
Call commentaire
With Application: .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
End Sub

 

[Jacky67]

Re..
Les codes des feuilles sont déplacés vers le ThisWorkbook
Regarde si cela convient,
sinon donne un brouillon du classeur avec les 2 feuilles, et les codes qui sont utilisés

 

[jokerfidelio]

Re..
Les codes des feuilles sont déplacés vers le ThisWorkbook
Regarde si cela convient,
sinon donne un brouillon du classeur avec les 2 feuilles, et les codes qui sont utilisés

Bonsoir et encore merci pour le travail...
Je pense que le code fonctionnera avec la feuille en cours mais a condition que le tableau garde la même structure, si au contraire le tableau et different ? j’aimerais pouvoir adapter ce code sur m'importe qu'elle feuille avec une structure différente mais pour un résultat identique.
voici un exemple ci joint

 

[Jacky67]

Bonsoir et encore merci pour le travail...
Je pense que le code fonctionnera avec la feuille en cours mais a condition que le tableau garde la même structure, si au contraire le tableau et different ? j’aimerais pouvoir adapter ce code sur m'importe qu'elle feuille avec une structure différente mais pour un résultat identique.
voici un exemple ci joint

RE..
On ne peut pas avoir 2 macros de même nom dans un classeur
Je n'ai vérifié que les macros concernées

**Avec une seule macro "commentaire" en V5