Menu déroulantRésolu

Question

njour à tous, Je voudrais dans mon menu déroulant que les données qui apparaissent partent du plus bas au plus haut dans la colone. Ex: Dans la colone B4 = xx1 dans B5 = xx2 dans B6 = xx3 etc. Donc dans mon menu déroulant, il va apparaitre : xx3 xx2 xx1. Voici le script:

Private Const LineStart As Long = 4 Private Sub UserForm_Initialize() Dim i As Long Dim DLV As Long: DLV = DeniereLigneVide For i = LineStart To DLV If Cells(i - 1, 2) <> Cells(i, 2).Value Then ComboBox49.AddItem Cells(i, 2).Value Next i End Sub Private Function DeniereLigneVide() As Long DeniereLigneVide = Range("B65536").End(xlUp).Row End Function

Comment faire svp? Merci!

mortalino · Accepted Answer

salut Avyrex, il te suffit pour cette opération de boucler (For ... To) de la dernière Ligne, à la première, avec le paramètre Step : For i = DLV To LineStart Step -1 If Cells(i - 1, 2) <> Cells(i, 2).Value Then ComboBox49.AddItem Cells(i, 2).Value Next i @++

( Nouveau forum : Exclusivement Office & VBA/STRONG>

avyrex1926 · Answer

Merci beaucoup.

C'était trop simple pour moi il faut croire.

Merci encore!

mortalino · Answer

C'est en manipulant qu'on apprend  

Pour info concernant le Step, tu n'es pas obligé de l'utiliser avec -1, mais d'autres valeurs (bon là, pour une cellule, c'est souvent +1 ou -1, mais dans d'autres cas..)

Autres Exemples :

For i = 0 To 10 Step 2
   'i prendra la valeur de 0, puis 2, puis 4 etc..
Next i

For i = 0 To 10 Step 0.1
   'i prendra la valeur de 0.1, puis 0.2, puis 0.3 etc..
Next i

For i = 100 To 1 Step -10
   'i prendra la valeur de 100, puis 90, puis 80 etc..
Next i

@++ 

<hr width="100%" size="2" />( Nouveau forum : Exclusivement Office & VBA/STRONG>

avyrex1926 · Answer

okkkkkkk,

là je comprend.

Je ne comprenais pas comme ça! super merci

Menu déroulant

4 réponses

Votre réponse

Discussions similaires