Bonjour,
Je dois réaliser un fichier de synthèse dans lequel j'ai plusieurs onglets. L'un d'eux comporte la récap de mes diverses sélections. Je parviens à copier les données de l'onglet ("Valérie") dans la feuille "Recap Detection" en y ajoutant en colonne A à partir de la 1ère cellule vide le nom de l'onglet en l'occurrence Valérie. Mais après avoir sélectionné les données de l'onglet "Nathalie" et de les avoir copier dans l'onglet "Recap detection", je ne parviens pas à savoir comment faire pour dupliquer le nom de l'onglet "Nathalie" que j'insère via :
Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select
ActiveCell.Value = NomOnglet5
et de compléter le nom Nathalie (en colonne A) jusqu'à la dernière cellule complétée de la colonne B.
J'étais partie de l'idée de déterminer Cel comme activecell puisque cette information va changer lorsque je complèterai les informations pour l'onglet Sébastien. J'ai essayé :
cel.autofill destination:= Range(Cel :"A" & Lr) mais il n'aime pas trop :-(.
Quelqu'un aurait-il une idée ?
Merci
Je dois réaliser un fichier de synthèse dans lequel j'ai plusieurs onglets. L'un d'eux comporte la récap de mes diverses sélections. Je parviens à copier les données de l'onglet ("Valérie") dans la feuille "Recap Detection" en y ajoutant en colonne A à partir de la 1ère cellule vide le nom de l'onglet en l'occurrence Valérie. Mais après avoir sélectionné les données de l'onglet "Nathalie" et de les avoir copier dans l'onglet "Recap detection", je ne parviens pas à savoir comment faire pour dupliquer le nom de l'onglet "Nathalie" que j'insère via :
Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select
ActiveCell.Value = NomOnglet5
et de compléter le nom Nathalie (en colonne A) jusqu'à la dernière cellule complétée de la colonne B.
J'étais partie de l'idée de déterminer Cel comme activecell puisque cette information va changer lorsque je complèterai les informations pour l'onglet Sébastien. J'ai essayé :
cel.autofill destination:= Range(Cel :"A" & Lr) mais il n'aime pas trop :-(.
Quelqu'un aurait-il une idée ?
Merci
Sub LastOnglet()
Dim NomOnglet4 As String
Dim NomOnglet5 As String
Dim NomOnglet6 As String
Dim NomOnglet7 As String
Dim NomOnglet8 As String
Dim Lr As Long
Dim Cel As Range
NomOnglet4 = Sheets(4).Name
NomOnglet5 = Sheets(5).Name
NomOnglet6 = Sheets(6).Name
NomOnglet7 = Sheets(7).Name
NomOnglet8 = Sheets(8).Name
Sheets("Recap Détection").Activate
Columns("A:A").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Value = "Collaborateur"
With Range("A1:A2")
.Interior.ColorIndex = 35
.Merge
End With
' Onglet Valérie
Sheets("Valérie").Activate
Lr = Range("A" & Rows.Count).End(xlUp).Row
Sheets("Valérie").Range("A2:C" & Lr).Copy
Sheets("Recap détection").Activate
Range("B2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A2").Value = NomOnglet6
Range("A2").AutoFill Destination:=Range("A2:A" & Lr), Type:=xlFillDefault
' Onglet Nathalie
Sheets("Nathalie").Activate
Lr = Range("A" & Rows.Count).End(xlUp).Row
Sheets("Nathalie").Range("A2:C" & Lr).Copy
Sheets("Recap détection").Activate
Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select
ActiveCell.Value = NomOnglet5
Lr = Range("B" & Rows.Count).End(xlUp).Row
Set Cel = ActiveCell
ActiveCell.Copy
ActiveCell.AutoFill Destination:=Range("a" & Lr)
End Sub