Discussion :

[JulienLeno]

Bonjour a vous voilà j'ai une liste d'environ 100 nombres sur laquelle je voudrais faire un tri. En effet les nombres sont données dans le désordre et peuvent parfois se répéter. C'est pourquoi je cherche à faire une commande qui me permet d'une part de les trier du plus petit au plus grand et d'effacer la ligne lorsque j'ai un double. J'ai fais ce code pour l'instant mais il ne fonctionne pas du tout. Une idée s'il vous plait. Car la j'avour ne pas voir ce qu'il se passe.

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
18
19
20
21
22
Private Sub CommandButton1_Click()
 
Dim Buf As Long
 
For I = 2 To 100
 
    If Sheet2.Cells(I + 1, "a").Value < Sheet2.Cells(I, "a").Value Then
    Buf = Sheet2.Cells(I + 1, "a").Value
    Sheet2.Cells(I + 1, "a").Value = Sheet2.Cells(I, "a").Value
    Sheet2.Cells(I, "a").Value = Buf
 
     ElseIf Sheet2.Cells(I + 1, "a").Value = Sheet2.Cells(I, "a").Value Then
 
    Sheet2.Rows(I).Delete
 
    End If
 
    I = I + 1
 
Next
 
End Sub

Merci d'avance

[mercatog]

Bonjour

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
Dim LastLig As Long, i As Long
 
Application.ScreenUpdating = False
With Sheet2
    LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row
    .Range("A2:A" & LastLig).Sort , Key1:=.Range("A2"), Order1:=xlAscending, Header:=xlNo
    For i = LastLig To 3 Step -1
        If .Range("A" & i - 1) = .Range("A" & i) Then .Rows(i).Delete
    Next i
End With
End Sub

[JulienLeno]

Tout simplement génial!! J'avais trouvé une commande pour le faire mais vraiment pas orthodoxe et qui prenait du temps donc pas terrible!

Cependant n'étant pas très doué en VBA je voudrais avoir quelques précisions sur ta macro afin de pouvoir réutiliser ce genre de choses. La commande "with sert a désigner la feuille sur laquelle tu travailles afin de ne pas remettre a chaque fois sheet2?

Code :

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

LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row

Comment cela fonctionne-t-il? tu comptes le nombre de ligne où il y'a des nombres présent?

Code :

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

Range("A2:A" & LastLig).Sort , Key1:=.Range("A2"), Order1:=xlAscending, Header:=xlNo

Comment fonctionne la commande sort j'ai regardé dans l'aide mais je ne comprent pas tout. Elle parvient à trier les nombre du plus petit au plus grand automatiquement? Key 1 c'est le début du sort? Order1 c'est la commande que tu veux qu'il fasse à savoir monter d'une ligne à chaque fois? A quoi sert Header?


Merci de ton aide

Julien

[mercatog]

Pour le With, c'est ça

LastLig permet de trouver la dernière ligne remplie de la colonne 1 (généraliser ton 100)

Pour le reste, F1 sur Sort te donneras les explications

[JulienLeno]

J'ai vu un peu comment fonctionnait le sort. Dernière question pour la commande last lig rows.count, 1 compte le nombre de ligne xlup pour passer a la ligne suivante? Mais pourquoi y a-t-il un .rows à la fin?

Merci

Julien

[AlainTech]

Mais pourquoi y a-t-il un .rows à la fin?

D'abord, ce n'est pas .rows mais .Row.

Et la réponse est: Parce qu'on cherche un numéro de ligne.