Bonjour,

j'ai un problème à soumettre, je souhaiterais supprimer les lignes d'un onglet "traitée" en fonction d'une liste de ligne issue d'un second onglet"liste" (cette partie fonctionne avec le code ci-dessous).

J'aimerais par contre maintenant pouvoir avant de supprimer les lignes les recopier dans un troisième onglets "save".

pour cette partie je sèche un peu.

voici mon code actuel :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub sup_lignes()
Dim DernLigne As Long
Dim i, v As Integer
Dim suprow As Range
 
Sheets("traitée").Select
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
'MsgBox (DernLigne)
i = 1
 
'i = Range("A" & 12).Value
For i = DernLigne To 1 Step -1
 
    Sheets("traitée").Select
    v = Range("A" & i).Value
   ' MsgBox (v)
 
    Sheets("liste").Select
    Rows(v).EntireRow.Delete Shift:=xlUp
Next
 
End Sub
D'avance merci de votre aide.