Bonjour à tous,

Je demande une nouvelle fois votre aide (mais c'est pas faute d'avoir cherché !)
Je voudrais réécrire les valeurs distinctes de la colonne A (qui va de la ligne 3 à DerniereLigne) de mon onglet "1 - Calculs1" dans la colonne AI de mon onglet "2 - Calculs2". C'est dur...:/

J'ai essayé une triple boucle du style :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
For i = 3 To DerniereLigne
For j = i + 1 To DerniereLigne
For k = 2 To Sheets("Import données").Range("I1") 'Ca c'est mon nombre de valeurs distinctes
If Sheets("1 - Calculs1").Range("A" & i) <> Sheets("1 - Calculs1").Range("A" & j) Then
Sheets("2 - Calculs2").Range("AI" & k) = Sheets("1 - Calculs1").Range("A" & i)
Else: ??
End If
Next k
Next j
Next i
PS : J'ai vu les discussions sur le comptage de valeurs distinctes mais je ne comprends pas très bien.

Merci beaucoup si vous pouvez m'aider !

Alexis