Discussion :

[dttpedt]

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.

[dttpedt]

Bon c'est peut être pas très propre mais voilà sa marche.

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
23
24
25
26
27
28
29
 
Sub sup_lignes()
Dim DernLigne As Long
Dim i, y, v As Integer
Dim suprow As Range
 
Sheets("liste").Select
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
 
i = 1
y = 1
For i = DernLigne To 1 Step -1
 
    Sheets("liste").Select
    v = Range("A" & i).Value
 
    Sheets("Export").Select
    Rows(v).EntireRow.Copy
 
    Sheets("save error").Select
    Range("A" & y).Select
    ActiveSheet.Paste
    y = y + 1
 
    Sheets("Export").Select
    Rows(v).EntireRow.Delete Shift:=xlUp
Next
 
End Sub