XL 2010 Copier les commentaires en masse vers un autre emplacement

Jacky67 à dit:

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

**Autre version en V4

Cliquez pour agrandir...

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

jokerfidelio à dit:

je pense est du au colonne masqué ?

Cliquez pour agrandir...

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

Jacky67 à dit:

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.

VB:

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

Cliquez pour agrandir...

Jacky67 à dit:

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

Cliquez pour agrandir...

jokerfidelio à dit:

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

Cliquez pour agrandir...