Discussion :

[huître]

bonjours

j'ai écrit un code mais il ne marche qu'a moitié et je ne sais pas pourquoi
normalement il devrait me supprimer des lignes dans deux feuilles mais il ne me le fait que sur une feuille. Je dois dire que ça m'embête un peu.

donc voilà le code

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
30
31
Sub suppession_doublons()
Dim plage, plagebis As Range
Dim derlig As Long
Dim lavaleur As Variant
Dim rg As Range
 
 
derlig = Range("A" & Rows.Count).End(xlUp).Row
Set plage = Range(Cells(1, 1), Cells(derlig, 5))
tableau = plage.Value
    For i = 1 To derlig
        For j = 2 To 5
            For Each sh In Worksheets(Array("EXP-DIF", "AAR", "RST"))
            If tableau(i, 2) = 1 Then
               If tableau(i, 3) = 1 Or tableau(i, 4) = 1 Then
                    lavaleur = tableau(i, 1)
                        If tableau(1, j) = sh.Name Then
                            sh.Select
                                Range("A:A").Select
                                For Each rg In Selection
                                    If rg = lavaleur Then
                                    rg.EntireRow.Delete
                                    End If
                                Next rg
                         End If
               End If
            End If
            Next sh
           Next j
    Next i
End Sub

je pense que c'est peut être dû à l'ordre des boucles mais je ne sais pas comment faire

[francky74]

Bonjour,

Je pense qu'avant de deleter, tu dois activer la feuille !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Worksheet("nom de la feuille 1").Activate
rg.EntireRow.Delete
Worksheet("nom de la feuille 2").Activate
rg.EntireRow.Delete

[huître]

non en faite non j'ai fait une petite erreur

mon programme fonctionne nickel

BUT!!!!

il est vraiment trop long à charger

est ce qu'il est possible de le simplifier au maximum pour gagner du temps

voila merci d'avance

[MarcelG]

Bonjour Huitre,

Ce qui nécessite beaucoup de ressource, à mon avis, c'est ton balayage de ta colonne A.
Ceci outre le fait que le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Select

ne sert à rien, comme presque toujours.

Essaie plutôt d'adapter l'aide en ligne de Findnext

[huître]

j'ai remodifié mon programme (je n'ai pas utiliser le findnext)
j'ai l'impression que ça s'execute plus vite mais ça ne supprime rien

voilà les changement effectué ( en vert )

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
30
31
32
33
34
35
Sub suppession_doublons()
Dim plage, plagebis As Range
Dim derlig, derlg As Long
Dim lavaleur As Variant
Dim rg As Range


derlig = Range("A" & Rows.Count).End(xlUp).Row
Set plage = Range(Cells(1, 1), Cells(derlig, 5))
tableau = plage.Value
    
    For i = 1 To derlig
        For j = 2 To 5
            For Each sh In Worksheets(Array("EXP-DIF", "AAR", "RST"))
            If tableau(i, 3) = 1 Then
               If tableau(i, 2) = 1 Or tableau(i, 4) = 1 Then
                    lavaleur = tableau(i, 1)
                        If tableau(1, j) = sh.Name Then
                            sh.Select
                                derlg = Range("A" & Rows.Count).End(xlUp).Row
                                Set plagebis = Range(Cells(1, 1), Cells(derlig, 6))
                                tableaubis = plagebis.Value
                                For k = 1 To derligne
                                    If tableaubis(i, 1) = lavaleur Then
                                    tableaubis(i, 1).Select
                                    Selection.EntireRow.Delete
                                    End If
                                Next k
                         End If
               End If
            End If
            Next sh
           Next j
    Next i
End Sub

[MarcelG]

Salut,

Comme tu voudras.

De plus, ta boucle utilise une variable k et ton code à l'intérieur de celle-ci utilise une variable i.

Encore une fois, arrête les

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Select