Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel double boucle

double boucle

17 réponses
Avatar
Jacquouille
Bonsoir à tous et tousses,
sub double_boucle ()
derLA = Range("A65536").End(xlUp).Row
derLB = Range("B65536").End(xlUp).Row
For Each c In Range("C1:C" & derLA)
For zn = 1 To derLB
If c = Range("B" & zn) Then c.Delete
Next
Next
End Sub
-----------
où il s'agit de comparer les cel de colB avec celles de colA et supprimer si
B=A
Mais cela ne va pas.
Quelqu'un peut-il me dire pourquoi, comment ...,
Un grand merci

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.
Signaler un problème avec ce contenu

7 réponses

Supprimer
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
1 2
Avatar
Jacquouille
Bonjour
Je crois que certains ont résolu ce problème en commençant par le bas
for nÞrL to 1 ;step:-1 ....
Un grand merci pour cette explication.
PS Attention au séparateur entre le 1 et le mot step. Je ne sais pas ce
qu'il faut et j'ai mis un ; à tout hasard.
Bonne chance et encore merci
Jacques.

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.

"Michel" a écrit dans le message de
news:
Salut,

< Shift:=xlUp > est peut-etre facultatif et pas necessaire, cela veut tout
simplement dire que la ligne se deplace vers le haut.

<zn = zn - 1> veut dire que la boucle doit checker le meme ligne quelle
vient d'eliminer.

ex:

zn = 2
la boucle elimine la ligne 2
apres la ligne 3 devient la ligne 2
si tu ne lui dis pas zn = zn -1
la boucle recommencera avec zn = 3
donc..... une ligne ne sera pas checker...

@+

Michel.



"Jacquouille" a écrit dans le message de
news: eiWc%
Bonjour
Merci pour cette réponse.
Je ne comprends pas cette phrase:
Selection.Delete Shift:=xlUp
zn = zn - 1
Alors que tu fais ceci plus haut:

For zn = 1 To derLB
PS : C'est quoi < Shift:=xlUp > ?

Jacques.
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.

"Michel" a écrit dans le message
de news:
Salut,

J'ai teste et ca ca marche :

Sub double_boucle()
derLA = Range("A65536").End(xlUp).Row
derLB = Range("B65536").End(xlUp).Row
For Each c In Range("C1:C" & derLA)
For zn = 1 To derLB
If Range("a" & zn) = Range("B" & zn) Then
Rows(zn).Select
Selection.Delete Shift:=xlUp
zn = zn - 1
End If
Next
Next
End Sub

@+

Michel.



"Jacquouille" a écrit dans le message de
news:
Bonsoir à tous et tousses,
sub double_boucle ()
derLA = Range("A65536").End(xlUp).Row
derLB = Range("B65536").End(xlUp).Row
For Each c In Range("C1:C" & derLA)
For zn = 1 To derLB
If c = Range("B" & zn) Then c.Delete
Next
Next
End Sub
-----------
où il s'agit de comparer les cel de colB avec celles de colA et
supprimer si B=A
Mais cela ne va pas.
Quelqu'un peut-il me dire pourquoi, comment ...,
Un grand merci

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.
















Avatar
Jacquouille
Re
Je n'ai pas copié tout, mais colC = ColA recopiée pour pouvoir garder A
intacte et effacer en C les cel de B..
Merci pour cette explication et bon WE
Jacques

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.

"Jacky" a écrit dans le message de news:

re...
Je ne comprends pas ta première phrase....


Mettre quelque chose dans la colonne C et.......
Essaie ceci et tu comprendras....
'----------
derLA = Range("A65536").End(xlUp).Row
For Each c In Range("C1:C" & derLA)
msgbox c
next
'----------
Tu testes la colonne C par rapport à la colonne B selon la longueur de la
colonne A
au lieu de A par rapport à B.

Bon WE
JJ



"Jacquouille" a écrit dans le message de
news:%
Bonsoir
Je ne comprends pas ta première phrase....
Charge "c" de la valeur de la colonne Cn
Un grand merci pour ce filet de macro.

