Bonjour,

En gros je recherche une methode algorithmique pour parcourire une colonne et d'ajouter les devises qui sont differentes de l'euros , usd et jpy . Mon probleme c'est que mon code marche pour une monnaie de plus , et en supposant que ma colonne soit rangée. On peut imaginer qu'il trouve une nouvelle monnaie GBP puis apres de l'euros puis encore du GBP alors il va le recompter , car il ne fait pas parti de mes conditions. Peut etre alors un test , sur le fait que ce que l'on rajoute doit etre different de mes conditions + des monnais que j'ai rajouté a mon tableau. Enfin j'ai un peu du mal a coder un truc propre.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
With xlsheet
    NbL = .Range("D" & Rows.Count).End(xlUp).Row
    Set AllRange = .Range(.Range("D11"), .Range("D" & NbL))
End With
    'on recupere le tableau des devises non travaillées
For Each MyRange In AllRange
    MyRange.Select
    If Not MyRange.Value = "EUR" And Not MyRange.Value = "JPY" And Not MyRange.Value = "USD" 
        i = i + 1
        ReDim Preserve TabCurrency(i)
        TabCurrency(i) = MyRange.Value
    End If
Next MyRange