copie de valeur

steff · 21 Janvier 2006

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 · 21 Janvier 2006

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 · 21 Janvier 2006

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 · 21 Janvier 2006

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

Bonne fin de journée

copie de valeur

steff

Guest

pierrejean

XLDnaute Barbatruc

JC de Lorient

XLDnaute Impliqué

steff

Guest

Discussions similaires

copie de valeur

steff

Guest

pierrejean

XLDnaute Barbatruc

JC de Lorient

XLDnaute Impliqué

steff

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency