Insérer une ligne avec macros

[Eric68]

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

 

[gosselien]

Re : Insérer une ligne avec macros

Bonjour, ou..soir 🙂

une soluce parmi d'autres 🙂

Sub Insere()
Dim Last, I
Last = [E65000].End(xlUp).Row
For I = Last To 5 Step -1
If Cells(I, 5).Value = "Salaire 1" Or Cells(I, 5).Value = "Salaire 2" Then
Rows(I + 1).EntireRow.Insert
End If
Next
End Sub

 

[Eric68]

Re : Insérer une ligne avec macros

Bonjour Gosselien

Merci pour votre réponse.

J'ai essayer le code que vous m'avez donner. Il fonctionne par contre il m'ajoute une ligne sous "Salaire 1" et sous "Salaire 2" en même temps. J'ai donc supprimer " Or Cells(I, 5).Value = "Salaire 2" " dans la ligne et ça fonctionne. Par contre j'aimerais garder le même format de ligne que la ligne déja existante sous Salaire 1.

Merci pour votre aide.

 

[Pierrot93]

Re : Insérer une ligne avec macros

Bonjour,

modifie peut être comme suit :

    Rows(I + 1).EntireRow.Insert , CopyOrigin:=xlFormatFromRightOrBelow

bonne journée
@+

 

[Eric68]

Re : Insérer une ligne avec macros

Bonjour Pierrot93

Merci pour votre aide et pour ce code ça s'approche de ce que je souhaite, par contre la ligne qui s'ajoute n'est pas comme la ligne déjà existante avec 3 colonnes (comme on peut le voir dans l'exemple).

 

[Pierrot93]

Re : Insérer une ligne avec macros

Re,

Par contre j'aimerais garder le même format de ligne que la ligne déja existante sous Salaire 1.

le code proposé correspondait en principe à cette demande.... une insertion de ligne se fait de toute façon avec toutes les colonnes... essaye peut être cette constante "xlFormatFromLeftOrAbove" en lieu et place de "xlFormatFromRightOrBelow"

 

[Eric68]

Re : Insérer une ligne avec macros

Re Pierrot93

Merci je l'ai essayer mais ça me donne le résultat comme dans le tableau de gauche sur l'illustration ci-dessous. Il me faudrait la même chose que sur le tableau de droite.

 

[Pierrot93]

Re : Insérer une ligne avec macros

Re,

quel est la macro que tu as utilisée ?

 

[Eric68]

Re : Insérer une ligne avec macros

Voici le code de la macros :

Sub Insere()
Dim Last, I
Last = [E65000].End(xlUp).Row
For I = Last To 5 Step -1
If Cells(I, 5).Value = "Salaire 1" Then
Rows(I + 1).EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove

End If
Next

End Sub

 

[Pierrot93]

Re : Insérer une ligne avec macros

Re,

essaye ceci :

Option Explicit
Sub Insere()
Dim Last As Long, i As Long
Last = [E65000].End(xlUp).Row
For i = Last To 5 Step -1
    If Cells(i, 5).Value = "Salaire 1" Then
        With Rows(i + 1)
            .Copy
            .Insert Shift:=xlDown
        End With
    End If
Next i
End Sub

 

[Eric68]

Re : Insérer une ligne avec macros

Merci beaucoup cela fonctionne parfaitement.

Je suis en plein apprentissage de VBA pourriez vous m'expliquer un peu la construction de ce code pour que je puisse l'adapter à d'autres cas.

 

[Pierrot93]

Re : Insérer une ligne avec macros

Re,

quelle instruction que tu ne comprends pas ?? A noter tu positionnes ton crurseur sur le mot dont tu veux plus d'info et tu accèdes à l'aide vba via la touche de fonction F1 ...

 

[Eric68]

Re : Insérer une ligne avec macros

D'accord je ne connaissais pas cette aide de vba, je vais commencer par là.
En tout cas merci de votre aide.

 

[Eric68]

Re : Insérer une ligne avec macros

J'ai essayer la macros dans le programme excel que je suis entrain de créer, la macros va très bien quand il n'y a pas de tableau à coté du premier. Mais dans mon cas j'ai plusieurs tableaux qui sont à cote à cote et quand j'ajoute une ligne au tableau avec la macros bien évidemment ça en ajoute une à tous les autres tableaux.

Je voulais savoir si il était possible de changer : au lieu d'insérer une ligne entière si on pouvait ajouter seulement une plage de cellules, comprenant la ligne du tableau à insérer, sans que cela n'affecte les tableaux voisins. Une image d'exemple ci dessous.




Merci beaucoup pour votre aide.

 

[Pierrot93]

Re : Insérer une ligne avec macros

Bonjour,

modifie peut être comme suit, non testé...

Option Explicit
 Sub Insere()
 Dim Last As Long, i As Long
 Last = [E65000].End(xlUp).Row
 For i = Last To 5 Step -1
     If Cells(i, 5).Value = "Salaire 1" Then
         With cells(i + 1,5).Resize(,14)
             .Copy
             .Insert Shift:=xlDown
         End With
     End If
 Next i
 End Sub

bonne journée
@+