Excel - synthese des onglets - boucle sur onglet

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 077 fois - Téléchargée 36 fois

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

Ajouter un commentaire

Commentaires

Commenter la réponse de macox74
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.