Bonjour à tous,
j'essaie d'adapter le code ci dessous de créer autant d'onglet qu'il y a de valeurs différentes dans la colonne Y "Nom du départ" de ma feuille référence "Cumul anomalies" et recopier les lignes correspondantes. La partie création d'onglet fonctionne mais pas la copie des lignes, la macro ne recopie que les valeurs des deux dernières colonnes...
Voici le code que j'essai d'adapter:
Sub k_Onglet()
Dim Dico, k, i
Dim C As Range
Dim n As Integer, LigneC As Integer
Set Dico = CreateObject("Scripting.dictionary")
' Application.ScreenUpdating = False
With Worksheets("Cumul anomalies")
For Each C In .Range("Y8:Y" & .Range("A" & Rows.Count).End(xlUp).Row)
If Not Dico.Exists(C.Value) Then Dico.Add C.Value, C.Offset(0, 1).Value
Next C
k = Dico.keys
i = Dico.items
For n = 0 To Dico.Count - 1
LigneC = 1
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = k(n)
For Each C In .Range("Y1:Y" & .Range("A" & Rows.Count).End(xlUp).Row)
If C = k(n) Then
C.Offset(0, 2).Resize(, 5).Copy ActiveSheet.Range("A" & LigneC)
LigneC = LigneC + 1
End If
Next C
Next n
End With
End Sub
Mais connaissances en VBA sont trop justes.
J'aimerai par la même occasion recopier les 8 premières lignes sur chaque feuille qui constituent mon en-tête.
Merci pour votre aide.