Lier une page de résultats à plusieurs onglet de calcul

[pecourtx]

Bonjour à tous

JE suis un petit nouveau sur ce forum où j’espère trouver un peu d'aide.

J'ai un classeur avec 30 pages de calcul de prix de revient (1 page/ article)

Chaque page porte le nom de l'article. Je voudrai faire une page de résultats avec 1 colonne avec les noms d'article et une 2° avec la valeur d'une cellule de chacune des 30 pages.
Je pourrai bien sur le faire manuellement mais je suis un peu fainéant alors si on peux automatiser un peu ca ....

Merci de votre aide

 

[Fred0o]

Re : Lier une page de résultats à plusieurs onglet de calcul

Bonsoir percourtx et bienvenue sur le forum.

Serais-tu fainéant au point de vouloir faire faire ton boulot par les autres ? peut-être bien car il n'y a même pas de fichier exemple.

A+

 

[Etienne2323]

Re : Lier une page de résultats à plusieurs onglet de calcul

Salut pecourtx, Fred0o 🙂))
bienvenu sur le forum. Je suis d'accord avec notre ami Fred0o, fainéant au point de ne pas fournir de fichier, c'est de la fainéantise de première qualité !!

Voici une piste :

Option Explicit

Sub Test()

Dim Nb_Pages As Byte, i As Byte
Dim Cellule(1 To 1000) As String, Nom(1 To 1000) As String

Nb_Pages = Sheets.Count
For i = 1 To Nb_Pages
    Nom(i) = Sheets(i).Name
    Cellule(i) = Sheets(i).Cells(1, 1).Value
Next i

Sheets("Résultats").Select
For i = 1 To Nb_Pages
    Cells(i, 1).Value = Nom(i)
    Cells(i, 2).Value = Cellule(i)
Next i

Erase Nom, Cellule

End Sub

Cordialement,

Étienne

 

[pecourtx]

Re : Lier une page de résultats à plusieurs onglet de calcul

Merci à vous, je ne savais pas qu'il fallait joindre un fichier avec la demande, je le prépare et l'envoie ....

 

[pecourtx]

Re : Lier une page de résultats à plusieurs onglet de calcul

Et voila, il fallait que je retire quelques logos ....

D'avance merci

 

[Fred0o]

Re : Lier une page de résultats à plusieurs onglet de calcul

Bonjour pecourtx, Etienne,

Voici une adaptation du code d'Etienne sur ton fichier.

A+

 

[pecourtx]

Re : Lier une page de résultats à plusieurs onglet de calcul

Bonjour pecourtx, Etienne,

Voici une adaptation du code d'Etienne sur ton fichier.

A+

Ca marche super, même si je comprend rien à comment vous avez fait !!!!! Un grand merci

Xavier