Extraire des valeurs sur plusieurs feuilles d'un classeur

Bonjour.

Je cherche à extraire sur une seule feuille les valeurs de certaines cellules ( d12, b12,d8) sur l'ensemble des feuilles d'un classeur.

Pouvez-vous m'aider ?

Merci de votre support et bonne journée

Bonjour, Extraire ?

Faire la somme d'une même cellule sur plusieurs feuilles :

=SOMME(Feuil1:Feuil2!A1)

Somme ( de la feuille 1 : à la feuille 2 ! de la cellule A1 )

Bonjour X-men.

Non, j'ai 125 feuilles et je dois extraire la valeur de certaines cellules sur chacune des feuilles et en faire une liste.

donc sur la feuille 1, la valeur de c12;d14;e15 exemple)

sur la feuille 2 de la valeur de c12; d14; E15

sur la feuille 3 la valeur de C12; D14; E15....

ainsi de suite sur 125 feuilles.

Je dois créer une liste (sur une seule feuille) de l'ensemble des valeurs pour chacune des pages.

Désolé si ce n'était pas clair.

Salutations

finalement je me suis répondu :

Sub no_batiment()

Dim WS_Count As Integer
Dim I As Integer
WS_Count = ActiveWorkbook.Worksheets.Count

'**************************
'Début de la loop
'*******************************
For I = 1 To WS_Count
'*********************************
'MAj champs identification de la station & MAJ strate arborescente
'**********************************

Worksheets("COMP").Activate
Cells(Rows.Count, 1).End(xlUp)(2).Select
ActiveCell.Value = Worksheets(I).Range("d8").Value 'A:station
ActiveCell.Offset(0, 1).Activate 'déplacement d'une colonne
ActiveCell.Value = Worksheets(I).Range("D12").Value 'B: type de strate
ActiveCell.Offset(0, 1).Activate 'déplacement d'une colonne
ActiveCell.Value = Worksheets(I).Range("b23").Value 'c:essence_1
ActiveCell.Offset(0, 1).Activate 'déplacement d'une colonne
ActiveCell.Value = Worksheets(I).Range("B24").Value 'd:essence_1latin_1
ActiveCell.Offset(0, 1).Activate 'déplacement d'une colonne

Worksheets("COMP").Activate
Cells(Rows.Count, 1).End(xlUp)(2).Select 'Retour à la colonne A

Next I

End Sub