Tout baignera avec ton second msg, ....-))
1002 mercis
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.

"Jacky" a écrit dans le message de news:

Bonsoir,
où il s'agit de comparer les cel de colB avec celles de colA et
supprimer



si B=A
ceci:

For Each c In Range("C1:C" & derLA)
Charge "c" de la valeur de la colonne Cn

Donc.......aucune comparaison avec la colonne A

S'il s'agit d'effacer les doublons dans la colonne B ceci devrait
convenir:

'---------
Sub double_boucle()
derLA = Range("A65536").End(xlUp).Row
derLB = Range("B65536").End(xlUp).Row
For Each c In Range("a1:a" & derLA)
For Each d In Range("b1:b" & derLA)
If c = d Then d.Delete
Next
Next
End Sub
'------------
Bonne soirée
JJ

"Jacquouille" a écrit dans le message
de
news:
Bonsoir à tous et tousses,
sub double_boucle ()
derLA = Range("A65536").End(xlUp).Row
derLB = Range("B65536").End(xlUp).Row
For Each c In Range("C1:C" & derLA)
For zn = 1 To derLB
If c = Range("B" & zn) Then c.Delete
Next
Next
End Sub
-----------
où il s'agit de comparer les cel de colB avec celles de colA et
supprimer



si B=A
Mais cela ne va pas.
Quelqu'un peut-il me dire pourquoi, comment ...,
Un grand merci

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.
















Avatar
jps
salut jacquouille
for n = derL to 1 Step - 1
va bene cosi : ni ; ni : avant et après les Step (même si elles ne sont pas
de l'asie centrale mais seulement du hainaut)
jps

"Jacquouille" a écrit dans le message de
news:
Bonjour
Je crois que certains ont résolu ce problème en commençant par le bas
for nÞrL to 1 ;step:-1 ....
Un grand merci pour cette explication.
PS Attention au séparateur entre le 1 et le mot step. Je ne sais pas ce
qu'il faut et j'ai mis un ; à tout hasard.
Bonne chance et encore merci
Jacques.

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.

"Michel" a écrit dans le message de
news:
Salut,

< Shift:=xlUp > est peut-etre facultatif et pas necessaire, cela veut
tout simplement dire que la ligne se deplace vers le haut.

<zn = zn - 1> veut dire que la boucle doit checker le meme ligne quelle
vient d'eliminer.

ex:

zn = 2
la boucle elimine la ligne 2
apres la ligne 3 devient la ligne 2
si tu ne lui dis pas zn = zn -1
la boucle recommencera avec zn = 3
donc..... une ligne ne sera pas checker...

@+

Michel.



"Jacquouille" a écrit dans le message de
news: eiWc%
Bonjour
Merci pour cette réponse.
Je ne comprends pas cette phrase:
Selection.Delete Shift:=xlUp
zn = zn - 1
Alors que tu fais ceci plus haut:

For zn = 1 To derLB
PS : C'est quoi < Shift:=xlUp > ?

Jacques.
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.

"Michel" a écrit dans le message
de news:
Salut,

J'ai teste et ca ca marche :

Sub double_boucle()
derLA = Range("A65536").End(xlUp).Row
derLB = Range("B65536").End(xlUp).Row
For Each c In Range("C1:C" & derLA)
For zn = 1 To derLB
If Range("a" & zn) = Range("B" & zn) Then
Rows(zn).Select
Selection.Delete Shift:=xlUp
zn = zn - 1
End If
Next
Next
End Sub

@+

Michel.



"Jacquouille" a écrit dans le message
de news:
Bonsoir à tous et tousses,
sub double_boucle ()
derLA = Range("A65536").End(xlUp).Row
derLB = Range("B65536").End(xlUp).Row
For Each c In Range("C1:C" & derLA)
For zn = 1 To derLB
If c = Range("B" & zn) Then c.Delete
Next
Next
End Sub
-----------
où il s'agit de comparer les cel de colB avec celles de colA et
supprimer si B=A
Mais cela ne va pas.
Quelqu'un peut-il me dire pourquoi, comment ...,
Un grand merci

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.




















Avatar
Jacquouille
Bonsoir Paulo
Content de te savoir bien rentré des plaines de Marseille.-))
Et merci pour cette bonne explication, digne des Maîtres d'Antan.

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.

