Bonjour à tous,

J'ai un tableau avec des valeurs numériques quelconque de A1 à A100 dans ma feuille 1. Je souhaiterais à l'aide de ma macro, attribuer un nom pour chaque valeur différente que je trouve en parcourant les valeurs dans cette colonne. Voilà le code que j'ai commencé

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
 
    Dim valeur1 As Integer
    Dim valeur2 As Integer
    Dim valeur3 As Integer
    Dim valeur4 As Integer
    Dim valeur5 As Integer
    Dim valeur6 As Integer
    Dim valeur7 As Integer
    Dim valeur8 As Integer
    Dim valeur9 As Integer
    Dim valeur10 As Integer
    (il ne peut y a voir plus de 10 valeurs différentes dans la colonne)
 
    k = 1
 
 
    valeur1 = Sheets("Feuil1").Cells(1, 1).Value
 
 
    If Sheets("Feuil1").Cells(k, 1).Value <> valeur1 Then
 
    valeur2 = Sheets("Feuil1").Cells(k, 1).Value
 
    End If
 
 
    If Sheets("Feuil1").Cells(k, 1).Value <> valeur1 And Sheets("Feuil1").Cells(k, 1).Value <> valeur2 Then
 
    valeur3 = Sheets("Feuil1").Cells(k, 1).Value
 
    End If
 
    etc...


Donc, la macro m'enregistre bien la première valeur de la colonne en tant que valeur1, ensuite la première valeur différente à valeur1 rencontrée est enregistrée en tant que valeur2, mais dès que il y a une troisième valeur différente, il m'enregistre celle-ci en tant que valeur2 et non pas valeur3. Je pense bien que le problème viens de ces deux lignes du code:

valeur2 = Sheets("Feuil1").Cells(k, 1).Value

valeur3 = Sheets("Feuil1").Cells(k, 1).Value

mais je ne sais pas comment le dire autrement.

J'espère avoir été clair et que quelqu'un pourra m'aider. Merci d'avance