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
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.