nom de feuille dans colonne supplementaire

[jobar38]

je recupere des données de plusieurs feuilles dans une seule et je voudrais rajouter l'origine de chaque donnée dans une colonne supplementaire

je voudrais rajouter Value = Sheets(s).Name dans mon code mais je ne sais pas comment

Sheets("COMBATTANTS").[A1].CurrentRegion.Offset(1, 0).Clear
For s = 2 To Sheets.Count
Sheets(s).Range("C2:E1281").Copy[A65000].End(xlUp).Offset(1, 0)
Next s

 

[bqtr]

Re : nom de feuille dans colonne supplementaire

Bonjour jobar38,

Peut-être comme ceci:

'.../...
Sheets("COMBATTANTS").[A1].CurrentRegion.Offset(1, 0).Clear
For s = 2 To Sheets.Count
 Range("D" & Range("A65536").End(xlUp).Row + 1) = Sheets(s).Name
 Sheets(s).Range("C2:E1281").Copy [A65000].End(xlUp).Offset(1, 0)
Next s
'.../...

Le nom de la feuille sera copié dans la colonne D au début de chaque block copié.

A+