Discussion :

[cagolle13]

Bonjour a tous

voici mon probleme:
1. je touche pas trop au VBA
2. j'ai un tableau a 2 colonnes 1 le temps et l'autre le volume. j'observe une variation de volume dans le temps seulement cette variation n'est pas reguliere; le volume peut rester bloqué autour d'une meme valeur pendant 20, 10 ou 15s et je souhaiterais trouver un moyen de pas me lire toutes les lignes une apres l'autre pour isoler les pics de volume representés dans le fichier que je joins.

merci pour le coup de main
je reste dispo pour plus d'infos.

[michoutri]

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 :

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