Valeur par défaut d'une Listbox

[JCA06]

Bonjour à tous,

Comment faire pour définir une valeur par défaut d'une Listbox ?

Voici l'extrait de mon code que j'aimerais compléter :

With Me.ListBox1
.ColumnCount = 2
.ColumnWidths = "55 ;10"
.RowSource = "Tables!" & Plage
.Value = ????
End With

Les données sont des dates et des numéros de barème (01/07/2004 ; 28).

Le but est qu'une des lignes soit sélectionnée par défaut, en l'occurence la 1ère qui indique le barème le plus récent.

J'ai essayé avec .column(0 , 1) ; avec TopIndex(0), j'ai prié, j'ai sacrifié un poulet, mais rien à faire.

J'ai tout de même trouvé la solution suivante :
.Value = Sheets("Barème").Range("B4").Value
qui est la cellule vers laquelle je renvoie le résultat, mais j'aurais préféré que la valeur par défaut soit la plus récente et pas forcément la dernière utilisée.

Merci de me donner le truc, s'il en existe un !!

A plus

 

[@Christophe@]

Bonjour,

Utilise tous simplement le code suivant:

ListBox1.ListIndex = 0

Première item d'une listbox a le listindex 0; .... Modifie le numéro selon ta valeur par défaut

Bonne journée

@Christophe@

 

[@+Thierry]

Bonjour mon copain @Xtof@, Bonjour à toi JCA !, Bonjour au Forum !

Hihihi "j'ai sacrifié un poulet" lol !!!!!

Oui @Xtof@ t'a bien informé, le premier item d'un ListBox démarrre toujours avec l'index 0 (comme les Array Dynamics, si on ne change pas l'Option Base)

Et en complément d'info, un test simple pour être sûr que le User à bien cliqué et fait une sélection dans une ListBox il suffit de faire ceci :

If ListBox1.ListIndex = -1 Then MsgBox "Et zalors on n'a pas Cliqué, chez ces gens là on ne pense pas, Monsieur, on click !!!"

Lol !
Bon Aprèm
@+Thierry

 

[@Christophe@]

Re bonjour,

Un grand bonjour à mon ami professeur @+Thierry.

Merci pour ce complément d'info

Bonne journée au forum

@Christophe@

 

[JCA06]

Bonjour Thierry, bonjour @Christophe@, bonjour le Forum,

Merci pour votre aide !

Mais je reste sidéré par l'absence d'utilité de l'aide du programme !

Thierry, ton code de test m'intéressait, mais j'avais du mal à l'utiliser car mes ListBox étaient gérées par un "change".

Mais bon, gràce au forum, je fais tout de même quelques progrés :
J'ai ajouté un bouton de validation et j'ai placé ton test avant d'alimenter mes cellules excel et de décharger l'USF.

T'as vu le vocabulaire ! J'ai l'impression que la cérémonie galinacéenne a porté ses fruits !

Bon, maintenant, ce qu'il me faudrait, ce sont des sites de recettes de cuisine spécialisés en recyclage post-vaudou !

A plus