Soyez le premier à donner votre avis sur cette source.
Snippet vu 10 370 fois - Téléchargée 38 fois
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
8 janv. 2009 à 11:55
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
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.