"jps" a écrit dans le message de news:
O30%
salut jacquouille
for n = derL to 1 Step - 1
va bene cosi : ni ; ni : avant et après les Step (même si elles ne sont
pas de l'asie centrale mais seulement du hainaut)
jps

"Jacquouille" a écrit dans le message de
news:
Bonjour
Je crois que certains ont résolu ce problème en commençant par le bas
for nÞrL to 1 ;step:-1 ....
Un grand merci pour cette explication.
PS Attention au séparateur entre le 1 et le mot step. Je ne sais pas ce
qu'il faut et j'ai mis un ; à tout hasard.
Bonne chance et encore merci
Jacques.

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.

"Michel" a écrit dans le message
de news:
Salut,

< Shift:=xlUp > est peut-etre facultatif et pas necessaire, cela veut
tout simplement dire que la ligne se deplace vers le haut.

<zn = zn - 1> veut dire que la boucle doit checker le meme ligne quelle
vient d'eliminer.

ex:

zn = 2
la boucle elimine la ligne 2
apres la ligne 3 devient la ligne 2
si tu ne lui dis pas zn = zn -1
la boucle recommencera avec zn = 3
donc..... une ligne ne sera pas checker...

@+

Michel.



"Jacquouille" a écrit dans le message de
news: eiWc%
Bonjour
Merci pour cette réponse.
Je ne comprends pas cette phrase:
Selection.Delete Shift:=xlUp
zn = zn - 1
Alors que tu fais ceci plus haut:

For zn = 1 To derLB
PS : C'est quoi < Shift:=xlUp > ?

Jacques.
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.

"Michel" a écrit dans le message
de news:
Salut,

J'ai teste et ca ca marche :

Sub double_boucle()
derLA = Range("A65536").End(xlUp).Row
derLB = Range("B65536").End(xlUp).Row
For Each c In Range("C1:C" & derLA)
For zn = 1 To derLB
If Range("a" & zn) = Range("B" & zn) Then
Rows(zn).Select
Selection.Delete Shift:=xlUp
zn = zn - 1
End If
Next
Next
End Sub

@+

Michel.



"Jacquouille" a écrit dans le message
de news:
Bonsoir à tous et tousses,
sub double_boucle ()
derLA = Range("A65536").End(xlUp).Row
derLB = Range("B65536").End(xlUp).Row
For Each c In Range("C1:C" & derLA)
For zn = 1 To derLB
If c = Range("B" & zn) Then c.Delete
Next
Next
End Sub
-----------
où il s'agit de comparer les cel de colB avec celles de colA et
supprimer si B=A
Mais cela ne va pas.
Quelqu'un peut-il me dire pourquoi, comment ...,
Un grand merci

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.
























Avatar
jps
:-))))))))
quant aux plaines allemandes, elles ne réussissent pas trop à nos footeux
qui non bravissimi sunt, semble-t-il (normal, me diras-tu, puisque Julio
Cesar, c'est un brésilien, non?)
jps

"Jacquouille" a écrit dans le message de
news: %
Bonsoir Paulo
Content de te savoir bien rentré des plaines de Marseille.-))
Et merci pour cette bonne explication, digne des Maîtres d'Antan.

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.

