Fusionner deux boucles

Version imprimable

Bonjour à tous,

J'ai un fichier excel avec plusieurs feuilles, il y a deux feuilles qui ont les même données, j'aimerai faire "fusionner" les deux codes ci dessous en un seul, car quand je les utilises séparément ça marche mais les deux en même temps ça ne fonctionne pas
Merci pour votre aide

Code:

1
2
3
4
5
6
7
8
9
 
Dim i As Integer
With ThisWorkbook.Sheets("Analyse Agence-Préventif")
            For i = .Range("K" & .Rows.Count).End(xlUp).Row To 2 Step -1
                        If .Range("K" & i).Value <> "Y4" Then
                                   .Rows(i).Delete
                        End If
            Next i
            End With

Code:

1
2
3
4
5
6
7
8
Dim i As Integer
With ThisWorkbook.Sheets("Analyse Agence-Correctif")
            For i = .Range("K" & .Rows.Count).End(xlUp).Row To 2 Step -1
                        If .Range("K" & i).Value = "Y4" Then
                                   .Rows(i).Delete
                        End If
            Next i
            End With

bonsoir,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub test()
Dim AnalyseCorrectif As Worksheet, AnalysePréventif As Worksheet
Dim der As Long
 
 
Set AnalyseCorrectif = ThisWorkbook.Sheets("Analyse Agence-Correctif")
Set AnalysePréventif = ThisWorkbook.Sheets("Analyse Agence-Préventif")
der = AnalyseCorrectif.Cells(Rows.Count, "K").End(xlUp).Row
If der < AnalysePréventif.Cells(Rows.Count, "K").End(xlUp).Row Then
    der = AnalysePréventif.Cells(Rows.Count, "K").End(xlUp).Row
End If
For i = der To 2 Step -1
    If AnalyseCorrectif.Cells(i, "K").Value <> "Y4" Then AnalyseCorrectif.Rows(i).Delete
    If AnalysePréventif.Cells(i, "K").Value <> "Y4" Then AnalysePréventif.Rows(i).Delete
Next
End Sub

Super ça marche parfaitement merci beaucoup
Code:

1 2 3 4 der = AnalyseCorrectif.Cells(Rows.Count, "K").End(xlUp).Row If der < AnalysePréventif.Cells(Rows.Count, "K").End(xlUp).Row Then der = AnalysePréventif.Cells(Rows.Count, "K").End(xlUp).Row End If
La partie ci-dessus c'est pour vérifier que les cellules ne sont pas vides ?

27/03/2019, 09h03
Invité

bonjour,
non en fait Der c'est la dernière ligne du tableau.

disons que Analyse Agence-Correctif" contient 10 ligne et "Analyse Agence-Préventif" contient 30 lignes on considérera que Der est égal à 30 pour parcourir toutes les ligne des deux tableaux.
27/03/2019, 09h06
redba90

Ok ça marche.
Merci pour tout :lol:
08/04/2019, 10h29
redba90

La macro prend beaucoup de temps

Bonjour,

Le code donné par @dysorthographie fonctionne bien avec peu de lignes, mais dès que un nombre important, la macro tourne sans jamais s’arrêter...
Quelqu'un peut m'aider svp?

Merci :)