Bonjour,
Je m'exerce a créer une macro me permettant de récupérer uniquement les commentaires de mes
feuilles de travail.
La difficulté est que la longueur de la feuille n'est jamais la même.
---------
Sheets("synthese").Columns("A:H").Delete Shift:=xlToLeft
For s = 1 To Sheets.Count - 1
Range(Sheets(s).[A2], Sheets(s).[A65000].End(xlUp).End(xlToRight)).Copy _
[A65000].End(xlUp).Offset(4, 0)
Next s
On Error Resume Next
Sheets("synthese").DrawingObjects.Delete
----------
Vous remerciant par avance pour votre aide,
Olivier77
Je m'exerce a créer une macro me permettant de récupérer uniquement les commentaires de mes
feuilles de travail.
La difficulté est que la longueur de la feuille n'est jamais la même.
---------
Sheets("synthese").Columns("A:H").Delete Shift:=xlToLeft
For s = 1 To Sheets.Count - 1
Range(Sheets(s).[A2], Sheets(s).[A65000].End(xlUp).End(xlToRight)).Copy _
[A65000].End(xlUp).Offset(4, 0)
Next s
On Error Resume Next
Sheets("synthese").DrawingObjects.Delete
----------
Vous remerciant par avance pour votre aide,
Olivier77