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

10 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
Michel
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
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
Jacky
Ouppsss!!
For Each d In Range("b1:b" & derLB)
Au cas ou la colonne B peut-être plus longue que la colonne A
JJ

"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
Jacky
Re...
Enfin....;-)
Ceci s'il peut y avoir des doublons dans la même colonne.
Efface de la colonne B si la valeur se trouve dans la colonne A
'-----
Sub double_boucle()
derLA = Range("A65536").End(xlUp).Row
derLB = Range("B65536").End(xlUp).Row
For Each c In Range("a1:a" & derLA)
For i = derLB To 1 Step -1
If c.Value = Range("b" & i) Then
Range("b" & i).Delete
End If
Next
Next
End Sub
'----------
JJ
Avatar
Jacquouille
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
Jacquouille
J'avions correctionné. -))

--
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:

Ouppsss!!
For Each d In Range("b1:b" & derLB)
Au cas ou la colonne B peut-être plus longue que la colonne A
JJ

"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
Jacquouille
Non, pas de doux blonds à l'intérieur d'une même colonne.
Merci pour cette précision.
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:
O$JY$
Re...
Enfin....;-)
Ceci s'il peut y avoir des doublons dans la même colonne.
Efface de la colonne B si la valeur se trouve dans la colonne A
'-----
Sub double_boucle()
derLA = Range("A65536").End(xlUp).Row
derLB = Range("B65536").End(xlUp).Row
For Each c In Range("a1:a" & derLA)
For i = derLB To 1 Step -1
If c.Value = Range("b" & i) Then
Range("b" & i).Delete
End If
Next
Next
End Sub
'----------
JJ




Avatar
Jacquouille
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 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
Michel
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.












1 2