Excel - synthese des onglets - boucle sur onglet

Commenter

Contenu du snippet

Récupérer des données dans des onglets.
Afficher dans un autre onglet le nom de chaque onglet et les infos récupérer
des totaux par exemple

Source / Exemple : 


Sub boucle_onglet()
Application.ScreenUpdating = False
Range("C5:E600").Select
    Selection.ClearContents
Dim my_onglet As Integer
Dim Nom, TA, TR
For my_onglet = 2 To Sheets.Count
Nom = Sheets(my_onglet).Name
    Sheets(my_onglet).Select
    TA = Range("d5")
    TR = Range("e5")
    Sheets("Synthese").Select
    Rows("5:5").Select
    Selection.Insert Shift:=xlDown
    Range("C5") = Nom
    Range("D5") = TA
    Range("E5") = TR
    Range("C5").Select
    
Next
End Sub

Conclusion :


Voila

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.