VBA USF Combobox ???

[xvella]

Bonjour Tous,
Bonjour Forum,

Dans un Userform, j'utilise une Combobox alimenter par List.
Cette fait juste une colonne de date dans le classeur.(Début à Fin d'année)
Quand j'ouvre le Userform, je réinscris la dernière date qui à été demandée qui est dans une simple cellule du classeur.
Voilà je voudrai si il est possible que lorsque je clic sur la petite flèche de la combobox je puisse me retrouver sur la dernière valeur et non sur le début de l'année.
Car sinon je dois tous faire défilée et cela est fastidieux.

Merci d'avance pour vos réponse.
Bonne Journée.

 

[_Thierry]

Bonjour @xvella , le Forum

orsque je clic sur la petite flèche de la combobox je puisse me retrouver sur la dernière valeur et non sur le début de l'année

Tu entends quoi par là ?

• Avoir les items dans la ComboBox dans l'ordre inverse de saisie de la Feuille ?
• Avoir les dates dans l'ordre descendant ?

C'est assez différent ...

Bon week-end
@+Thierry

 

[patricktoulon]

bonjour @_Thierry ,@xvella
tout simplement regarder la propriété 'topindex" de la combo

 

[xvella]

Déjà bonjour à tous les deux,
Pour répondre à _Thierry ce que je souhaite faire c'est que lorsque on ouvre la Combobox.
Se serait que celle-ci s'ajuste sur la dernière valeur et non quel me présente dans mon cas le 01/01/2020 à chaque fois.
Sinon pour le topindex c comme le listindex il prennent les valeurs 0 ou -1 mais refuse de s'ajuster.
Je posterais plus tard un fichier exemple si besoin.

Merci à tous les deux.
Bonne fin de journée.

 

[patricktoulon]

re
non!! topindex va de 0 à (nombre d'item-1)

 

[xvella]

Et voilà un petit fichier.
Merci et Bonne Nuit

 

[patricktoulon]

en effet encore une enigme
deja tu force value au 13/02/2020 et cette date est présente donc cette ligne devrait être sélectionnée et c'est pas le cas
encore un truc due au dates peut etre je sais pas

 

[patricktoulon]

re
essaie ca

Private Sub UserForm_Initialize()
Dim x&
cboDay.List() = Sheets("Datum").Range("B5:B89").Value
cboDay.Value = Sheets("Datum").Range("E2").Value
x = Sheets("Datum").Range("E2").Value - DateValue(cboDay.List(0, 0)) - 1
cboDay.ListIndex = x
End Sub

 

[patricktoulon]

re
et celle ci te selectionne le dernier de la liste

Private Sub UserForm_Initialize()
Dim x&
With cboDay
.List() = Sheets("Datum").Range("B5:B89").Value
.ListIndex = .ListCount - 1
End With
End Sub

 

[ChTi160]

Bonjour
Bonjour Patrick ,le Forum
une méthode qui semble correspondre à la demande(ai je bien Compris ? Lol)

Option Explicit
Dim Lgn As Integer
Dim Indx As Integer
Dim T
Dim DteRef As Date
Private Sub UserForm_Initialize()
Indx=0
With Sheets("Datum")
DteRef = CDate(.Cells(2, 5).Value)
With .Range("B5:B89")
        .Sort key1:=Cells(5, 2), order1:=xlAscending, Header:=xlYes
T = .Value
End With
End With
With Me.cboDay
    For Lgn = 1 To UBound(T, 1)
       .AddItem T(Lgn, 1)
       If T(Lgn, 1) = DteRef Then Indx = Lgn - 1 'On détermine le ListIndex de la date 
    Next Lgn
       .ListIndex = Indx
End With
End Sub

Bonne journée
jean marie

 

[xvella]

Bonjour Jean Marie et Patrick
Bonjour Forum

Vos Deux Solution Marche très bien. (Solution 1 pour Patrick).

Merci encore pour votre aide et passer une excellente journée.

 

[ChTi160]

Re
je pense que dans la première solution de Patrick ,il faut enlever le -1

x = Sheets("Datum").Range("E2").Value - DateValue(cboDay.List(0, 0))

jean marie

 

[xvella]

Re
Oui cela permet d'être conforme à la sélection.

Encore Merci

 

[patricktoulon]

re
Bonjour a tous
ok c'est bon mais il faudra m'expliquer pourquoi le select ne se fait pas tout seul quand on met une date dans le .value c'est un problème qu'il faudra résoudre
normalement il n'y a rien a faire