Excel - synthese des onglets - boucle sur onglet

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 113 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

Commentaire

Signaler
macox74
Messages postés
4
Date d'inscription
mercredi 7 janvier 2009
Statut
Membre
Dernière intervention
9 janvier 2009
 -
bonjour,

je suis tres mauvais en vba
Est il possible d'adapté ce code pour qu'il recupere des lignes specifiques dans different onglet

D'avance merci pour ton aide
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.