XL 2019 macro couper-coller sur plusieurs onglets

rh.finances à dit:

Bonsoir à tou(te)s,

utilisateur peu aguerri sur VBA, je rencontre une difficulté pour finaliser un code en vue de couper - coller des données sur plusieurs onglets.
Les onglets en question correspondent aux 12 mois de l'année, à savoir : janv. / févr. / mars / avr. / mai / juin / juil. / août / sept. / oct. / nov. / déc.

je dispose d'un code qui fonctionne très bien pour un seul mois (voir ci-dessous pour le mois de janv)

VB:

Sub Macro1()
 ActiveSheet.Unprotect ""
 Dim lig As Integer
 Dim lig2 As Integer
 With ActiveSheet
 For lig = .Range("H65536").End(xlUp).Row To 2 Step -1
     lig2 = Sheets("janv.").Range("H65536").End(xlUp).Row
     If .Range("H" & lig).Value = "janv." Then
         .Rows(lig).Cut Sheets("janv.").Rows(lig2 + 1)
         .Rows(lig).Delete Shift:=xlUp
     End If
 Next
 End With
 ActiveSheet.Protect ""
 End Sub

comme vous pourrez le constater sur le fichier joint, j'ai créé 12 macros du même type pour chaque mois de l'année dans l'onglet "détail dépenses / recettes".

Toutefois, mon souhait serait de regrouper ces 12 macros en une seule, ce qui me permettrait de couper - coller les données de l'onglet "détail dépenses / recettes" sur les onglets de chaque mois de l'année, en cliquant sur l'image "intégration" présente sur l'onglet "détail dépenses / recettes"

Vous remerciant par avance de vos contributions.
bonne soirée

Alex

Cliquez pour agrandir...

Sub Macro1()
 ActiveSheet.Unprotect ""
 Dim lig As Integer
 Dim lig2 As Integer
 Dim NomFeuille$
 With ActiveSheet
 For lig = .Range("H65536").End(xlUp).Row To 2 Step -1
     NomFeuille = .Range("H" & lig).Value
     lig2 = Sheets(NomFeuille).Range("H65536").End(xlUp).Row
     .Rows(lig).Cut Sheets(NomFeuille).Rows(lig2 + 1)
     .Rows(lig).Delete Shift:=xlUp
 Next
 End With
 ActiveSheet.Protect ""
 End Sub

rh.finances à dit:

Bonjour Gégé, Bonjour Phil,

Je viens de tester vos solutions.
Gégé, j'ai un message d'erreur m'indiquant que "l'indice n'appartient pas à la sélection"
Phil, la macro marche au top et en plus, j'ai un petit message d'info très utile.

Milles mercis pour votre aide et votre réactivité. C'était vraiment sympa de votre part

Bonne journée.

Alex

Cliquez pour agrandir...

1. lorsqu'une ligne de compte est remplie, il existe une valeur correcte dans la colonne H de la même ligne (la cellule H3 de votre fichier est vide)
2. la dernière cellule de la colonne H corresponde à la dernière ligne d'écriture (idem pour les onglets des mois). Dans votre fichier, chacun de ces onglets contiennent en H92 la formule "=SOUS.TOTAL(9;H2:H90)", ce qui a pour effet de fausser le calcul des variables lig et lig2 (elles valent forcément 92 au départ de la macro) et donc d'aboutir au fameux message "l'indice n'appartient pas à la sélection".

Gégé-45550 à dit:

Bonjour rh.finances,
Pour info et après avoir enfin ouvert votre fichier pour vérification, le code que que je vous ai fourni au post #2, basé sur le vôtre, marche parfaitement à la double condition que :

1. lorsqu'une ligne de compte est remplie, il existe une valeur correcte dans la colonne H de la même ligne (la cellule H3 de votre fichier est vide)
2. la dernière cellule de la colonne H corresponde à la dernière ligne d'écriture (idem pour les onglets des mois). Dans votre fichier, chacun de ces onglets contiennent en H92 la formule "=SOUS.TOTAL(9;H2:H90)", ce qui a pour effet de fausser le calcul des variables lig et lig2 (elles valent forcément 92 au départ de la macro) et donc d'aboutir au fameux message "l'indice n'appartient pas à la sélection".

Inscrivez la formule "=SOUS.TOTAL(9;H2:H90)" par exemple en G92 dans chacun des onglets et vous vérifierez que la macro fonctionne correctement.
Cordialement,

Cliquez pour agrandir...

rh.finances à dit:

Bonjour Gégé et merci pour ce retour complémentaire.
J'ai fait le test : la macro s'exécute sans erreur mais aucune donnée ne se colle dans les onglets dédiés. A toutes fins utiles, j'ai joint le fichier actualisé à ce message.
Encore merci pour tout

Cliquez pour agrandir...

Gégé-45550 à dit:

Bonjour,
les données sont bien collées, mais sous la ligne 92.
C'est parce que vous n'avez pas lu jusqu'au bout mon message précédent et que vous avez laissé des formules dans le cellules H92 des onglets dédiés.
Essayez le fichier joint, où j'ai déplacé les formules des H92 en G92 et vous verrez.
Cordialement,

Cliquez pour agrandir...