XL 2016 Autofill Destination sur colonne adjacente

Aldonanou

XLDnaute Junior
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
 

Pièces jointes

  • Aide - Liste des clients.xls
    90.5 KB · Affichages: 1
Solution
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...

Jacky67

XLDnaute Barbatruc
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"
 

Pièces jointes

  • Aide - Liste des clients.xls
    122.5 KB · Affichages: 5

Aldonanou

XLDnaute Junior
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
 

Discussions similaires

Réponses
12
Affichages
645

Statistiques des forums

Discussions
313 197
Messages
2 096 107
Membres
106 500
dernier inscrit
mmontagu