Discussion :

[Theking31]

Bonjour à tous, je suis en difficulté pour un bout de code et j'aimerai un peu d'aide s'il vous plait

A partir d'un classeur "1" j'aimerai ouvrir un Classeur "2" pour y faire une recherche sur deux colonnes en fonction des valeurs de deux colonnes du classeur "1" et si elles sont égales, supprimer la ligne entière du classeur "2"

Classeur "1" => origine
Classeur "2" => à rechercher dedans et supprimer ligne

Pour toutes les lignes de la page "feuille1" de mon classeur "1", recherche dans la page "feuille2" du classeur "2" sur toutes les lignes
si la valeur de la cellule colonne B de mon classeur "1" est égale à la valeur de la cellule colonne A de mon classeur "2"
ET
si la valeur de la cellule colonne C de mon classeur "1" est égale à la valeur de la cellule colonne C de mon classeur "2"
alors supprime la ligne de mon classeur "2"

Merci d'avance

[Franc]

Bonjour,
Comme tu n'as pas encore eu de réponse, j'ai soumis le problème à chatGPT.
Voici sa réponse, ce sera peut-être une piste de recherche.

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 Supprimer_Lignes()
 
Dim origine As Workbook
Dim recherche As Workbook
Dim ligne As Long
 
Set origine = Workbooks("1")
Set recherche = Workbooks("2")
 
For ligne = recherche.Worksheets("Feuille2").Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
    If origine.Worksheets("Feuille1").Range("B1").Value = recherche.Worksheets("Feuille2").Range("A" & ligne).Value And origine.Worksheets("Feuille1").Range("C1").Value = recherche.Worksheets("Feuille2").Range("C" & ligne).Value Then
        recherche.Worksheets("Feuille2").Rows(ligne).EntireRow.Delete
    End If
Next
 
End Sub

[BENNASR]

Bonjour
à tester avec prudence sur une copie de ton fichier pour munir contre tout risque de perte de données
Si tu cherche simplement à comparer deux classeur pense à PowerQuery

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 test()
Dim wkA As Workbook, wkB As Workbook
Dim j As Long
Dim derlig As Long
Dim plage As Range
Dim C As Range
Application.ScreenUpdating = False
Set wkA = ThisWorkbook 'ton dossier ouvert class1
derlig = wkA.Sheets("Feuille1").Range("A" & Rows.Count).End(xlUp).Row ' adapter feuil1 avec le nom de ton onglet ou se trouve tes données
Workbooks.Open "C:\Users\DELL\Desktop\Class2.xlsm"  ' aller ouvrir l'onglet
Set wkB = ActiveWorkbook ' la classeur ouvert prends le nom WkB
wkB.Sheets("Feuille2").Activate
TblBD1 = wkA.Sheets("Feuille1").Range("A1:C" & wkA.Sheets("Feuille1").Range("A" & Rows.Count).End(xlUp).Row)
TblBD2 = wkB.Sheets("Feuille2").Range("A1:C" & wkB.Sheets("Feuille2").Range("A" & Rows.Count).End(xlUp).Row)
    For i = 1 To UBound(TblBD1)
    For j = 1 To UBound(TblBD2)
    If TblBD1(i, 2) = TblBD2(j, 1) And TblBD1(i, 3) = TblBD2(j, 3) Then wkB.Sheets("feuille2").Rows(j).EntireRow.Delete
    Next j
    Next i
wkB.Close True 'fermer le classeur
Application.ScreenUpdating = True
End Sub

[Theking31]

Merci à tous les deux, c'est vraiment gentil d'avoir passé du temps

@Franc désolé je n'ai même pas tester la solution de ChatGPT que tu as publiée... je suis un peu septique sur ses compétences là, même si je trouve l'outil super

@BENNASR si tu l'as fait sans le tester... chapeau bas

[Franc]

Tu as le droit d'être sceptique (je l'étais aussi), mais au moins teste le et tu verras. Moi je l'utilise régulièrement et il me donne souvent la solution en quelques secondes, quel gain de temps! Le tout c'est de bien exposer le problème.