VBA copier et insérer ligne
Résolu/Fermé
A voir également:
- Insérer ligne vba
- Insérer signature word - Guide
- Insérer liste déroulante excel - Guide
- Hors ligne instagram - Guide
- Ligne occupée - Forum SFR
- Aller à la ligne excel - Guide
4 réponses
Bonjour
ou avec un truc comme ca
A+
Maurice
ou avec un truc comme ca
Sub InsertLigne() Application.ScreenUpdating = False Nlig = Range("A" & Rows.Count).End(xlUp).Row For L = Nlig To 2 Step -1 If Cells(L, 8).Value = 6 Then Rows(L + 1).Insert Shift:=xlDown Rows(L).Copy Range("A" & L + 1).PasteSpecial xlPasteAll ' ou xlPasteValues End If Next With Application .CutCopyMode = False .ScreenUpdating = True .Goto [A1], True End With End Sub
A+
Maurice
9 mars 2015 à 18:20
9 mars 2015 à 18:30