Bonjour à tous,
Je vous sollicite sur un sujet où déjà il y a beaucoup de Topics sur internet, cependant je ne trouve pas la solution à mon problème.
Je souhaite tout simplement sur mon fichier pouvoir insérer un nombre de ligne donné, à la fin de chaque partie (c'est à dire sur mon fichier au dessus de chaque nouveaux jours du mois (lignes en jaune)).
Dans mon classeur sur l'onglet "Feuil1" qui est mon onglet test mon code fonctionne.
Pour le faire fonctionner sur mon onglet "Janv" je change dans mes données i=12 pour être cohérent sur ma feuille, mais ensuite la macro ne fonctionne pas.
Je ne dois pas avoir grand chose à modifier à mon avis mais aprés plusieurs reprises je ne trouve pas mon erreur..
Je vous remercie par avance pour votre aide et le temps accordé !
Bonne journée
Je vous sollicite sur un sujet où déjà il y a beaucoup de Topics sur internet, cependant je ne trouve pas la solution à mon problème.
Je souhaite tout simplement sur mon fichier pouvoir insérer un nombre de ligne donné, à la fin de chaque partie (c'est à dire sur mon fichier au dessus de chaque nouveaux jours du mois (lignes en jaune)).
Dans mon classeur sur l'onglet "Feuil1" qui est mon onglet test mon code fonctionne.
Code:
Private Sub ajout_Click()
Dim n As Integer
Dim j As Integer
n = ajout_ligne.nombre.Value
For j = 1 To n
Dim i As Integer
i = 1
While Cells(i, 1) <> ""
If Cells(i, 2).Interior.ColorIndex = 6 Then
Cells(i, 1).EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
Cells(i - 1, 1).EntireRow.Copy
Cells(i, 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
i = i + 1
End If
i = i + 1
Wend
Next
Unload ajout_ligne
End Sub
Pour le faire fonctionner sur mon onglet "Janv" je change dans mes données i=12 pour être cohérent sur ma feuille, mais ensuite la macro ne fonctionne pas.
Je ne dois pas avoir grand chose à modifier à mon avis mais aprés plusieurs reprises je ne trouve pas mon erreur..
Je vous remercie par avance pour votre aide et le temps accordé !
Bonne journée
Pièces jointes
Dernière modification par un modérateur: