Discussion :

[MaverickRozay]

Bonjour tous le monde,

J'ai un soucis avec une macro Excel, mon souhait est de créer une macro qui compare le contenu de chaque cellule d'une colonne A dans une feuille A avec le contenu d'une colonne B dans une feuille B.
Si il y a des correspondances entre les deux colonnes des deux fichiers je veux supprimer les lignes présente dans la feuille A. Mais surtout pas supprimer celle de la feuille B (fichier de référence).

Voila ma macro, elle compil mais quand je la lance Excel plante. Je pense que je fais trop de tour de boucle ou même pire une boucle infinie...:/

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
Sub Vivier()
Dim k As Integer
Dim i As Integer
Dim aaa As Variant
    aaa = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "AA", "AB", "AC", "AD", "AE", "AF", "AG", "AH", "AI", "AJ", "AK", "AL", "AM", "AN", "AO", "AP", "AQ", "AR", "AS", "AT", "AU", "AV", "AW", "AX", "AY", "AZ")
Dim colonne_libellestandard As Variant
 
       For k = 1 To 100
            For h = 1 To 833
            If Sheets("N°Banc").Range("C" & k).Value = Sheets("Export").Range("J" & h).Value Then
                Rows(h).Delete
            End If
            Next h
        Next k
 
End If
'Next i
End Sub

Merci d'avance pour l'aide que vous pourriez m'apporter.

[L'Albatros]

Bonjour,

Il y a des lignes dont je ne vois pas l'intérêt dans ton code.

Essaie ceci (je l'ai fait à la volée):

Code :

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

1
2
3
4
5
6
7
8
9
Dim compteur_boucle_A As Long
Dim compteur_boucle_B As Long
For compteur_boucle_A = 1 To Range("C1").End(xlDown).Row
For compteur_boucle_B = 1 To Range("J1").End(xlDown).Row
If Sheets("A").Range("C" & compteur_boucle_A) = Sheets("B").Range("J" & compteur_boucle_B) Then
Sheets("A").Range("C" & compteur_boucle_A).EntireRow.Delete
End If
Next compteur_boucle_B
Next compteur_boucle_A

Le mieux serait d'utiliser des variables tableaux mais bon

[MaverickRozay]

Tout d'abord merci pour ta réactivité.

Quels lignes te posent problème dans mon code ?

Je vais tester ça et je reviens vers toi si j'ai d'autres questions.

L'albatros ton code ne supprime aucune lignes, j'ai modifié ton code pour l'adapter au mien voila ce que ça donne:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
 
Dim compteur_boucle_A As Long
Dim compteur_boucle_B As Long
    For compteur_boucle_A = 1 To Range("J1").End(xlDown).Row
        For compteur_boucle_B = 1 To Range("C1").End(xlDown).Row
            If Sheets("Export").Range("J" & compteur_boucle_A).Value = Sheets("N°banc").Range("C" & compteur_boucle_B).Value Then
                Sheets("Export").Range("J" & compteur_boucle_A).EntireRow.Delete
            End If
        Next compteur_boucle_B
    Next compteur_boucle_A
End Sub

De mon côté j'ai repris mon premier code en enlevant les fioritures, et en m'inspirant de ton code, ça supprime des lignes mais pas celles que je souhaite...La loose !

Voila mon code sans fioritures:

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 Vivier()
'
' Vivier Macro
' Macro enregistrée le 20/04/2012 par p065144
'
Dim k As Integer
Dim i As Integer
       For k = 1 To 100
            For h = 1 To 833
            If Sheets("N°Banc").Range("C" & k).Value = Sheets("Export").Range("J" & h).Value Then
                Rows(h).Delete
            End If
            Next h
        Next k
 
End Sub

[casefayere]

Bonjour,
essayes ce code en l'adaptant

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
Sub test()
Dim Dl As Long, x As Long, y As Long
Dim tbA(), tbB()
 
With Sheets("N°Banc") 'feiulle originale
  Dl = .Range("C" & .Rows.Count).End(xlUp).Row
  ReDim tbA(1 To Dl)
  For x = 1 To Dl
    tbA(x) = .Range("C" & x)
  Next x
End With
With Sheets("Export") 'feuille où les lignes sont à supprimer
  Dl = .Range("J" & .Rows.Count).End(xlUp).Row
  For y = 1 To UBound(tbA)
    For x = Dl To 1 Step -1
      If .Range("J" & x) = tbA(y) Then
        .Rows(x).Delete
      End If
    Next x
  Next y
End With
 
End Sub

[MaverickRozay]

Bonjour casefayere,

J'ai tester ton code et cela fonctionne très bien je te remercies pour ton aide.

Cordialement.