XL 2016 Autofill Destination sur colonne adjacente

[Aldonanou]

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

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

 

[Jacky67]

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

Bonjour,
Une proposition avec une feuille paramètre avec les noms des collaborateurs
La mise a jour se fait à chaque sélection de la feuille "Recap Détection"

 

[Aldonanou]

Bonjour Jacky, merci pour la proposition, je teste et reviens vers vous si nécessaire. Cordialement

 

[Aldonanou]

Merci beaucoup Jacky, c'est impeccable. J'ai réussi à modifier une donnée que j'avais omis de vous préciser.

Private Sub Worksheet_Activate()
Dim Sh, Derlg&, lig&
'Application.ScreenUpdating = False
Range("A3:Y" & Rows.Count).Clear
For Each Sh In [Indicateurs] ' plage nommée
With Sheets(CStr(Sh))
Derlg = .Cells(.Rows.Count, "A").End(xlUp).Row 'dernière ligne de sh indicateurs
lig = Cells(Rows.Count, "A").End(xlUp).Row + 1
Range("A" & lig & ":A" & lig + Derlg - 3) = Sh ' 2 lignes d'entête
.Range("A3:Y" & Derlg).Copy Cells(lig, 2)
End With
Next
Range("A3:Y" & lig + Derlg - 2).Borders.LineStyle = xlContinuous
End Sub