Discussion :

[Blooks]

Bonjour,

J'aimerais réaliser une macro afin de traiter rapidement et de manière répétée (sur plusieurs fichiers) un "tri" de données.

Voici les données à traiter:



Je voudrais qu'au final la macro donne le nombre d'occurences de chaque amplitude, donc :

11 fois 60
12 fois 120
etc ...

J'ai commencé à rédiger le code ci-dessous (inachevé) mais j'ai une erreur à la ligne

Code :

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

Dim Occurence(1 To UBound(Tableau))

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub MacroLVL_CROSSING()
 
Dim Occurences() As Variant
Dim Tableau() As Variant
Dim Index As Long
Dim Index1 As Long
Dim Ligne As Long
Dim NbCell As Long
Dim Valeur As Integer
Dim Valeur1 As Integer
Dim X As Integer
Dim Compt As Long
 
Ligne = 17
 While Cells(Ligne, 2) <> ""        'Remplissage du tableau
    ReDim Preserve Tableau(Index)
    Tableau(Index) = Cells(Ligne, 2)
    Index = Index + 1
    Ligne = Ligne + 1
Wend
 
X = 1
Valeur1 = Range("B17")
 
For i = 1 To UBound(Tableau)        'Analyse des données
    Valeur = Tableau(X)
    If Valeur = Valeur1 Then
        Compt = Compt + 1
    Else
        Dim Occurence(1 To UBound(Tableau))
        Compt = 0
        Valeur1 = Valeur
        Index1 = Index1 + 1
    End If
X = X + 1
 
Next i
 
ReDim Preserve Occurences(Index1)
 
End Sub

Avez vous une idée pour régler l'erreur?

Une autre méthode à proposer?