Afficher donnée par défaut dans combobox

bonjour le forum,

bonjour à tous,

j'ai concocté ce code en m'aidant des posts du site mais là je bloque lorsque je veux afficher la semaine par défaut dans mon combobox au lancement de l'userform.

en fait je crée une zone d'impression en fonction de la semaine que je veux imprimer et tout fonctionne bien.

comme j'apprends en même temps (petit à petit) je souhaitais afficher par défaut, le numéro de semaine en cours dans la combo

code pour trouver numéro semaine =

v = DatePart("ww", Date, 2, 2)

comment l'intégrer dans ce code à cette fin?

Dim i As Byte

For i = 1 To 52

ComboBox1.AddItem i

Next i

merci d'avance.

Pedro.

11classeur11.xlsm (668.20 Ko)

Bonjour Pedro (encore un ! ), bonjour le forum,

Je mettrais le code plutôt à l'Initialisation de l'UserForm :

Private Sub UserForm_Initialize()
Dim i As Byte
v = DatePart("ww", Date, 2, 2)
With Me.ComboBox1
    For i = 1 To 52
        .AddItem i 'liste 1 à 52 semaines
    Next i
    .Value = v 'par défaut
    .SelStart = 0
    .SelLength = Len(.Value)
End With
End Sub

c'est parfait, merci monsieur.

Pedro

une question, que signifie "Len" ici .SelLength = Len(.Value) ?

Re,

Pour sélectionner du texte dans un contrôle, il faut spécifier le début de la sélection et la longueur de cette sélection.

Len(me.ComboBox1.Value) renvoie le nombre de caractères contenu dans la ComboBox1, ce qui équivaut à la longueur...

Quand tu as un doute sur un mot clé du langage VBA, tu le sélectionnes et tu appuies sur la touche F1 pour obtenir de l'aide.

Encore merci à vous.

salutations.

Pedro

Rechercher des sujets similaires à "afficher donnee defaut combobox"