help pour creer une formule

Salut

Voici une possibilité qui supprime les doublons qui se suivent directement

Dans une feuille 1 colonne A j'ai mis le temps, colonne B j'ai mis des valeurs de volume

Ciao

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub ValeurUnique()
 
Dim Cell As Range
Dim Val As Integer
 
'on mémorise la première valeur
Val = Range("B2").Value
 
'on test la cellule suivante si c'est la même valeur
For Each Cell In Sheets(1).Range("A3:A" & Sheets(1).Range("A1").End(xlDown).Row)
    If Val = Cell.Offset(0, 1).Value Then
        'si oui alors on la supprime
        Cell.Offset(0, 1).Delete (xlUp)
    Else
        'sinon on mémorise la nouvelle valeur et on continue
        Val = Cell.Offset(0, 1).Value
    End If
Next Cell
 
End Sub