Discussion :

[marie33000]

Bonjour,

J'aurais besoin d'un peu d'aide

Je dispose de 5 colonnes et n lignes
Mon programme permet de détecter des écarts entre des données

si l'écart=1 entre deux valeurs alors on affiche sinon on affiche pas la valeurs.

Exemple:

Code :

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

1
2
3
4
5
117
110
100
101
102

Mon programme va m'afficher:

Code :

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

1
2
3
4
100
101
101
102

car 101-100=1
et 102-101=1
Or j'aimerai obtenir ce résultat:

Code :

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

1
2
3
100
101
102

En somme supprimer les doublons d'une ligne identique à une autre si possible.
Comment les supprimer ?
Merci par avance

Voili voilou

[Krovax]

si les doublons se suivent

Code :

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

1
2
3
4
5
6
7
Dim i As Integer
 
For i = Range("A65536").End(xlUp).Row To 2 Step -1
    If Cells(i, 1) = Cells(i - 1, 1) then
       Rows(i).Delete
    End If
Next i

Sinon

Code :

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

1
2
3
4
5
6
7
For i = Range("A65536").End(xlUp).Row To 2 Step -1
   For j = i-1 To 2 Step -1
    If Cells(i, 1) = Cells(j, 1) then
       Rows(i).Delete
    End If
  next j
Next i

edit : voila quelque corection de syntaxe et ca devrais être bon