Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Olivier,
voici un exemple,
Sub Macro1() Set a = Workbooks("Classeur1").Sheets("Feuil1") Set b = Workbooks("Classeur2").Sheets("Feuil1") For i = a.Range("A65536").End(xlUp).Row To 1 Step -1 x = Application.Match(a.Range("A" & i), b.Range("A:A"), 0) On Error Resume Next If x <> CVErr(xlErrNA) Then Rows(i).Delete Shift:=xlUp Next End Sub
isabelle
bonjour j'ai deux feuilles (ou deux fichiers excel) et j'aimerais supprimer les lignes du premier fichier qui sont dans le second.
j'ai excel 2002
Comment faire ?
bonjour Olivier,
voici un exemple,
Sub Macro1()
Set a = Workbooks("Classeur1").Sheets("Feuil1")
Set b = Workbooks("Classeur2").Sheets("Feuil1")
For i = a.Range("A65536").End(xlUp).Row To 1 Step -1
x = Application.Match(a.Range("A" & i), b.Range("A:A"), 0)
On Error Resume Next
If x <> CVErr(xlErrNA) Then Rows(i).Delete Shift:=xlUp
Next
End Sub
isabelle
bonjour j'ai deux feuilles (ou deux fichiers excel) et j'aimerais supprimer
les lignes du premier fichier qui sont dans le second.
Sub Macro1() Set a = Workbooks("Classeur1").Sheets("Feuil1") Set b = Workbooks("Classeur2").Sheets("Feuil1") For i = a.Range("A65536").End(xlUp).Row To 1 Step -1 x = Application.Match(a.Range("A" & i), b.Range("A:A"), 0) On Error Resume Next If x <> CVErr(xlErrNA) Then Rows(i).Delete Shift:=xlUp Next End Sub
isabelle
bonjour j'ai deux feuilles (ou deux fichiers excel) et j'aimerais supprimer les lignes du premier fichier qui sont dans le second.
j'ai excel 2002
Comment faire ?
olivier
Bonjour Isabelle,
J'ai réussi mon opération via odbc et en utilisant le ms query sur les deux feuilles... Et ça marche bien sans une ligne de code.
Merci de ton aide.
"isabelle" a écrit dans le message de news:
bonjour Olivier,
voici un exemple,
Sub Macro1() Set a = Workbooks("Classeur1").Sheets("Feuil1") Set b = Workbooks("Classeur2").Sheets("Feuil1") For i = a.Range("A65536").End(xlUp).Row To 1 Step -1 x = Application.Match(a.Range("A" & i), b.Range("A:A"), 0) On Error Resume Next If x <> CVErr(xlErrNA) Then Rows(i).Delete Shift:=xlUp Next End Sub
isabelle
bonjour j'ai deux feuilles (ou deux fichiers excel) et j'aimerais supprimer
les lignes du premier fichier qui sont dans le second.
j'ai excel 2002
Comment faire ?
Bonjour Isabelle,
J'ai réussi mon opération via odbc et en utilisant le ms query sur les deux
feuilles... Et ça marche bien sans une ligne de code.
Merci de ton aide.
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de
news:4021653D.290FC9B6@videotron.ca...
bonjour Olivier,
voici un exemple,
Sub Macro1()
Set a = Workbooks("Classeur1").Sheets("Feuil1")
Set b = Workbooks("Classeur2").Sheets("Feuil1")
For i = a.Range("A65536").End(xlUp).Row To 1 Step -1
x = Application.Match(a.Range("A" & i), b.Range("A:A"), 0)
On Error Resume Next
If x <> CVErr(xlErrNA) Then Rows(i).Delete Shift:=xlUp
Next
End Sub
isabelle
bonjour j'ai deux feuilles (ou deux fichiers excel) et j'aimerais
supprimer
les lignes du premier fichier qui sont dans le second.
J'ai réussi mon opération via odbc et en utilisant le ms query sur les deux feuilles... Et ça marche bien sans une ligne de code.
Merci de ton aide.
"isabelle" a écrit dans le message de news:
bonjour Olivier,
voici un exemple,
Sub Macro1() Set a = Workbooks("Classeur1").Sheets("Feuil1") Set b = Workbooks("Classeur2").Sheets("Feuil1") For i = a.Range("A65536").End(xlUp).Row To 1 Step -1 x = Application.Match(a.Range("A" & i), b.Range("A:A"), 0) On Error Resume Next If x <> CVErr(xlErrNA) Then Rows(i).Delete Shift:=xlUp Next End Sub
isabelle
bonjour j'ai deux feuilles (ou deux fichiers excel) et j'aimerais supprimer
les lignes du premier fichier qui sont dans le second.
