Bonjour,
J'ai, grace à l'un de vous, pu récupérer un code VBA qui me permette de récapituler différents onglets sur un seul onglet récap.
Un immense merci. Il me manque néanmoins un tout petit bout... et je ne sais comment faire. je vais me lancer dans une formation VBA mais là, je dois rendre ce travail rapidement.
Voila, le code me récapitule toutes les lignes de saisie de différents onglets. J'aimerai que dans l'onglet "récap" s'ajoute dans la première colonne le nom de l'onglet d'origine pour chaque ligne.
Voici le code:
Sub RegroupeFeuilles() 'dans "Récap"
Dim Lg&, Sh As Worksheet, f As Worksheet
Set f = Sheets("Récap")
f.Range("a2:g" & f.[a65000].End(xlUp).Row).ClearContents 'efface Récap
For Each Sh In Worksheets
If Sh.Name <> f.Name And Sh.Name <> "bdd" And Sh.Name <> "tables" And Sh.Name <> "Process" Then 'feuilles à ne pas traiter
Lg = Sh.Range("a" & Rows.Count).End(xlUp).Row
Sh.Range("a7:g" & Lg).Copy Destination:= _
f.Range("b" & Rows.Count).End(xlUp)(2)
End If
Next
End Sub
En vous remerciant chaleureusement de votre aide,
Sophie