Discussion :

[redba90]

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 :

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

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 :

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

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

[Invité]

bonsoir,

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
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

[redba90]

Super ça marche parfaitement merci beaucoup

Code :

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

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 ?

[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.

[redba90]

Ok ça marche.
Merci pour tout

[redba90]

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