"jps" a écrit dans le message de news:
O30%
salut jacquouille
for n = derL to 1 Step - 1
va bene cosi : ni ; ni : avant et après les Step (même si elles ne sont
pas de l'asie centrale mais seulement du hainaut)
jps

"Jacquouille" a écrit dans le message de
news:
Bonjour
Je crois que certains ont résolu ce problème en commençant par le bas
for nÞrL to 1 ;step:-1 ....
Un grand merci pour cette explication.
PS Attention au séparateur entre le 1 et le mot step. Je ne sais pas
ce qu'il faut et j'ai mis un ; à tout hasard.
Bonne chance et encore merci
Jacques.

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.

"Michel" a écrit dans le message
de news:
Salut,

< Shift:=xlUp > est peut-etre facultatif et pas necessaire, cela veut
tout simplement dire que la ligne se deplace vers le haut.

<zn = zn - 1> veut dire que la boucle doit checker le meme ligne quelle
vient d'eliminer.

ex:

zn = 2
la boucle elimine la ligne 2
apres la ligne 3 devient la ligne 2
si tu ne lui dis pas zn = zn -1
la boucle recommencera avec zn = 3
donc..... une ligne ne sera pas checker...

@+

Michel.



"Jacquouille" a écrit dans le message
de news: eiWc%
Bonjour
Merci pour cette réponse.
Je ne comprends pas cette phrase:
Selection.Delete Shift:=xlUp
zn = zn - 1
Alors que tu fais ceci plus haut:

For zn = 1 To derLB
PS : C'est quoi < Shift:=xlUp > ?

Jacques.
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.

"Michel" a écrit dans le
message de news:
Salut,

J'ai teste et ca ca marche :

Sub double_boucle()
derLA = Range("A65536").End(xlUp).Row
derLB = Range("B65536").End(xlUp).Row
For Each c In Range("C1:C" & derLA)
For zn = 1 To derLB
If Range("a" & zn) = Range("B" & zn) Then
Rows(zn).Select
Selection.Delete Shift:=xlUp
zn = zn - 1
End If
Next
Next
End Sub

@+

Michel.



"Jacquouille" a écrit dans le message
de news:
Bonsoir à tous et tousses,
sub double_boucle ()
derLA = Range("A65536").End(xlUp).Row
derLB = Range("B65536").End(xlUp).Row
For Each c In Range("C1:C" & derLA)
For zn = 1 To derLB
If c = Range("B" & zn) Then c.Delete
Next
Next
End Sub
-----------
où il s'agit de comparer les cel de colB avec celles de colA et
supprimer si B=A
Mais cela ne va pas.
Quelqu'un peut-il me dire pourquoi, comment ...,
Un grand merci

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.




























Avatar
Jacquouille
Salut la Cantonna..
Perso, si j'étions Français, je ne causerais pas de foot..-((

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.

"jps" a écrit dans le message de news:

:-))))))))
quant aux plaines allemandes, elles ne réussissent pas trop à nos footeux
qui non bravissimi sunt, semble-t-il (normal, me diras-tu, puisque Julio
Cesar, c'est un brésilien, non?)
jps

"Jacquouille" a écrit dans le message de
news: %
Bonsoir Paulo
Content de te savoir bien rentré des plaines de Marseille.-))
Et merci pour cette bonne explication, digne des Maîtres d'Antan.

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.

