Bonjour Seng hua,
A ) Tu ajoutes une colonne dans laquelle tu insères une formule
¢&B2&C2&D2&E2&F2 , Ne pas oublier de donner une
étiquette à cette colonne
B ) Recopie la formule sur l'ensemble de la colonne
C ) Détermine dans 2 cellules libres, le critère pour le filtre élaboré
H1 : totalement vide
H2 : La formule : =NB.SI(G2:G5000;G2)>1
En supposant que la colonne ajoutée où se retrouvent les formules
est en G
D ) Appelle la commande Filtre élaboré : Utilise seulement la colonne "G"
pour le filtre
Plage de crìtère est : H1:H2
E ) Sélection de toute la plage moins la ligne d'étiquettes
E ) Avec la commande : Édition / atteindre / cellules / lignes visibles
seulement
F ) Édition / Supprimer
Tout ceci est réalisable par macro... si l'opération est redondante !!!
Salutations!
"Seng HUA" a écrit dans le message de news:
43fa1e10$0$1147$
Bonsoir à tous & à toutes,
J'ai une feuille de calcul qui peut avoir 6 à 10 000 lignes qui
proviennent
de l' extraction des comptes fournisseurs & clients, et qui présente comme
suit :
A B C
Nom du fournisseur Référence de la facture Montant
Nom du client Référence de la facture Montant
Les doublons se trouvent éparpillés partout, j'ai fait un tri par la
référence de la facture et le montant pour le supprimer tous les 2, et ne
garde que les factures qui n'ont pas la même réfence.
J'ai déjà vu sur le forum, des questions concernant la suppression des
lignes identiques ( doublons ).Voilà j'ai essayé d'adapter le macro pour
supprimer les 2 lignes identiques, mais ça n'a pas marché. Ma question est
:
A-t'il la possibilité de supprimer les 2 lignes identiques ? Si oui, en
ajoutant quel condition, en VBA ?
D'avance, meric pour votre aide
Seng
Bonjour Seng hua,
A ) Tu ajoutes une colonne dans laquelle tu insères une formule
¢&B2&C2&D2&E2&F2 , Ne pas oublier de donner une
étiquette à cette colonne
B ) Recopie la formule sur l'ensemble de la colonne
C ) Détermine dans 2 cellules libres, le critère pour le filtre élaboré
H1 : totalement vide
H2 : La formule : =NB.SI(G2:G5000;G2)>1
En supposant que la colonne ajoutée où se retrouvent les formules
est en G
D ) Appelle la commande Filtre élaboré : Utilise seulement la colonne "G"
pour le filtre
Plage de crìtère est : H1:H2
E ) Sélection de toute la plage moins la ligne d'étiquettes
E ) Avec la commande : Édition / atteindre / cellules / lignes visibles
seulement
F ) Édition / Supprimer
Tout ceci est réalisable par macro... si l'opération est redondante !!!
Salutations!
"Seng HUA" <senghua@club-internet.fr> a écrit dans le message de news:
43fa1e10$0$1147$7a628cd7@news.club-internet.fr...
Bonsoir à tous & à toutes,
J'ai une feuille de calcul qui peut avoir 6 à 10 000 lignes qui
proviennent
de l' extraction des comptes fournisseurs & clients, et qui présente comme
suit :
A B C
Nom du fournisseur Référence de la facture Montant
Nom du client Référence de la facture Montant
Les doublons se trouvent éparpillés partout, j'ai fait un tri par la
référence de la facture et le montant pour le supprimer tous les 2, et ne
garde que les factures qui n'ont pas la même réfence.
J'ai déjà vu sur le forum, des questions concernant la suppression des
lignes identiques ( doublons ).Voilà j'ai essayé d'adapter le macro pour
supprimer les 2 lignes identiques, mais ça n'a pas marché. Ma question est
:
A-t'il la possibilité de supprimer les 2 lignes identiques ? Si oui, en
ajoutant quel condition, en VBA ?
D'avance, meric pour votre aide
Seng
Bonjour Seng hua,
A ) Tu ajoutes une colonne dans laquelle tu insères une formule
¢&B2&C2&D2&E2&F2 , Ne pas oublier de donner une
étiquette à cette colonne
B ) Recopie la formule sur l'ensemble de la colonne
C ) Détermine dans 2 cellules libres, le critère pour le filtre élaboré
H1 : totalement vide
H2 : La formule : =NB.SI(G2:G5000;G2)>1
En supposant que la colonne ajoutée où se retrouvent les formules
est en G
D ) Appelle la commande Filtre élaboré : Utilise seulement la colonne "G"
pour le filtre
Plage de crìtère est : H1:H2
E ) Sélection de toute la plage moins la ligne d'étiquettes
E ) Avec la commande : Édition / atteindre / cellules / lignes visibles
seulement
F ) Édition / Supprimer
Tout ceci est réalisable par macro... si l'opération est redondante !!!
Salutations!
"Seng HUA" a écrit dans le message de news:
43fa1e10$0$1147$
Bonsoir à tous & à toutes,
J'ai une feuille de calcul qui peut avoir 6 à 10 000 lignes qui
proviennent
de l' extraction des comptes fournisseurs & clients, et qui présente comme
suit :
A B C
Nom du fournisseur Référence de la facture Montant
Nom du client Référence de la facture Montant
Les doublons se trouvent éparpillés partout, j'ai fait un tri par la
référence de la facture et le montant pour le supprimer tous les 2, et ne
garde que les factures qui n'ont pas la même réfence.
J'ai déjà vu sur le forum, des questions concernant la suppression des
lignes identiques ( doublons ).Voilà j'ai essayé d'adapter le macro pour
supprimer les 2 lignes identiques, mais ça n'a pas marché. Ma question est
:
A-t'il la possibilité de supprimer les 2 lignes identiques ? Si oui, en
ajoutant quel condition, en VBA ?
D'avance, meric pour votre aide
Seng
Bonjour Seng hua,
A ) Tu ajoutes une colonne dans laquelle tu insères une formule
¢&B2&C2&D2&E2&F2 , Ne pas oublier de donner une
étiquette à cette colonne
B ) Recopie la formule sur l'ensemble de la colonne
C ) Détermine dans 2 cellules libres, le critère pour le filtre élaboré
H1 : totalement vide
H2 : La formule : =NB.SI(G2:G5000;G2)>1
En supposant que la colonne ajoutée où se retrouvent les formules
est en G
D ) Appelle la commande Filtre élaboré : Utilise seulement la colonne "G"
pour le filtre
Plage de crìtère est : H1:H2
E ) Sélection de toute la plage moins la ligne d'étiquettes
E ) Avec la commande : Édition / atteindre / cellules / lignes visibles
seulement
F ) Édition / Supprimer
Tout ceci est réalisable par macro... si l'opération est redondante !!!
Salutations!
"Seng HUA" a écrit dans le message de news:
43fa1e10$0$1147$
Bonsoir à tous & à toutes,
J'ai une feuille de calcul qui peut avoir 6 à 10 000 lignes qui
proviennent
de l' extraction des comptes fournisseurs & clients, et qui présente comme
suit :
A B C
Nom du fournisseur Référence de la facture Montant
Nom du client Référence de la facture Montant
Les doublons se trouvent éparpillés partout, j'ai fait un tri par la
référence de la facture et le montant pour le supprimer tous les 2, et ne
garde que les factures qui n'ont pas la même réfence.
J'ai déjà vu sur le forum, des questions concernant la suppression des
lignes identiques ( doublons ).Voilà j'ai essayé d'adapter le macro pour
supprimer les 2 lignes identiques, mais ça n'a pas marché. Ma question est
:
A-t'il la possibilité de supprimer les 2 lignes identiques ? Si oui, en
ajoutant quel condition, en VBA ?
D'avance, meric pour votre aide
Seng
Bonjour Seng hua,
A ) Tu ajoutes une colonne dans laquelle tu insères une formule
¢&B2&C2&D2&E2&F2 , Ne pas oublier de donner une
étiquette à cette colonne
B ) Recopie la formule sur l'ensemble de la colonne
C ) Détermine dans 2 cellules libres, le critère pour le filtre élaboré
H1 : totalement vide
H2 : La formule : =NB.SI(G2:G5000;G2)>1
En supposant que la colonne ajoutée où se retrouvent les formules
est en G
D ) Appelle la commande Filtre élaboré : Utilise seulement la colonne "G"
pour le filtre
Plage de crìtère est : H1:H2
E ) Sélection de toute la plage moins la ligne d'étiquettes
E ) Avec la commande : Édition / atteindre / cellules / lignes visibles
seulement
F ) Édition / Supprimer
Tout ceci est réalisable par macro... si l'opération est redondante !!!
Salutations!
"Seng HUA" <senghua@club-internet.fr> a écrit dans le message de news:
43fa1e10$0$1147$7a628cd7@news.club-internet.fr...
Bonsoir à tous & à toutes,
J'ai une feuille de calcul qui peut avoir 6 à 10 000 lignes qui
proviennent
de l' extraction des comptes fournisseurs & clients, et qui présente comme
suit :
A B C
Nom du fournisseur Référence de la facture Montant
Nom du client Référence de la facture Montant
Les doublons se trouvent éparpillés partout, j'ai fait un tri par la
référence de la facture et le montant pour le supprimer tous les 2, et ne
garde que les factures qui n'ont pas la même réfence.
J'ai déjà vu sur le forum, des questions concernant la suppression des
lignes identiques ( doublons ).Voilà j'ai essayé d'adapter le macro pour
supprimer les 2 lignes identiques, mais ça n'a pas marché. Ma question est
:
A-t'il la possibilité de supprimer les 2 lignes identiques ? Si oui, en
ajoutant quel condition, en VBA ?
D'avance, meric pour votre aide
Seng
Bonjour Seng hua,
A ) Tu ajoutes une colonne dans laquelle tu insères une formule
¢&B2&C2&D2&E2&F2 , Ne pas oublier de donner une
étiquette à cette colonne
B ) Recopie la formule sur l'ensemble de la colonne
C ) Détermine dans 2 cellules libres, le critère pour le filtre élaboré
H1 : totalement vide
H2 : La formule : =NB.SI(G2:G5000;G2)>1
En supposant que la colonne ajoutée où se retrouvent les formules
est en G
D ) Appelle la commande Filtre élaboré : Utilise seulement la colonne "G"
pour le filtre
Plage de crìtère est : H1:H2
E ) Sélection de toute la plage moins la ligne d'étiquettes
E ) Avec la commande : Édition / atteindre / cellules / lignes visibles
seulement
F ) Édition / Supprimer
Tout ceci est réalisable par macro... si l'opération est redondante !!!
Salutations!
"Seng HUA" a écrit dans le message de news:
43fa1e10$0$1147$
Bonsoir à tous & à toutes,
J'ai une feuille de calcul qui peut avoir 6 à 10 000 lignes qui
proviennent
de l' extraction des comptes fournisseurs & clients, et qui présente comme
suit :
A B C
Nom du fournisseur Référence de la facture Montant
Nom du client Référence de la facture Montant
Les doublons se trouvent éparpillés partout, j'ai fait un tri par la
référence de la facture et le montant pour le supprimer tous les 2, et ne
garde que les factures qui n'ont pas la même réfence.
J'ai déjà vu sur le forum, des questions concernant la suppression des
lignes identiques ( doublons ).Voilà j'ai essayé d'adapter le macro pour
supprimer les 2 lignes identiques, mais ça n'a pas marché. Ma question est
:
A-t'il la possibilité de supprimer les 2 lignes identiques ? Si oui, en
ajoutant quel condition, en VBA ?
D'avance, meric pour votre aide
Seng
Voici un exemple :
Tu dois adapter le nom de la feuille et les adresses des cellules le cas
échéant.
'----------------------------------------
Sub test1()
Dim Sh As Worksheet
Dim Rg As Range, F As String
Set Sh = Worksheets("Feuil1") 'à adapter
With Sh
Set Rg = .Range("G1:G" & .Range("A65536").End(xlUp).Row)
.Range("H1") = ""
.Range("H2").FormulaLocal = "=NB.SI(G2:G" & Rg.Rows.Count & ";G2)>1"
F = "=" & Rg(2, -5).Address(0, 0) & "&" & Rg(2, -4).Address(0, 0) & _
"&" & Rg(2, -3).Address(0, 0) & "&" & Rg(2, -2).Address(0, 0) & _
"&" & Rg(2, -1).Address(0, 0) & "&" & Rg(2, 0).Address(0, 0)
With Rg
.Item(1, 1) = "Test"
.Offset(1).Resize(Rg.Rows.Count - 1).Formula = F
.AdvancedFilter xlFilterInPlace, Sh.Range("H1:H2")
.Offset(1).Resize(.Rows.Count - 1). _
SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
.ShowAllData
.Range("H2") = ""
End With
Rg.Clear: Set Rg = Nothing: Set Sh = Nothing
End Sub
'----------------------------------------
Salutations!
"Seng HUA" a écrit dans le message de news:
43fa2624$0$1149$
Bonsoir Michdenis.
Merci pour la réponse.
J'ai déjà essayé le filtre élaboré comme tu as suggérer, mais comme les
données sont trop importante, je souhaite avoir recours au macro. As tu 1
solution à me proposer ?
Merci d'avance.
Seng
"michdenis" a écrit dans le message de news:Bonjour Seng hua,
A ) Tu ajoutes une colonne dans laquelle tu insères une formule
¢&B2&C2&D2&E2&F2 , Ne pas oublier de donner une
étiquette à cette colonne
B ) Recopie la formule sur l'ensemble de la colonne
C ) Détermine dans 2 cellules libres, le critère pour le filtre élaboré
H1 : totalement vide
H2 : La formule : =NB.SI(G2:G5000;G2)>1
En supposant que la colonne ajoutée où se retrouvent les formules
est en G
D ) Appelle la commande Filtre élaboré : Utilise seulement la colonne "G"
pour le filtre
Plage de crìtère est : H1:H2
E ) Sélection de toute la plage moins la ligne d'étiquettes
E ) Avec la commande : Édition / atteindre / cellules / lignes visibles
seulement
F ) Édition / Supprimer
Tout ceci est réalisable par macro... si l'opération est redondante !!!
Salutations!
"Seng HUA" a écrit dans le message de news:
43fa1e10$0$1147$
Bonsoir à tous & à toutes,
J'ai une feuille de calcul qui peut avoir 6 à 10 000 lignes qui
proviennent
de l' extraction des comptes fournisseurs & clients, et qui présente
comme
suit :
A B
C
Nom du fournisseur Référence de la facture Montant
Nom du client Référence de la facture Montant
Les doublons se trouvent éparpillés partout, j'ai fait un tri par la
référence de la facture et le montant pour le supprimer tous les 2, et ne
garde que les factures qui n'ont pas la même réfence.
J'ai déjà vu sur le forum, des questions concernant la suppression des
lignes identiques ( doublons ).Voilà j'ai essayé d'adapter le macro pour
supprimer les 2 lignes identiques, mais ça n'a pas marché. Ma question
est
:
A-t'il la possibilité de supprimer les 2 lignes identiques ? Si oui, en
ajoutant quel condition, en VBA ?
D'avance, meric pour votre aide
Seng
Voici un exemple :
Tu dois adapter le nom de la feuille et les adresses des cellules le cas
échéant.
'----------------------------------------
Sub test1()
Dim Sh As Worksheet
Dim Rg As Range, F As String
Set Sh = Worksheets("Feuil1") 'à adapter
With Sh
Set Rg = .Range("G1:G" & .Range("A65536").End(xlUp).Row)
.Range("H1") = ""
.Range("H2").FormulaLocal = "=NB.SI(G2:G" & Rg.Rows.Count & ";G2)>1"
F = "=" & Rg(2, -5).Address(0, 0) & "&" & Rg(2, -4).Address(0, 0) & _
"&" & Rg(2, -3).Address(0, 0) & "&" & Rg(2, -2).Address(0, 0) & _
"&" & Rg(2, -1).Address(0, 0) & "&" & Rg(2, 0).Address(0, 0)
With Rg
.Item(1, 1) = "Test"
.Offset(1).Resize(Rg.Rows.Count - 1).Formula = F
.AdvancedFilter xlFilterInPlace, Sh.Range("H1:H2")
.Offset(1).Resize(.Rows.Count - 1). _
SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
.ShowAllData
.Range("H2") = ""
End With
Rg.Clear: Set Rg = Nothing: Set Sh = Nothing
End Sub
'----------------------------------------
Salutations!
"Seng HUA" <senghua@club-internet.fr> a écrit dans le message de news:
43fa2624$0$1149$7a628cd7@news.club-internet.fr...
Bonsoir Michdenis.
Merci pour la réponse.
J'ai déjà essayé le filtre élaboré comme tu as suggérer, mais comme les
données sont trop importante, je souhaite avoir recours au macro. As tu 1
solution à me proposer ?
Merci d'avance.
Seng
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
OI8eJslNGHA.2884@TK2MSFTNGP12.phx.gbl...
Bonjour Seng hua,
A ) Tu ajoutes une colonne dans laquelle tu insères une formule
¢&B2&C2&D2&E2&F2 , Ne pas oublier de donner une
étiquette à cette colonne
B ) Recopie la formule sur l'ensemble de la colonne
C ) Détermine dans 2 cellules libres, le critère pour le filtre élaboré
H1 : totalement vide
H2 : La formule : =NB.SI(G2:G5000;G2)>1
En supposant que la colonne ajoutée où se retrouvent les formules
est en G
D ) Appelle la commande Filtre élaboré : Utilise seulement la colonne "G"
pour le filtre
Plage de crìtère est : H1:H2
E ) Sélection de toute la plage moins la ligne d'étiquettes
E ) Avec la commande : Édition / atteindre / cellules / lignes visibles
seulement
F ) Édition / Supprimer
Tout ceci est réalisable par macro... si l'opération est redondante !!!
Salutations!
"Seng HUA" <senghua@club-internet.fr> a écrit dans le message de news:
43fa1e10$0$1147$7a628cd7@news.club-internet.fr...
Bonsoir à tous & à toutes,
J'ai une feuille de calcul qui peut avoir 6 à 10 000 lignes qui
proviennent
de l' extraction des comptes fournisseurs & clients, et qui présente
comme
suit :
A B
C
Nom du fournisseur Référence de la facture Montant
Nom du client Référence de la facture Montant
Les doublons se trouvent éparpillés partout, j'ai fait un tri par la
référence de la facture et le montant pour le supprimer tous les 2, et ne
garde que les factures qui n'ont pas la même réfence.
J'ai déjà vu sur le forum, des questions concernant la suppression des
lignes identiques ( doublons ).Voilà j'ai essayé d'adapter le macro pour
supprimer les 2 lignes identiques, mais ça n'a pas marché. Ma question
est
:
A-t'il la possibilité de supprimer les 2 lignes identiques ? Si oui, en
ajoutant quel condition, en VBA ?
D'avance, meric pour votre aide
Seng
Voici un exemple :
Tu dois adapter le nom de la feuille et les adresses des cellules le cas
échéant.
'----------------------------------------
Sub test1()
Dim Sh As Worksheet
Dim Rg As Range, F As String
Set Sh = Worksheets("Feuil1") 'à adapter
With Sh
Set Rg = .Range("G1:G" & .Range("A65536").End(xlUp).Row)
.Range("H1") = ""
.Range("H2").FormulaLocal = "=NB.SI(G2:G" & Rg.Rows.Count & ";G2)>1"
F = "=" & Rg(2, -5).Address(0, 0) & "&" & Rg(2, -4).Address(0, 0) & _
"&" & Rg(2, -3).Address(0, 0) & "&" & Rg(2, -2).Address(0, 0) & _
"&" & Rg(2, -1).Address(0, 0) & "&" & Rg(2, 0).Address(0, 0)
With Rg
.Item(1, 1) = "Test"
.Offset(1).Resize(Rg.Rows.Count - 1).Formula = F
.AdvancedFilter xlFilterInPlace, Sh.Range("H1:H2")
.Offset(1).Resize(.Rows.Count - 1). _
SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
.ShowAllData
.Range("H2") = ""
End With
Rg.Clear: Set Rg = Nothing: Set Sh = Nothing
End Sub
'----------------------------------------
Salutations!
"Seng HUA" a écrit dans le message de news:
43fa2624$0$1149$
Bonsoir Michdenis.
Merci pour la réponse.
J'ai déjà essayé le filtre élaboré comme tu as suggérer, mais comme les
données sont trop importante, je souhaite avoir recours au macro. As tu 1
solution à me proposer ?
Merci d'avance.
Seng
"michdenis" a écrit dans le message de news:Bonjour Seng hua,
A ) Tu ajoutes une colonne dans laquelle tu insères une formule
¢&B2&C2&D2&E2&F2 , Ne pas oublier de donner une
étiquette à cette colonne
B ) Recopie la formule sur l'ensemble de la colonne
C ) Détermine dans 2 cellules libres, le critère pour le filtre élaboré
H1 : totalement vide
H2 : La formule : =NB.SI(G2:G5000;G2)>1
En supposant que la colonne ajoutée où se retrouvent les formules
est en G
D ) Appelle la commande Filtre élaboré : Utilise seulement la colonne "G"
pour le filtre
Plage de crìtère est : H1:H2
E ) Sélection de toute la plage moins la ligne d'étiquettes
E ) Avec la commande : Édition / atteindre / cellules / lignes visibles
seulement
F ) Édition / Supprimer
Tout ceci est réalisable par macro... si l'opération est redondante !!!
Salutations!
"Seng HUA" a écrit dans le message de news:
43fa1e10$0$1147$
Bonsoir à tous & à toutes,
J'ai une feuille de calcul qui peut avoir 6 à 10 000 lignes qui
proviennent
de l' extraction des comptes fournisseurs & clients, et qui présente
comme
suit :
A B
C
Nom du fournisseur Référence de la facture Montant
Nom du client Référence de la facture Montant
Les doublons se trouvent éparpillés partout, j'ai fait un tri par la
référence de la facture et le montant pour le supprimer tous les 2, et ne
garde que les factures qui n'ont pas la même réfence.
J'ai déjà vu sur le forum, des questions concernant la suppression des
lignes identiques ( doublons ).Voilà j'ai essayé d'adapter le macro pour
supprimer les 2 lignes identiques, mais ça n'a pas marché. Ma question
est
:
A-t'il la possibilité de supprimer les 2 lignes identiques ? Si oui, en
ajoutant quel condition, en VBA ?
D'avance, meric pour votre aide
Seng
