Une feuille de résultats pour un nombre de feuille aléatoir

[Valentin_Loupe]

Bonjour à tous,

Je voudrais savoir si il est possible de faire un fichier avec une feuille "Résultats" et des autres feuilles que l'on pourrait créer en nombre illimité nommées "Pièce n°1", "Pièce n°2", "Pièce n°3"... avec un bouton nommé "Créer une feuille" présent sur la feuille "Résultat".

Aussi, est-il possible dans la feuille "Résultats" de générer un tableau avec en première colonne le nom de l'onglet des autres pages ("Pièce n°1", "Pièce n°2", "Pièce n°3"...) et en seconde colonne chaque case D5 de chaque feuille ("Pièce n°1", "Pièce n°2", "Pièce n°3"...).

Je vous remercie par avance,

Valentin

 

[Valentin_Loupe]

Re : Une feuille de résultats pour un nombre de feuille aléatoir

Bonsoir à tous,

Je peux maintenant continuer mon programme, merci à vous tous et plus particulièrement à toi bhbh !

A bientôt

PS : J'ai remis le fichier avec la modification, si ça intéresse quelqu'un !

Valentin

 

[Valentin_Loupe]

Re : Une feuille de résultats pour un nombre de feuille aléatoir

Bonsoir à tous,

Je voudrais savoir quels sont les valeurs a changer pour déplacer le tableau dans ma feuille : si je veux faire démarrer mon tableau à la 53ème ligne de ma feuille ?

Aussi, comment faire pour que une des valeurs rapportée dans la feuille résultat soit la somme de toutes les cellules D5 des autres feuilles ?

Merci encore

Valentin

 

[Cousinhub]

Re : Une feuille de résultats pour un nombre de feuille aléatoir

Re,
Remplace le code, et rajoute la fonction suivante :

Sub extraire()
Application.ScreenUpdating = False
derlig = IIf([A65000].End(xlUp).Row <= 52, 53, [A65000].End(xlUp).Row + 1)
Range("A53:G" & derlig).ClearContents
For Each sh In Sheets
    If sh.Name <> "Résultat" Then
        derlig = IIf([A65000].End(xlUp).Row <= 52, 53, [A65000].End(xlUp).Row + 1)
        With Range("A" & derlig)
            .Value = sh.Name
            .Offset(0, 1).Value = sh.[D5]
            .Offset(0, 2).Value = sh.[E6]
            .Offset(0, 3).Value = sh.[F9]
            .Offset(0, 4).Value = sh.[J11]
            .Offset(0, 5).Value = sh.[H4]
            .Offset(0, 6).Value = sh.[M2]
        End With
    End If
Next sh
End Sub
Function SommeCelToutesFeuilles(Rg As Range)
Application.Volatile
Dim F As Worksheet, X As Double
For Each F In Sheets
         If F.Name <> "Résultat" Then X = X + Application.Sum(F.Range(Rg.Address))
Next
SommeCelToutesFeuilles = X
End Function

En E1, par exemple, tu mets cette formule :

=SommeCelToutesFeuilles(D5)

Si tu veux la somme de toutes les cellules D5 de toutes tes feuilles

 

[Valentin_Loupe]

Re : Une feuille de résultats pour un nombre de feuille aléatoir

Bonsoir,

Merci, par contre la fonction ne marche pas : je récupère #NOM? dans la case.