"jps" a écrit dans le message de news:
O30%
salut jacquouille
for n = derL to 1 Step - 1
va bene cosi : ni ; ni : avant et après les Step (même si elles ne sont
pas de l'asie centrale mais seulement du hainaut)
jps

"Jacquouille" a écrit dans le message de
news:
Bonjour
Je crois que certains ont résolu ce problème en commençant par le bas
for nÞrL to 1 ;step:-1 ....
Un grand merci pour cette explication.
PS Attention au séparateur entre le 1 et le mot step. Je ne sais pas
ce qu'il faut et j'ai mis un ; à tout hasard.
Bonne chance et encore merci
Jacques.

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.

"Michel" a écrit dans le message
de news:
Salut,

< Shift:=xlUp > est peut-etre facultatif et pas necessaire, cela veut
tout simplement dire que la ligne se deplace vers le haut.

<zn = zn - 1> veut dire que la boucle doit checker le meme ligne
quelle vient d'eliminer.

ex:

zn = 2
la boucle elimine la ligne 2
apres la ligne 3 devient la ligne 2
si tu ne lui dis pas zn = zn -1
la boucle recommencera avec zn = 3
donc..... une ligne ne sera pas checker...

@+

Michel.



"Jacquouille" a écrit dans le message
de news: eiWc%
Bonjour
Merci pour cette réponse.
Je ne comprends pas cette phrase:
Selection.Delete Shift:=xlUp
zn = zn - 1
Alors que tu fais ceci plus haut:

For zn = 1 To derLB
PS : C'est quoi < Shift:=xlUp > ?

Jacques.
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.

"Michel" a écrit dans le
message de news:
Salut,

J'ai teste et ca ca marche :

Sub double_boucle()
derLA = Range("A65536").End(xlUp).Row
derLB = Range("B65536").End(xlUp).Row
For Each c In Range("C1:C" & derLA)
For zn = 1 To derLB
If Range("a" & zn) = Range("B" & zn) Then
Rows(zn).Select
Selection.Delete Shift:=xlUp
zn = zn - 1
End If
Next
Next
End Sub

@+

Michel.



"Jacquouille" a écrit dans le
message de news:
Bonsoir à tous et tousses,
sub double_boucle ()
derLA = Range("A65536").End(xlUp).Row
derLB = Range("B65536").End(xlUp).Row
For Each c In Range("C1:C" & derLA)
For zn = 1 To derLB
If c = Range("B" & zn) Then c.Delete
Next
Next
End Sub
-----------
où il s'agit de comparer les cel de colB avec celles de colA et
supprimer si B=A
Mais cela ne va pas.
Quelqu'un peut-il me dire pourquoi, comment ...,
Un grand merci

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.
































Avatar
Jacky
Re...
Je n'ai pas copié tout,
Cachottier ;-))

JJ

"Jacquouille" a écrit dans le message de
news:
Re
Je n'ai pas copié tout, mais colC = ColA recopiée pour pouvoir garder A
intacte et effacer en C les cel de B..
Merci pour cette explication et bon WE
Jacques

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.

"Jacky" a écrit dans le message de news:

re...
Je ne comprends pas ta première phrase....


Mettre quelque chose dans la colonne C et.......
Essaie ceci et tu comprendras....
'----------
derLA = Range("A65536").End(xlUp).Row
For Each c In Range("C1:C" & derLA)
msgbox c
next
'----------
Tu testes la colonne C par rapport à la colonne B selon la longueur de la
colonne A
au lieu de A par rapport à B.

Bon WE
JJ



"Jacquouille" a écrit dans le message de
news:%
Bonsoir
Je ne comprends pas ta première phrase....
Charge "c" de la valeur de la colonne Cn
Un grand merci pour ce filet de macro.

Tout baignera avec ton second msg, ....-))
1002 mercis
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.

"Jacky" a écrit dans le message de news:

Bonsoir,
où il s'agit de comparer les cel de colB avec celles de colA et
supprimer



si B=A
ceci:

For Each c In Range("C1:C" & derLA)
Charge "c" de la valeur de la colonne Cn

Donc.......aucune comparaison avec la colonne A

S'il s'agit d'effacer les doublons dans la colonne B ceci devrait
convenir:

'---------
Sub double_boucle()
derLA = Range("A65536").End(xlUp).Row
derLB = Range("B65536").End(xlUp).Row
For Each c In Range("a1:a" & derLA)
For Each d In Range("b1:b" & derLA)
If c = d Then d.Delete
Next
Next
End Sub
'------------
Bonne soirée
JJ

"Jacquouille" a écrit dans le message
de
news:
Bonsoir à tous et tousses,
sub double_boucle ()
derLA = Range("A65536").End(xlUp).Row
derLB = Range("B65536").End(xlUp).Row
For Each c In Range("C1:C" & derLA)
For zn = 1 To derLB
If c = Range("B" & zn) Then c.Delete
Next
Next
End Sub
-----------
où il s'agit de comparer les cel de colB avec celles de colA et
supprimer



si B=A
Mais cela ne va pas.
Quelqu'un peut-il me dire pourquoi, comment ...,
Un grand merci

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.




















1 2