GTmacrodeb
Expert
Bonjour à toute la communauté,
Nouveau besoin, nouvelle macro, nouveau sujet…
Je souhaite créer une macro que j’affecterai par la suite à un bouton. Cette macro aurait pour principe :
1- Retirer la protection de la feuille
2- Insérer une ligne en-dessous la dernière ligne complétée dans la colonne A.
3- Dans cette ligne insérée : en colonne A poursuivre l’incrémentation, dans les autres colonnes copier/incrémenter les formules et respecter la mise en forme de la ligne précédente pour toutes les cellules.
4- En dessous cette dernière ligne insérée, j’ai des formules avec notamment des sommes en colonne J, je souhaite incrémenter cette formule
5- Dupliquer une feuille masquée du classeur et la placer à la fin. Renommer cette feuille avec la valeur incrémentée en colonne A.
6- Créer un lien hypertexte de la cellule en colonne A vers la feuille correspondante.
7- Remettre la protection de la feuille
J’ai conscience que la route est longue mais je suis toujours motivé pour apprendre et progresser.
Voici le début de code : à noter que pour l'instant je n'ai pas traité la partie Protection de la feuille, ayant déjà pu échanger sur ce point dans d'autres sujets.
Ce code me permet d'insérer la ligne en dessous la dernière ligne où la celulle A est non vide.
Par contre, je bloque sur le point 3 de ma macro à savoir l'incrémentation, la copie des formules et la mise en forme.
J'ai une fenêtre avec un message d'erreur avec une croix sur fond rouge 400.
Merci d'avance pour les différents conseils.
Nouveau besoin, nouvelle macro, nouveau sujet…
Je souhaite créer une macro que j’affecterai par la suite à un bouton. Cette macro aurait pour principe :
1- Retirer la protection de la feuille
2- Insérer une ligne en-dessous la dernière ligne complétée dans la colonne A.
3- Dans cette ligne insérée : en colonne A poursuivre l’incrémentation, dans les autres colonnes copier/incrémenter les formules et respecter la mise en forme de la ligne précédente pour toutes les cellules.
4- En dessous cette dernière ligne insérée, j’ai des formules avec notamment des sommes en colonne J, je souhaite incrémenter cette formule
5- Dupliquer une feuille masquée du classeur et la placer à la fin. Renommer cette feuille avec la valeur incrémentée en colonne A.
6- Créer un lien hypertexte de la cellule en colonne A vers la feuille correspondante.
7- Remettre la protection de la feuille
J’ai conscience que la route est longue mais je suis toujours motivé pour apprendre et progresser.
Voici le début de code : à noter que pour l'instant je n'ai pas traité la partie Protection de la feuille, ayant déjà pu échanger sur ce point dans d'autres sujets.
Code:
Sub InserLign()
Dim ws_recap As Worksheet
Dim cel_cible As Range
Dim j As Variant
Set ws_recap = Worksheets("Récap")
Set cel_cible = ws_recap.Cells(Rows.Count, 1).End(xlUp).EntireRow
cel_cible.Offset(1).EntireRow.Insert Shift:=xlDown
For Each j In Array(2, 3, 4, 5, 6, 7, 9, 10, 11)
cel_cible.Offset(1, j).FormulaR1C1 = cel_cible.Offset(0, j).FormulaR1C1
Next
End Sub
Ce code me permet d'insérer la ligne en dessous la dernière ligne où la celulle A est non vide.
Par contre, je bloque sur le point 3 de ma macro à savoir l'incrémentation, la copie des formules et la mise en forme.
J'ai une fenêtre avec un message d'erreur avec une croix sur fond rouge 400.
Merci d'avance pour les différents conseils.