Compter Champ identiques

Bonjour !

J'aimerais compter le nombre de champs identique à partir de la colone 1 (A) et du numéro de ligne " i ".

En faite, je tris par ordre alphabétique ma colone, puis j'aimerais compter le nombre de doublons pour chaque ligne, j'utilise une boucle qui par de i=1 à NOMBRE LIGNE TOTAL et j'aimerais supprimer les doublons de tout mon tableau.
Voici se que j'ai commencé à faire :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

rivate Sub CommandButton1_Click() Dim iNbItems, i, i2 As Integer   iNbItems = ActiveSheet.UsedRange.Rows.Count ' On tri la liste par ordre alphabétique range("A1:C" & iNbItems).Sort Key1:=range("A1"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal   For i = 1 To iNbItems If Cells(i + 1, 1) = Cells(i, 1) Then range("A" & i).Select Selection.EntireRow.Delete End If Next   End

---

Le soucis c'est que mon code ne fonctionne pas du premier coup, a cose du NEXT...
J'aimerais donc, compter le nombre de ligne identique à partir de ma ligne i Et ensuite, supprimer le nombre de ligne en conséquence...

Merci !

Bonjour.

Dans ce cas, il vaut mieux commencer par la fin. Essaie :

Code:

---

1 2 3

For i = inbitems To 2 step -1 If Cells(i , 1) = Cells(i-1, 1) Then Rows(i).delete Next i

---

A mettre au point.

Bon courage,

PGZ

:D

Il n'y à rien à mettre au point, sa fonctionne super !!!

Merci, je n'y avait même pas pensé !

J'aimerais comprendre ton

Code:

---

For i = iNbItems To 2 Step -1

---

A quoi sert le Step-1? je ne connais pas cette formule, merci de m'aider à comprendre !

bonjour,

step - 1 : traduction literrale pas - 1 ..

à chaque tour de boucle 1 est enlevé à i .., l'astuces de partir de la derniére ligne à la premiére permet d'éviter les problémes de 'remontée' de lignes suite à suppression....

Mais dans quel but tu fai sun "Pas -1" ??
Car tu dis que ta boucle s'arrete à 2 donc je ne comprend pas...

Merci de m'aider !

il y as combien de ligne dans ta feuille ?

pour le savoir rajoute la ligne msgbox

Code:

---

1 2 3 4

.. iNbItems = ActiveSheet.UsedRange.Rows.Count msgBox INbItems ..

---

D'après se que je crois voir sur le net, le Step -1 Servirait à dire qu'on décrémente de -1 à chaque foi???

Si j'ai 10 ligne, alors on fera 10 9 8 7 6 5 4 3 2...

C'est sa??

Car j'ai essayer en mettant Step -2
et on décrémente de Deux en deux...
J'ai bien compris?

oui c'est cela on décrémente i à chaque tour de boucle donc

Code:

---

If Cells(i , 1) = Cells(i-1, 1) Then Rows(i).delete

---

pour le premier tour ou i et = nbdelignes = 10 devient :

Code:

---

If Cells(10 , 1) = Cells(10-1, 1) Then Rows(10).delete

---

on compare donc le contenu de la cellule A10 avec A(10-1) : A9 , ... et l'on efface A10 si identique...

le dernier tour l'on s'arrête à i = 2 d'ou :

Code:

---

If Cells(2, 1) = Cells(2-1, 1) Then Rows(2).delete

---

comparaison de A2 avec A1 ... et l'on as fait le tour

tu dis quoi ?

Merci !!!

J'en demandais pas tant, pour les explications détaillées, je savais, mais c'est toujours mieu de confirmer !

Mais merci de m'avoir confirmé pour le Step.

A bientot,

MERCI beaucoup !