Bonjour
Je suis nouveau sur la forum et également novice en VBA.
Dans l'exemple que j'ai joint à ce post j'aimerais qu'en cliquant sur un bouton "+" (que j'ai déjà créé dans l'exemple) qu'une ligne s'ajoute au dessus de la première ligne et cela indépendamment pour les 3 sous-catégories : Salaire 1, Salaire 2, Revenus supplémentaires.
J'ai déjà essayer en faisant "enregistrer une macros" mais quand je commence à ajouter des lignes les macros perdent leurs lignes de référence et me créent des lignes dans les mauvaises catégories.
J'ai déjà trouver un code VBA pour un cas similaire, où la personne voulais ajouter des lignes entre deux lignes de même couleur. Moi j'aimerais plutôt ajouter des lignes entre "Salaire 1"-"Salaire 2" ... malheureusement je ne mis connais pas assez pour pouvoir adapter ce code à mon cas.
Code :
Option Explicit
Sub Ligne_insérer_x_x_si_couleur_x()
Dim i As Long, ii As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, "a").End(xlUp).Row To 1 Step -1
If Range("a" & i).Interior.Color = 16776960 Then
For ii = 1 To 2
With Rows(i)
.Insert
.Offset(-1, 0).Interior.Color = xlNone
End With
Next
End If
Next
Application.ScreenUpdating = True
End Sub
Je vous remercie d'avance de l'aide que vous pouvez m'apporter, je reste à disposition si il faut plus de renseignement.
Cordialement Eric68
Je suis nouveau sur la forum et également novice en VBA.
Dans l'exemple que j'ai joint à ce post j'aimerais qu'en cliquant sur un bouton "+" (que j'ai déjà créé dans l'exemple) qu'une ligne s'ajoute au dessus de la première ligne et cela indépendamment pour les 3 sous-catégories : Salaire 1, Salaire 2, Revenus supplémentaires.
J'ai déjà essayer en faisant "enregistrer une macros" mais quand je commence à ajouter des lignes les macros perdent leurs lignes de référence et me créent des lignes dans les mauvaises catégories.
J'ai déjà trouver un code VBA pour un cas similaire, où la personne voulais ajouter des lignes entre deux lignes de même couleur. Moi j'aimerais plutôt ajouter des lignes entre "Salaire 1"-"Salaire 2" ... malheureusement je ne mis connais pas assez pour pouvoir adapter ce code à mon cas.
Code :
Option Explicit
Sub Ligne_insérer_x_x_si_couleur_x()
Dim i As Long, ii As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, "a").End(xlUp).Row To 1 Step -1
If Range("a" & i).Interior.Color = 16776960 Then
For ii = 1 To 2
With Rows(i)
.Insert
.Offset(-1, 0).Interior.Color = xlNone
End With
Next
End If
Next
Application.ScreenUpdating = True
End Sub
Je vous remercie d'avance de l'aide que vous pouvez m'apporter, je reste à disposition si il faut plus de renseignement.
Cordialement Eric68