Si j'ai compris et à adapter (nbre de lignes en col A :
Sub zz_Doublons()
Application.ScreenUpdating = False
For i = 100 To 2 Step -1
If Application.CountIf(Range(Cells(i, 1), Cells(1, 1)),
Cells(i, 1).Value) > 1
Then _
Range(Cells(i, 1), Cells(i, 6)).Delete
Next
End Sub
AV
"nathalie" a écrit
dans le message news:Bonjour,
Je cherche une macro qui va pouvoir déterminer les doublons dans la
colonne A qui, ensuite, va effacer les doublons de la colonne A mais
également effacer les doublons de la colonne E (s'il y en
a) et F (s'il
y en a).
Je m'explique : colonne A = noms de dossier
colonne E = montants à recevoir (il se peut que cette
colonne soit vide)
etc..
Si j'ai compris et à adapter (nbre de lignes en col A :
Sub zz_Doublons()
Application.ScreenUpdating = False
For i = 100 To 2 Step -1
If Application.CountIf(Range(Cells(i, 1), Cells(1, 1)),
Cells(i, 1).Value) > 1
Then _
Range(Cells(i, 1), Cells(i, 6)).Delete
Next
End Sub
AV
"nathalie" <lucas.news.invalid@web2news.net> a écrit
dans le message news:
47930N467@web2news.com...
Bonjour,
Je cherche une macro qui va pouvoir déterminer les doublons dans la
colonne A qui, ensuite, va effacer les doublons de la colonne A mais
également effacer les doublons de la colonne E (s'il y en
a) et F (s'il
y en a).
Je m'explique : colonne A = noms de dossier
colonne E = montants à recevoir (il se peut que cette
colonne soit vide)
etc..
Si j'ai compris et à adapter (nbre de lignes en col A :
Sub zz_Doublons()
Application.ScreenUpdating = False
For i = 100 To 2 Step -1
If Application.CountIf(Range(Cells(i, 1), Cells(1, 1)),
Cells(i, 1).Value) > 1
Then _
Range(Cells(i, 1), Cells(i, 6)).Delete
Next
End Sub
AV
"nathalie" a écrit
dans le message news:Bonjour,
Je cherche une macro qui va pouvoir déterminer les doublons dans la
colonne A qui, ensuite, va effacer les doublons de la colonne A mais
également effacer les doublons de la colonne E (s'il y en
a) et F (s'il
y en a).
Je m'explique : colonne A = noms de dossier
colonne E = montants à recevoir (il se peut que cette
colonne soit vide)
etc..
merci beaucoup pour la macro mais, en fait, je suis débutante de chez
débutante... comment on fait pour adapter ? quand par exemple j'ai 150
lignes ?
Par avance merci !!!!!!!!!!!!!!!!!!
:o)
AV a écrit:Si j'ai compris et à adapter (nbre de lignes en col A :
Sub zz_Doublons()
Application.ScreenUpdating = False
For i = 100 To 2 Step -1
If Application.CountIf(Range(Cells(i, 1), Cells(1, 1)),
Cells(i, 1).Value) > 1
Then _
Range(Cells(i, 1), Cells(i, 6)).Delete
Next
End Sub
AV
"nathalie" a écrit
dans le message news:Bonjour,
Je cherche une macro qui va pouvoir déterminer les doublons dans la
colonne A qui, ensuite, va effacer les doublons de la colonne A mais
également effacer les doublons de la colonne E (s'il y en
a) et F (s'il
y en a).
Je m'explique : colonne A = noms de dossier
colonne E = montants à recevoir (il se peut que cette
colonne soit vide)
etc..
--
Accédez à ce forum en un clique sur le web avec http://web2news.com
http://web2news.com/?microsoft.public.fr.excel
merci beaucoup pour la macro mais, en fait, je suis débutante de chez
débutante... comment on fait pour adapter ? quand par exemple j'ai 150
lignes ?
Par avance merci !!!!!!!!!!!!!!!!!!
:o)
AV a écrit:
Si j'ai compris et à adapter (nbre de lignes en col A :
Sub zz_Doublons()
Application.ScreenUpdating = False
For i = 100 To 2 Step -1
If Application.CountIf(Range(Cells(i, 1), Cells(1, 1)),
Cells(i, 1).Value) > 1
Then _
Range(Cells(i, 1), Cells(i, 6)).Delete
Next
End Sub
AV
"nathalie" <lucas.news.invalid@web2news.net> a écrit
dans le message news:
47930N467@web2news.com...
Bonjour,
Je cherche une macro qui va pouvoir déterminer les doublons dans la
colonne A qui, ensuite, va effacer les doublons de la colonne A mais
également effacer les doublons de la colonne E (s'il y en
a) et F (s'il
y en a).
Je m'explique : colonne A = noms de dossier
colonne E = montants à recevoir (il se peut que cette
colonne soit vide)
etc..
--
Accédez à ce forum en un clique sur le web avec http://web2news.com
http://web2news.com/?microsoft.public.fr.excel
merci beaucoup pour la macro mais, en fait, je suis débutante de chez
débutante... comment on fait pour adapter ? quand par exemple j'ai 150
lignes ?
Par avance merci !!!!!!!!!!!!!!!!!!
:o)
AV a écrit:Si j'ai compris et à adapter (nbre de lignes en col A :
Sub zz_Doublons()
Application.ScreenUpdating = False
For i = 100 To 2 Step -1
If Application.CountIf(Range(Cells(i, 1), Cells(1, 1)),
Cells(i, 1).Value) > 1
Then _
Range(Cells(i, 1), Cells(i, 6)).Delete
Next
End Sub
AV
"nathalie" a écrit
dans le message news:Bonjour,
Je cherche une macro qui va pouvoir déterminer les doublons dans la
colonne A qui, ensuite, va effacer les doublons de la colonne A mais
également effacer les doublons de la colonne E (s'il y en
a) et F (s'il
y en a).
Je m'explique : colonne A = noms de dossier
colonne E = montants à recevoir (il se peut que cette
colonne soit vide)
etc..
--
Accédez à ce forum en un clique sur le web avec http://web2news.com
http://web2news.com/?microsoft.public.fr.excel
C'est un message de format MIME en plusieurs parties.
------=_NextPart_000_0161_01C34262.F5AA1AE0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
C'est un problème de recopie de code
Mets tout sur une seule ligne en supprimant le souligné(_)
If Application.CountIf(Range(Cells(i, 1), Cells(1, 1)), Cells(i, > 1).Value) > 1 Then Range(Cells(i, 1), Cells(i, 6)).Delete
AV
------=_NextPart_000_0161_01C34262.F5AA1AE0
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; > charset=iso-8859-1">
<META content="MSHTML 5.50.4807.2300" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY>
<DIV><FONT face=Arial size=2>C'est un problème
de recopie de > code</FONT></DIV>
<DIV><FONT face=Arial size=2>Mets tout sur une
seule ligne en > supprimant le
souligné(_)</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face="Arial Narrow"><FONT size=1>If
Application.CountIf(Range(Cells(i, 1), Cells(1, 1)),
Cells(i, 1).Value) > < 1
Then Range(Cells(i, 1), Cells(i,
6)).Delete</FONT><BR></FONT></DIV>
<DIV><FONT face="Arial
Narrow">AV</DIV></FONT></BODY></HTML>
------=_NextPart_000_0161_01C34262.F5AA1AE0--
C'est un message de format MIME en plusieurs parties.
------=_NextPart_000_0161_01C34262.F5AA1AE0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
C'est un problème de recopie de code
Mets tout sur une seule ligne en supprimant le souligné(_)
If Application.CountIf(Range(Cells(i, 1), Cells(1, 1)), Cells(i, > 1).Value) > 1 Then Range(Cells(i, 1), Cells(i, 6)).Delete
AV
------=_NextPart_000_0161_01C34262.F5AA1AE0
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; > charset=iso-8859-1">
<META content="MSHTML 5.50.4807.2300" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY>
<DIV><FONT face=Arial size=2>C'est un problème
de recopie de > code</FONT></DIV>
<DIV><FONT face=Arial size=2>Mets tout sur une
seule ligne en > supprimant le
souligné(_)</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face="Arial Narrow"><FONT size=1>If
Application.CountIf(Range(Cells(i, 1), Cells(1, 1)),
Cells(i, 1).Value) > < 1
Then Range(Cells(i, 1), Cells(i,
6)).Delete</FONT><BR></FONT></DIV>
<DIV><FONT face="Arial
Narrow">AV</DIV></FONT></BODY></HTML>
------=_NextPart_000_0161_01C34262.F5AA1AE0--
C'est un message de format MIME en plusieurs parties.
------=_NextPart_000_0161_01C34262.F5AA1AE0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
C'est un problème de recopie de code
Mets tout sur une seule ligne en supprimant le souligné(_)
If Application.CountIf(Range(Cells(i, 1), Cells(1, 1)), Cells(i, > 1).Value) > 1 Then Range(Cells(i, 1), Cells(i, 6)).Delete
AV
------=_NextPart_000_0161_01C34262.F5AA1AE0
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; > charset=iso-8859-1">
<META content="MSHTML 5.50.4807.2300" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY>
<DIV><FONT face=Arial size=2>C'est un problème
de recopie de > code</FONT></DIV>
<DIV><FONT face=Arial size=2>Mets tout sur une
seule ligne en > supprimant le
souligné(_)</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face="Arial Narrow"><FONT size=1>If
Application.CountIf(Range(Cells(i, 1), Cells(1, 1)),
Cells(i, 1).Value) > < 1
Then Range(Cells(i, 1), Cells(i,
6)).Delete</FONT><BR></FONT></DIV>
<DIV><FONT face="Arial
Narrow">AV</DIV></FONT></BODY></HTML>
------=_NextPart_000_0161_01C34262.F5AA1AE0--
Bonjour Nathalie,
Pendant qu'AV est allé au petit coin , ;-))
Je te propose ceci à partir du même principe élaboré par AV.
Tu n'a que copié ce qui suit dans un module standard :
Si l'onglet de la feuille où la macro doit s'appliquer est différent
de "Feuil2" , écris dans la procédure le vrai nom de la feuille
de ton projet en substituant "Feuil2" par le nom de l'onglet
de ta feuille dans la procédure.
'---------------------------------
Sub zz_Doublons()
Dim Nb As Long
Application.ScreenUpdating = False
With Worksheets("Feuil2")
Nb = .Range("A65536").End(xlUp).Row
For i = Nb To 2 Step -1
If Application.CountIf(.Range _
(.Cells(i, 1), .Cells(1, 1)), _
.Cells(i, 1).Value) > 1 Then
.Range(.Cells(i, 1), _
.Cells(i, 6)).Delete
End If
Next
End With
End Sub
'---------------------------------
Salutations!
"nathalie" a écrit
dans le message de news:
je ne comprends pas, ça ne marche pas, est-ce que c'est possible que
cela soit dû à Excel 2000 ? J'ai même essayé de le retaper
complètement
mais les instructions qu'Excel me donne ne correspond pas
à la suite...
je suis perdue
Help!
AV a écrit:C'est un message de format MIME en plusieurs parties.
------=_NextPart_000_0161_01C34262.F5AA1AE0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
C'est un problème de recopie de code
etc..
Bonjour Nathalie,
Pendant qu'AV est allé au petit coin , ;-))
Je te propose ceci à partir du même principe élaboré par AV.
Tu n'a que copié ce qui suit dans un module standard :
Si l'onglet de la feuille où la macro doit s'appliquer est différent
de "Feuil2" , écris dans la procédure le vrai nom de la feuille
de ton projet en substituant "Feuil2" par le nom de l'onglet
de ta feuille dans la procédure.
'---------------------------------
Sub zz_Doublons()
Dim Nb As Long
Application.ScreenUpdating = False
With Worksheets("Feuil2")
Nb = .Range("A65536").End(xlUp).Row
For i = Nb To 2 Step -1
If Application.CountIf(.Range _
(.Cells(i, 1), .Cells(1, 1)), _
.Cells(i, 1).Value) > 1 Then
.Range(.Cells(i, 1), _
.Cells(i, 6)).Delete
End If
Next
End With
End Sub
'---------------------------------
Salutations!
"nathalie" <lucas.news.invalid@web2news.net> a écrit
dans le message de news:48069N192@web2news.com.
je ne comprends pas, ça ne marche pas, est-ce que c'est possible que
cela soit dû à Excel 2000 ? J'ai même essayé de le retaper
complètement
mais les instructions qu'Excel me donne ne correspond pas
à la suite...
je suis perdue
Help!
AV a écrit:
C'est un message de format MIME en plusieurs parties.
------=_NextPart_000_0161_01C34262.F5AA1AE0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
C'est un problème de recopie de code
etc..
Bonjour Nathalie,
Pendant qu'AV est allé au petit coin , ;-))
Je te propose ceci à partir du même principe élaboré par AV.
Tu n'a que copié ce qui suit dans un module standard :
Si l'onglet de la feuille où la macro doit s'appliquer est différent
de "Feuil2" , écris dans la procédure le vrai nom de la feuille
de ton projet en substituant "Feuil2" par le nom de l'onglet
de ta feuille dans la procédure.
'---------------------------------
Sub zz_Doublons()
Dim Nb As Long
Application.ScreenUpdating = False
With Worksheets("Feuil2")
Nb = .Range("A65536").End(xlUp).Row
For i = Nb To 2 Step -1
If Application.CountIf(.Range _
(.Cells(i, 1), .Cells(1, 1)), _
.Cells(i, 1).Value) > 1 Then
.Range(.Cells(i, 1), _
.Cells(i, 6)).Delete
End If
Next
End With
End Sub
'---------------------------------
Salutations!
"nathalie" a écrit
dans le message de news:
je ne comprends pas, ça ne marche pas, est-ce que c'est possible que
cela soit dû à Excel 2000 ? J'ai même essayé de le retaper
complètement
mais les instructions qu'Excel me donne ne correspond pas
à la suite...
je suis perdue
Help!
AV a écrit:C'est un message de format MIME en plusieurs parties.
------=_NextPart_000_0161_01C34262.F5AA1AE0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
C'est un problème de recopie de code
etc..
Bonjour Nathalie,
Ce que tu veux ,
Pour qu'il y ait doublons :
Il faut que dans les 3 colonnes A, E, F, d'une ligne
donnée concorde exactement avec les information
les colonnes A , E , F. pour effacer. Et si la procédure
efface ce doublon, elle doit effacer seulem
colonne A, E, F .
Est-ce que j'ai bien compris ta demande ?
Salutations!
"nathalie" a écrit
dans le message de news:
Hé Bonjour !!
Merci pour ton aide !! J'ai essayé ta macro, elle
fonctionne. Cependant
elle efface toute la ligne ou il y a les doublons, or, il faut que
lorsque le doublon est trouvé sur la colonne A, seuls les
doublons des
colonnes A, E et F soient effacés :
un petit exemple
Colonne A colonne B COLONNE E COLONNE F
ROBERT 15000 1000 0
ROBERT 15000 1000 0
FRANCOIS 500 1000 0
Seules, dans ce cas-ci les données des colonnes A E et F
de la deuxième
ligne doivent être effacées.
Est-ce tu peux faire quelque chose ?
Par avance, MERCI !!!!!!!!!!!!!!!!!!!!!!!!!!
Nathalie
michdenis a écrit:Bonjour Nathalie,
Pendant qu'AV est allé au petit coin , ;-))
Je te propose ceci à partir du même principe élaboré par AV.
Tu n'a que copié ce qui suit dans un module standard :
etc..C'est un message de format MIME en plusieurs parties.
------=_NextPart_000_0161_01C34262.F5AA1AE0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
C'est un problème de recopie de code
etc..
Bonjour Nathalie,
Ce que tu veux ,
Pour qu'il y ait doublons :
Il faut que dans les 3 colonnes A, E, F, d'une ligne
donnée concorde exactement avec les information
les colonnes A , E , F. pour effacer. Et si la procédure
efface ce doublon, elle doit effacer seulem
colonne A, E, F .
Est-ce que j'ai bien compris ta demande ?
Salutations!
"nathalie" <lucas.news.invalid@web2news.net> a écrit
dans le message de news:48080N189@web2news.com.
Hé Bonjour !!
Merci pour ton aide !! J'ai essayé ta macro, elle
fonctionne. Cependant
elle efface toute la ligne ou il y a les doublons, or, il faut que
lorsque le doublon est trouvé sur la colonne A, seuls les
doublons des
colonnes A, E et F soient effacés :
un petit exemple
Colonne A colonne B COLONNE E COLONNE F
ROBERT 15000 1000 0
ROBERT 15000 1000 0
FRANCOIS 500 1000 0
Seules, dans ce cas-ci les données des colonnes A E et F
de la deuxième
ligne doivent être effacées.
Est-ce tu peux faire quelque chose ?
Par avance, MERCI !!!!!!!!!!!!!!!!!!!!!!!!!!
Nathalie
michdenis a écrit:
Bonjour Nathalie,
Pendant qu'AV est allé au petit coin , ;-))
Je te propose ceci à partir du même principe élaboré par AV.
Tu n'a que copié ce qui suit dans un module standard :
etc..
C'est un message de format MIME en plusieurs parties.
------=_NextPart_000_0161_01C34262.F5AA1AE0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
C'est un problème de recopie de code
etc..
Bonjour Nathalie,
Ce que tu veux ,
Pour qu'il y ait doublons :
Il faut que dans les 3 colonnes A, E, F, d'une ligne
donnée concorde exactement avec les information
les colonnes A , E , F. pour effacer. Et si la procédure
efface ce doublon, elle doit effacer seulem
colonne A, E, F .
Est-ce que j'ai bien compris ta demande ?
Salutations!
"nathalie" a écrit
dans le message de news:
Hé Bonjour !!
Merci pour ton aide !! J'ai essayé ta macro, elle
fonctionne. Cependant
elle efface toute la ligne ou il y a les doublons, or, il faut que
lorsque le doublon est trouvé sur la colonne A, seuls les
doublons des
colonnes A, E et F soient effacés :
un petit exemple
Colonne A colonne B COLONNE E COLONNE F
ROBERT 15000 1000 0
ROBERT 15000 1000 0
FRANCOIS 500 1000 0
Seules, dans ce cas-ci les données des colonnes A E et F
de la deuxième
ligne doivent être effacées.
Est-ce tu peux faire quelque chose ?
Par avance, MERCI !!!!!!!!!!!!!!!!!!!!!!!!!!
Nathalie
michdenis a écrit:Bonjour Nathalie,
Pendant qu'AV est allé au petit coin , ;-))
Je te propose ceci à partir du même principe élaboré par AV.
Tu n'a que copié ce qui suit dans un module standard :
etc..C'est un message de format MIME en plusieurs parties.
------=_NextPart_000_0161_01C34262.F5AA1AE0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
C'est un problème de recopie de code
etc..
Bonjour Nathalie,
Ce que tu veux ,
Pour qu'il y ait doublons :
Il faut que dans les 3 colonnes A, E, F, d'une ligne
donnée concorde exactement avec les information
les colonnes A , E , F. pour effacer. Et si la procédure
efface ce doublon, elle doit effacer seulem
colonne A, E, F .
Est-ce que j'ai bien compris ta demande ?
Salutations!
"nathalie" a écrit
dans le message de news:
Hé Bonjour !!
Merci pour ton aide !! J'ai essayé ta macro, elle
fonctionne. Cependant
elle efface toute la ligne ou il y a les doublons, or, il faut que
lorsque le doublon est trouvé sur la colonne A, seuls les
doublons des
colonnes A, E et F soient effacés :
un petit exemple
Colonne A colonne B COLONNE E COLONNE F
ROBERT 15000 1000 0
ROBERT 15000 1000 0
FRANCOIS 500 1000 0
Seules, dans ce cas-ci les données des colonnes A E et F
de la deuxième
ligne doivent être effacées.
Est-ce tu peux faire quelque chose ?
Par avance, MERCI !!!!!!!!!!!!!!!!!!!!!!!!!!
Nathalie
michdenis a écrit:Bonjour Nathalie,
Pendant qu'AV est allé au petit coin , ;-))
Je te propose ceci à partir du même principe élaboré par AV.
Tu n'a que copié ce qui suit dans un module standard :
etc..C'est un message de format MIME en plusieurs parties.
------=_NextPart_000_0161_01C34262.F5AA1AE0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
C'est un problème de recopie de code
etc..
Bonjour Nathalie,
Ce que tu veux ,
Pour qu'il y ait doublons :
Il faut que dans les 3 colonnes A, E, F, d'une ligne
donnée concorde exactement avec les information
les colonnes A , E , F. pour effacer. Et si la procédure
efface ce doublon, elle doit effacer seulem
colonne A, E, F .
Est-ce que j'ai bien compris ta demande ?
Salutations!
"nathalie" <lucas.news.invalid@web2news.net> a écrit
dans le message de news:48080N189@web2news.com.
Hé Bonjour !!
Merci pour ton aide !! J'ai essayé ta macro, elle
fonctionne. Cependant
elle efface toute la ligne ou il y a les doublons, or, il faut que
lorsque le doublon est trouvé sur la colonne A, seuls les
doublons des
colonnes A, E et F soient effacés :
un petit exemple
Colonne A colonne B COLONNE E COLONNE F
ROBERT 15000 1000 0
ROBERT 15000 1000 0
FRANCOIS 500 1000 0
Seules, dans ce cas-ci les données des colonnes A E et F
de la deuxième
ligne doivent être effacées.
Est-ce tu peux faire quelque chose ?
Par avance, MERCI !!!!!!!!!!!!!!!!!!!!!!!!!!
Nathalie
michdenis a écrit:
Bonjour Nathalie,
Pendant qu'AV est allé au petit coin , ;-))
Je te propose ceci à partir du même principe élaboré par AV.
Tu n'a que copié ce qui suit dans un module standard :
etc..
C'est un message de format MIME en plusieurs parties.
------=_NextPart_000_0161_01C34262.F5AA1AE0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
C'est un problème de recopie de code
etc..
Bonjour Nathalie,
Ce que tu veux ,
Pour qu'il y ait doublons :
Il faut que dans les 3 colonnes A, E, F, d'une ligne
donnée concorde exactement avec les information
les colonnes A , E , F. pour effacer. Et si la procédure
efface ce doublon, elle doit effacer seulem
colonne A, E, F .
Est-ce que j'ai bien compris ta demande ?
Salutations!
"nathalie" a écrit
dans le message de news:
Hé Bonjour !!
Merci pour ton aide !! J'ai essayé ta macro, elle
fonctionne. Cependant
elle efface toute la ligne ou il y a les doublons, or, il faut que
lorsque le doublon est trouvé sur la colonne A, seuls les
doublons des
colonnes A, E et F soient effacés :
un petit exemple
Colonne A colonne B COLONNE E COLONNE F
ROBERT 15000 1000 0
ROBERT 15000 1000 0
FRANCOIS 500 1000 0
Seules, dans ce cas-ci les données des colonnes A E et F
de la deuxième
ligne doivent être effacées.
Est-ce tu peux faire quelque chose ?
Par avance, MERCI !!!!!!!!!!!!!!!!!!!!!!!!!!
Nathalie
michdenis a écrit:Bonjour Nathalie,
Pendant qu'AV est allé au petit coin , ;-))
Je te propose ceci à partir du même principe élaboré par AV.
Tu n'a que copié ce qui suit dans un module standard :
etc..C'est un message de format MIME en plusieurs parties.
------=_NextPart_000_0161_01C34262.F5AA1AE0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
C'est un problème de recopie de code
etc..
Bonjour Nathalie,
Essaie ceci , en prenant toujours soin d'indiquer dans la
procédure, le vrai nom de la feuille où se
Remplace "Feuil2" par le nom de l'onglet de ta feuille.
'-------------------------------
Sub zz_Doublons()
Dim Nb As Long, Sh As Worksheet
Application.ScreenUpdating = False
Set Sh = Worksheets.Add
With Worksheets("Feuil2")
Nb = .Range("A65536").End(xlUp).Row
.Range("A1:A" & Nb).Copy Sh.Range("A1")
.Range("A1:A" & Nb).ClearContents
.Range("E1:E" & Nb).Copy Sh.Range("B1")
.Range("E1:E" & Nb).ClearContents
.Range("F1:F" & Nb).Copy Sh.Range("C1")
.Range("F1:F" & Nb).ClearContents
Sh.Range("A1").CurrentRegion.AdvancedFilter
Action:=xlFilterInPlace, Unique:=True
Sh.Range("A1:A" & Nb).Copy .Range("A1")
Sh.Range("B1:B" & Nb).Copy .Range("E1")
Sh.Range("C1:C" & Nb).Copy .Range("F1")
Application.DisplayAlerts = False
Sh.Delete
Application.DisplayAlerts = True
End With
Set Sh = Nothing
End Sub
'-------------------------------
Salutations!
"nathalie" a écrit
dans le message de news:
oui, c'est ça sachant qu'il se peut que les colonnes E et
F soient videS
(sans zéro sans rien)
A+
michdenis a écrit:Bonjour Nathalie,
Ce que tu veux ,
Pour qu'il y ait doublons :
Il faut que dans les 3 colonnes A, E, F, d'une ligne
donnée concorde exactement avec les information
les colonnes A , E , F. pour effacer. Et si la procédure
etc..Bonjour Nathalie,
Pendant qu'AV est allé au petit coin , ;-))
Je te propose ceci à partir du même principe élaboré par AV.
Tu n'a que copié ce qui suit dans un module standard :
etc..C'est un message de format MIME en plusieurs parties.
------=_NextPart_000_0161_01C34262.F5AA1AE0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
C'est un problème de recopie de code
etc..
Bonjour Nathalie,
Essaie ceci , en prenant toujours soin d'indiquer dans la
procédure, le vrai nom de la feuille où se
Remplace "Feuil2" par le nom de l'onglet de ta feuille.
'-------------------------------
Sub zz_Doublons()
Dim Nb As Long, Sh As Worksheet
Application.ScreenUpdating = False
Set Sh = Worksheets.Add
With Worksheets("Feuil2")
Nb = .Range("A65536").End(xlUp).Row
.Range("A1:A" & Nb).Copy Sh.Range("A1")
.Range("A1:A" & Nb).ClearContents
.Range("E1:E" & Nb).Copy Sh.Range("B1")
.Range("E1:E" & Nb).ClearContents
.Range("F1:F" & Nb).Copy Sh.Range("C1")
.Range("F1:F" & Nb).ClearContents
Sh.Range("A1").CurrentRegion.AdvancedFilter
Action:=xlFilterInPlace, Unique:=True
Sh.Range("A1:A" & Nb).Copy .Range("A1")
Sh.Range("B1:B" & Nb).Copy .Range("E1")
Sh.Range("C1:C" & Nb).Copy .Range("F1")
Application.DisplayAlerts = False
Sh.Delete
Application.DisplayAlerts = True
End With
Set Sh = Nothing
End Sub
'-------------------------------
Salutations!
"nathalie" <lucas.news.invalid@web2news.net> a écrit
dans le message de news:48088N341@web2news.com.
oui, c'est ça sachant qu'il se peut que les colonnes E et
F soient videS
(sans zéro sans rien)
A+
michdenis a écrit:
Bonjour Nathalie,
Ce que tu veux ,
Pour qu'il y ait doublons :
Il faut que dans les 3 colonnes A, E, F, d'une ligne
donnée concorde exactement avec les information
les colonnes A , E , F. pour effacer. Et si la procédure
etc..
Bonjour Nathalie,
Pendant qu'AV est allé au petit coin , ;-))
Je te propose ceci à partir du même principe élaboré par AV.
Tu n'a que copié ce qui suit dans un module standard :
etc..
C'est un message de format MIME en plusieurs parties.
------=_NextPart_000_0161_01C34262.F5AA1AE0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
C'est un problème de recopie de code
etc..
Bonjour Nathalie,
Essaie ceci , en prenant toujours soin d'indiquer dans la
procédure, le vrai nom de la feuille où se
Remplace "Feuil2" par le nom de l'onglet de ta feuille.
'-------------------------------
Sub zz_Doublons()
Dim Nb As Long, Sh As Worksheet
Application.ScreenUpdating = False
Set Sh = Worksheets.Add
With Worksheets("Feuil2")
Nb = .Range("A65536").End(xlUp).Row
.Range("A1:A" & Nb).Copy Sh.Range("A1")
.Range("A1:A" & Nb).ClearContents
.Range("E1:E" & Nb).Copy Sh.Range("B1")
.Range("E1:E" & Nb).ClearContents
.Range("F1:F" & Nb).Copy Sh.Range("C1")
.Range("F1:F" & Nb).ClearContents
Sh.Range("A1").CurrentRegion.AdvancedFilter
Action:=xlFilterInPlace, Unique:=True
Sh.Range("A1:A" & Nb).Copy .Range("A1")
Sh.Range("B1:B" & Nb).Copy .Range("E1")
Sh.Range("C1:C" & Nb).Copy .Range("F1")
Application.DisplayAlerts = False
Sh.Delete
Application.DisplayAlerts = True
End With
Set Sh = Nothing
End Sub
'-------------------------------
Salutations!
"nathalie" a écrit
dans le message de news:
oui, c'est ça sachant qu'il se peut que les colonnes E et
F soient videS
(sans zéro sans rien)
A+
michdenis a écrit:Bonjour Nathalie,
Ce que tu veux ,
Pour qu'il y ait doublons :
Il faut que dans les 3 colonnes A, E, F, d'une ligne
donnée concorde exactement avec les information
les colonnes A , E , F. pour effacer. Et si la procédure
etc..Bonjour Nathalie,
Pendant qu'AV est allé au petit coin , ;-))
Je te propose ceci à partir du même principe élaboré par AV.
Tu n'a que copié ce qui suit dans un module standard :
etc..C'est un message de format MIME en plusieurs parties.
------=_NextPart_000_0161_01C34262.F5AA1AE0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
C'est un problème de recopie de code
etc..
Bonjour Nathalie,
Essaie ceci , en prenant toujours soin d'indiquer dans la
procédure, le vrai nom de la feuille où se
Remplace "Feuil2" par le nom de l'onglet de ta feuille.
'-------------------------------
Sub zz_Doublons()
Dim Nb As Long, Sh As Worksheet
Application.ScreenUpdating = False
Set Sh = Worksheets.Add
With Worksheets("Feuil2")
Nb = .Range("A65536").End(xlUp).Row
.Range("A1:A" & Nb).Copy Sh.Range("A1")
.Range("A1:A" & Nb).ClearContents
.Range("E1:E" & Nb).Copy Sh.Range("B1")
.Range("E1:E" & Nb).ClearContents
.Range("F1:F" & Nb).Copy Sh.Range("C1")
.Range("F1:F" & Nb).ClearContents
Sh.Range("A1").CurrentRegion.AdvancedFilter
Action:=xlFilterInPlace, Unique:=True
Sh.Range("A1:A" & Nb).Copy .Range("A1")
Sh.Range("B1:B" & Nb).Copy .Range("E1")
Sh.Range("C1:C" & Nb).Copy .Range("F1")
Application.DisplayAlerts = False
Sh.Delete
Application.DisplayAlerts = True
End With
Set Sh = Nothing
End Sub
'-------------------------------
Salutations!
"nathalie" a écrit
dans le message de news:
oui, c'est ça sachant qu'il se peut que les colonnes E et
F soient videS
(sans zéro sans rien)
A+
michdenis a écrit:Bonjour Nathalie,
Ce que tu veux ,
Pour qu'il y ait doublons :
Il faut que dans les 3 colonnes A, E, F, d'une ligne
donnée concorde exactement avec les information
les colonnes A , E , F. pour effacer. Et si la procédure
etc..Bonjour Nathalie,
Pendant qu'AV est allé au petit coin , ;-))
Je te propose ceci à partir du même principe élaboré par AV.
Tu n'a que copié ce qui suit dans un module standard :
etc..C'est un message de format MIME en plusieurs parties.
------=_NextPart_000_0161_01C34262.F5AA1AE0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
C'est un problème de recopie de code
etc..
Bonjour Nathalie,
Essaie ceci , en prenant toujours soin d'indiquer dans la
procédure, le vrai nom de la feuille où se
Remplace "Feuil2" par le nom de l'onglet de ta feuille.
'-------------------------------
Sub zz_Doublons()
Dim Nb As Long, Sh As Worksheet
Application.ScreenUpdating = False
Set Sh = Worksheets.Add
With Worksheets("Feuil2")
Nb = .Range("A65536").End(xlUp).Row
.Range("A1:A" & Nb).Copy Sh.Range("A1")
.Range("A1:A" & Nb).ClearContents
.Range("E1:E" & Nb).Copy Sh.Range("B1")
.Range("E1:E" & Nb).ClearContents
.Range("F1:F" & Nb).Copy Sh.Range("C1")
.Range("F1:F" & Nb).ClearContents
Sh.Range("A1").CurrentRegion.AdvancedFilter
Action:=xlFilterInPlace, Unique:=True
Sh.Range("A1:A" & Nb).Copy .Range("A1")
Sh.Range("B1:B" & Nb).Copy .Range("E1")
Sh.Range("C1:C" & Nb).Copy .Range("F1")
Application.DisplayAlerts = False
Sh.Delete
Application.DisplayAlerts = True
End With
Set Sh = Nothing
End Sub
'-------------------------------
Salutations!
"nathalie" <lucas.news.invalid@web2news.net> a écrit
dans le message de news:48088N341@web2news.com.
oui, c'est ça sachant qu'il se peut que les colonnes E et
F soient videS
(sans zéro sans rien)
A+
michdenis a écrit:
Bonjour Nathalie,
Ce que tu veux ,
Pour qu'il y ait doublons :
Il faut que dans les 3 colonnes A, E, F, d'une ligne
donnée concorde exactement avec les information
les colonnes A , E , F. pour effacer. Et si la procédure
etc..
Bonjour Nathalie,
Pendant qu'AV est allé au petit coin , ;-))
Je te propose ceci à partir du même principe élaboré par AV.
Tu n'a que copié ce qui suit dans un module standard :
etc..
C'est un message de format MIME en plusieurs parties.
------=_NextPart_000_0161_01C34262.F5AA1AE0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
C'est un problème de recopie de code
etc..
Bonjour Nathalie,
Essaie ceci , en prenant toujours soin d'indiquer dans la
procédure, le vrai nom de la feuille où se
Remplace "Feuil2" par le nom de l'onglet de ta feuille.
'-------------------------------
Sub zz_Doublons()
Dim Nb As Long, Sh As Worksheet
Application.ScreenUpdating = False
Set Sh = Worksheets.Add
With Worksheets("Feuil2")
Nb = .Range("A65536").End(xlUp).Row
.Range("A1:A" & Nb).Copy Sh.Range("A1")
.Range("A1:A" & Nb).ClearContents
.Range("E1:E" & Nb).Copy Sh.Range("B1")
.Range("E1:E" & Nb).ClearContents
.Range("F1:F" & Nb).Copy Sh.Range("C1")
.Range("F1:F" & Nb).ClearContents
Sh.Range("A1").CurrentRegion.AdvancedFilter
Action:=xlFilterInPlace, Unique:=True
Sh.Range("A1:A" & Nb).Copy .Range("A1")
Sh.Range("B1:B" & Nb).Copy .Range("E1")
Sh.Range("C1:C" & Nb).Copy .Range("F1")
Application.DisplayAlerts = False
Sh.Delete
Application.DisplayAlerts = True
End With
Set Sh = Nothing
End Sub
'-------------------------------
Salutations!
"nathalie" a écrit
dans le message de news:
oui, c'est ça sachant qu'il se peut que les colonnes E et
F soient videS
(sans zéro sans rien)
A+
michdenis a écrit:Bonjour Nathalie,
Ce que tu veux ,
Pour qu'il y ait doublons :
Il faut que dans les 3 colonnes A, E, F, d'une ligne
donnée concorde exactement avec les information
les colonnes A , E , F. pour effacer. Et si la procédure
etc..Bonjour Nathalie,
Pendant qu'AV est allé au petit coin , ;-))
Je te propose ceci à partir du même principe élaboré par AV.
Tu n'a que copié ce qui suit dans un module standard :
etc..C'est un message de format MIME en plusieurs parties.
------=_NextPart_000_0161_01C34262.F5AA1AE0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
C'est un problème de recopie de code
etc..
Bonjour Nathalie,
Voici la macro que tu voulais.
à la troisième ligne seulement, remplace le nom de la
feuille "Feuil1" par celle de ton application.
En espérant qu'il n'y ait pas trop de lignes de code
coupées par le service de messagerie.
'-------------------------------------------
Sub Doublons()
Dim Nb As Long, Sh As Worksheet, NomFeuille As String
NomFeuille = "Feuil1" ' à déterminer
Application.ScreenUpdating = False
Set Sh = Worksheets.Add
With Worksheets(NomFeuille)
Nb = .Range("A65536").End(xlUp).Row
.Range("A1:F" & .Range("A65536").End(xlUp).Row). _
CurrentRegion.Copy Sh.Range("A1")
With Sh
.Range("G1:G" & Nb).Formula = "=Row()"
.Range("A1").CurrentRegion.Sort _
Key1:=.Range("A2"), Order1:=xlAscending, _
Header:=xlYes
For A = Nb To 2 Step -1
If .Cells(A, 1) = .Cells(A - 1, 1) Then
If .Cells(A, 5) = .Cells(A - 1, 5) Then
If .Cells(A, 6) = .Cells(A - 1, 6) Then
Union(.Cells(A, 1), .Cells(A, 5), _
.Cells(A, 6)).ClearContents
End If
End If
End If
Next
.Range("A1").CurrentRegion.Sort Key1:=.Range("G1"), _
Order1:=xlAscending, Header:=xlYes
.Range("G1:G" & Nb).Clear
.Range("A1").CurrentRegion.Copy _
Worksheets(NomFeuille).Range("A1")
End With
End With
Application.DisplayAlerts = False
Sh.Delete
Application.DisplayAlerts = True
Set Sh = Nothing
End Sub
'-------------------------------------------
Salutations!
"nathalie" a écrit
dans le message de news:
Hello,
Je viens d'essayer elle marche presque car en supprimant
la cellule elle
fait monter la précédente à la place ce qui fausse tout le
tableau, il
faudrait que la cellule reste vide, est-ce possible ?
par avance, Merci beaucoup !!!!!!!!
nathalie
michdenis a écrit:Bonjour Nathalie,
Essaie ceci , en prenant toujours soin d'indiquer dans la
procédure, le vrai nom de la feuille où se
Remplace "Feuil2" par le nom de l'onglet de ta feuille.
'-------------------------------
Sub zz_Doublons()
etc..Bonjour Nathalie,
Ce que tu veux ,
Pour qu'il y ait doublons :
Il faut que dans les 3 colonnes A, E, F, d'une ligne
donnée concorde exactement avec les information
les colonnes A , E , F. pour effacer. Et si la procédure
etc..Bonjour Nathalie,
Pendant qu'AV est allé au petit coin , ;-))
Je te propose ceci à partir du même principe élaboré par AV.
Tu n'a que copié ce qui suit dans un module standard :
etc..C'est un message de format MIME en plusieurs parties.
------=_NextPart_000_0161_01C34262.F5AA1AE0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
C'est un problème de recopie de code
etc..
Bonjour Nathalie,
Voici la macro que tu voulais.
à la troisième ligne seulement, remplace le nom de la
feuille "Feuil1" par celle de ton application.
En espérant qu'il n'y ait pas trop de lignes de code
coupées par le service de messagerie.
'-------------------------------------------
Sub Doublons()
Dim Nb As Long, Sh As Worksheet, NomFeuille As String
NomFeuille = "Feuil1" ' à déterminer
Application.ScreenUpdating = False
Set Sh = Worksheets.Add
With Worksheets(NomFeuille)
Nb = .Range("A65536").End(xlUp).Row
.Range("A1:F" & .Range("A65536").End(xlUp).Row). _
CurrentRegion.Copy Sh.Range("A1")
With Sh
.Range("G1:G" & Nb).Formula = "=Row()"
.Range("A1").CurrentRegion.Sort _
Key1:=.Range("A2"), Order1:=xlAscending, _
Header:=xlYes
For A = Nb To 2 Step -1
If .Cells(A, 1) = .Cells(A - 1, 1) Then
If .Cells(A, 5) = .Cells(A - 1, 5) Then
If .Cells(A, 6) = .Cells(A - 1, 6) Then
Union(.Cells(A, 1), .Cells(A, 5), _
.Cells(A, 6)).ClearContents
End If
End If
End If
Next
.Range("A1").CurrentRegion.Sort Key1:=.Range("G1"), _
Order1:=xlAscending, Header:=xlYes
.Range("G1:G" & Nb).Clear
.Range("A1").CurrentRegion.Copy _
Worksheets(NomFeuille).Range("A1")
End With
End With
Application.DisplayAlerts = False
Sh.Delete
Application.DisplayAlerts = True
Set Sh = Nothing
End Sub
'-------------------------------------------
Salutations!
"nathalie" <lucas.news.invalid@web2news.net> a écrit
dans le message de news:48105N844@web2news.com.
Hello,
Je viens d'essayer elle marche presque car en supprimant
la cellule elle
fait monter la précédente à la place ce qui fausse tout le
tableau, il
faudrait que la cellule reste vide, est-ce possible ?
par avance, Merci beaucoup !!!!!!!!
nathalie
michdenis a écrit:
Bonjour Nathalie,
Essaie ceci , en prenant toujours soin d'indiquer dans la
procédure, le vrai nom de la feuille où se
Remplace "Feuil2" par le nom de l'onglet de ta feuille.
'-------------------------------
Sub zz_Doublons()
etc..
Bonjour Nathalie,
Ce que tu veux ,
Pour qu'il y ait doublons :
Il faut que dans les 3 colonnes A, E, F, d'une ligne
donnée concorde exactement avec les information
les colonnes A , E , F. pour effacer. Et si la procédure
etc..
Bonjour Nathalie,
Pendant qu'AV est allé au petit coin , ;-))
Je te propose ceci à partir du même principe élaboré par AV.
Tu n'a que copié ce qui suit dans un module standard :
etc..
C'est un message de format MIME en plusieurs parties.
------=_NextPart_000_0161_01C34262.F5AA1AE0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
C'est un problème de recopie de code
etc..
Bonjour Nathalie,
Voici la macro que tu voulais.
à la troisième ligne seulement, remplace le nom de la
feuille "Feuil1" par celle de ton application.
En espérant qu'il n'y ait pas trop de lignes de code
coupées par le service de messagerie.
'-------------------------------------------
Sub Doublons()
Dim Nb As Long, Sh As Worksheet, NomFeuille As String
NomFeuille = "Feuil1" ' à déterminer
Application.ScreenUpdating = False
Set Sh = Worksheets.Add
With Worksheets(NomFeuille)
Nb = .Range("A65536").End(xlUp).Row
.Range("A1:F" & .Range("A65536").End(xlUp).Row). _
CurrentRegion.Copy Sh.Range("A1")
With Sh
.Range("G1:G" & Nb).Formula = "=Row()"
.Range("A1").CurrentRegion.Sort _
Key1:=.Range("A2"), Order1:=xlAscending, _
Header:=xlYes
For A = Nb To 2 Step -1
If .Cells(A, 1) = .Cells(A - 1, 1) Then
If .Cells(A, 5) = .Cells(A - 1, 5) Then
If .Cells(A, 6) = .Cells(A - 1, 6) Then
Union(.Cells(A, 1), .Cells(A, 5), _
.Cells(A, 6)).ClearContents
End If
End If
End If
Next
.Range("A1").CurrentRegion.Sort Key1:=.Range("G1"), _
Order1:=xlAscending, Header:=xlYes
.Range("G1:G" & Nb).Clear
.Range("A1").CurrentRegion.Copy _
Worksheets(NomFeuille).Range("A1")
End With
End With
Application.DisplayAlerts = False
Sh.Delete
Application.DisplayAlerts = True
Set Sh = Nothing
End Sub
'-------------------------------------------
Salutations!
"nathalie" a écrit
dans le message de news:
Hello,
Je viens d'essayer elle marche presque car en supprimant
la cellule elle
fait monter la précédente à la place ce qui fausse tout le
tableau, il
faudrait que la cellule reste vide, est-ce possible ?
par avance, Merci beaucoup !!!!!!!!
nathalie
michdenis a écrit:Bonjour Nathalie,
Essaie ceci , en prenant toujours soin d'indiquer dans la
procédure, le vrai nom de la feuille où se
Remplace "Feuil2" par le nom de l'onglet de ta feuille.
'-------------------------------
Sub zz_Doublons()
etc..Bonjour Nathalie,
Ce que tu veux ,
Pour qu'il y ait doublons :
Il faut que dans les 3 colonnes A, E, F, d'une ligne
donnée concorde exactement avec les information
les colonnes A , E , F. pour effacer. Et si la procédure
etc..Bonjour Nathalie,
Pendant qu'AV est allé au petit coin , ;-))
Je te propose ceci à partir du même principe élaboré par AV.
Tu n'a que copié ce qui suit dans un module standard :
etc..C'est un message de format MIME en plusieurs parties.
------=_NextPart_000_0161_01C34262.F5AA1AE0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
C'est un problème de recopie de code
etc..
