Discussion :

[jojo86]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[pgz]

Bonjour.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jojo86]

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

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

J'aimerais comprendre ton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For i = iNbItems To 2 Step -1

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

[JackOuYA]

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

[jojo86]

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 !

[JackOuYA]

il y as combien de ligne dans ta feuille ?

pour le savoir rajoute la ligne msgbox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
..
iNbItems = ActiveSheet.UsedRange.Rows.Count
msgBox  INbItems
..

[jojo86]

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?