renvoie de lignes dans onglets

[Evelynetfrancois]

Bonjour à tous
J’ai fait un fichier très light pour plus de clarté
Voici ma question
Comment en VBA renvoyer les lignes janvier dans l’onglet janvier, les lignes février dans l’onglet février ,……………... décembre
Merci beaucoup pour toutes vos sujétions
Bon dimanche à tous
E et F

 

[pierrejean]

Re : renvoie de lignes dans onglets

bonjour Evelynetfrancois

A tester

Sub renvoi()
lesmois = Array("janvier", "fevrier", "mars", "avril")
For n = 5 To Sheets("saisies").Range("A65536").End(xlUp).Row
 mois = Month(Sheets("saisies").Range("A" & n))
 If Sheets(lesmois(mois - 1)).Range("A65536").End(xlUp).Row + 1 < 5 Then
  ligne = 5
 Else
  ligne = Sheets(lesmois(mois - 1)).Range("A65536").End(xlUp).Row + 1
 End If
 Sheets("saisies").Rows(n).Copy Destination:=Sheets(lesmois(mois - 1)).Range("A" & ligne)
Next n
End Sub

Nb 1ere ligne a completer (permet d'accepter toutes les formes d'ecriture des onglets mois)

 

[Pierrot93]

Re : renvoie de lignes dans onglets

Bonjour EetF

regarde le code ci dessous si il peut t'aider, mais attention suppose que l'orthographe des mois soit respectée, casse et accentuation comprise, ce qui ne semble pas être le cas pour février, et que sur chaque onglet une ligne de titre soit présente en ligne 4....

Sub test()
Dim i As Long
With Sheets("saisies")
    For i = 5 To Range("A65536").End(xlUp).Row
        If IsDate(.Cells(i, 1).Value) Then Sheets(MonthName(Month(.Cells(i, 1).Value))).Range("A65536").End(xlUp).Offset(1, 0).Resize(1, 10).Value = _
            .Cells(i, 1).Resize(1, 10).Value
    Next i
End With
End Sub

bon dimanche
@+

Edition : bonjour PierreJean🙂 et tous mes voeux pour cette nouvelle année.

 

[gilbert_RGI]

Re : renvoie de lignes dans onglets

Bonjour et mes meilleurs vœux à tous

Voilà un exemple 😀

 

[Guest]

Re : renvoie de lignes dans onglets

bonjour tous ,

Avec une macro d'extraction.

quelques consignes dans le fichiers concernant les noms de mois.

A+
A++ Pierrot, Pierre-Jean, gilbert

 

[Evelynetfrancois]

Re : renvoie de lignes dans onglets

Bonjour pierrejean Pierrot93 gilbert_RGI Hasco
je vous remercie pour toutes vos propositions
hier dimanche je n'ai pas pu tout voir , faute de maintenance du site,
je regarderais donc tout ça dès que possible
à bientot , merci pour tout
E et F

 

[Evelynetfrancois]

Re : renvoie de lignes dans onglets

Bonsoir pierrejean Pierrot93 gilbert_RGI Hasco
Je vous remercie pour les propositions que vous m’avez faites, et je range tout cela au chaud
J’ai mis un moment à comprendre et surtout trouver la petite apostrophe dans la version de Gilbert qui me convient parfaitement comme celle de pierrot93 qui y ressemble fort
Merci pour tout vous êtes super comme d habitude
Bonne journée au plaisir de vous lire
E et F