Enregistrement des valeurs d'un tableau
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é
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
Merci beaucoup.
Désolé de la réponse un peu tardive, en tout cas ça marche nikel
A+