copie de valeur

[steff]

Bonjour,
Mon fichier excel a 50 feuilles,comment faire pour copier 1 cellule(toujours la même)de chaque feuilles ,vers la feuille 1.
Merci d'avance

 

[pierrejean]

essaie cette macro (à adapter pour la cellule à copier et pour l'endoit ou coller dans la 1ere feuille):
Sub recopie()
n = 0
For Each f In Worksheets
n = n + 1
Worksheets('Feuil1').Cells(n, 1) = f.Cells(1, 1)
Next
End Sub

 

[JC de Lorient]

salut Steph

voici un petit code ou sheets(1) est la feuille qui récupère les données et les range en colonne A les données de A1 de toutes tes feuilles
sheets(1) doit etre la 1ère ou alors tu adaptes en fonction du nom de tes feuilles


Sub trans()
Dim x
For x = 2 To Sheets.Count
Sheets(1).Range('A' & x - 1) = Sheets(x).Range('A1').Value
Next
End Sub

 

[steff]

Merci beaucoup...pour la réponse et la reactivité !!!!!

Bonne fin de journée