XL 2016 VBA Curiosité ComboBox

[Dudu2]

Bonjour,

Lorsqu'une ComboBox:
- (1) est chargée via la propriété ComboBox.List
et
- (2) parmi les valeurs chargées certaines sont numériques,
la valorisation ultérieure de la ComboBox.Value = x avec une valeur numérique de sa propre liste ne positionne pas le ComboBox.ListIndex sur la valeur en question et est valorisé à -1.

Ce n'est pas le cas si les conditions (1) et (2) ne sont pas réunies où le ComboBox.ListIndex prend alors une valeur correcte correspondant à la position de la valeur dans la liste.

J'ai tout essayé mais la seule option a été de passer par une fonction qui charge les valeurs de ComboBox.List en Tableau et les compare à la valeur à charger pour corriger le ComboBox.ListIndex.
Mais peut-être y a -t-il un moyen plus direct ? (Un petit sujet de réflexion sans caractère essentiel)

Edit: fichier corrigé à 18h33

 

[Staple1600]

Bonjour le fil

=>Dudu2
Et avec cette modif?
TabVal = ActiveSheet.Range("B1:B3").Value2
C'est pas du String direct avec Value2?

 

[Dudu2]

Bonjour @Staple1600,
J'ai pas l'impression que ça le fait. En tous cas dans mon code ça ne change rien.

Range.Value2, propriété (Excel)

Rubrique de référence sur Office VBA

docs.microsoft.com

 

[Staple1600]

Re

=>Dudu2
C'est le week-end
Donc je farniente, mais j'aurais du vérifié avant d"écrire le message#16
Désolé pour le dérangement

 

[Dudu2]

Pas de souci, le confinement donne le temps d'essayer

 

[patricktoulon]

re
value2 renvoie la valeur non formatée string ou numerique
et le long d'une date

 

[Dudu2]

Une précision sur l'utilité de charger en Texte: l'autocomplétion à la saisie ne fonctionne pas si ce sont des valeurs numériques. D'où la nécessiter de charger en Texte. A ce propos, j'ai modifié le code du Post #13 car la propriété ComboBox.ListFillRange n'existe pas pour une ComboBox appartenant à un UserForm.

 

[patricktoulon]

bonjour @Dudu2
listfillrange=rowsource pour celles qui sont dans les UserForms et les deux propriété impliquent exactement les mêmes contraintes

 

[Dudu2]

Ok, donc en valorisation par le .List il est bon de RAZ le .ListFillRange et .RowSource sous On Error pour être tranquille.

 

[patricktoulon]

oui
perso ces deux propriétés je ne les utilises jamais la notion dynamique est nulle forcement
pour une seule colonne il serait intéressant de tester une bricolouphoque à la patrick (une idée qui me vient comme ça en catimini
.list=split(join(application.index([A1:A10].value,0,1),"|"),"|")
LOL

 

[patricktoulon]

bingo!!!!
on charge la liste par le .value razé a une dimension ,join et split
c'est loufoque mais ça marche

Private Sub UserForm_Activate()
    Set plage = [A1:C10]
    With ComboBox1
        'si la plage est multicolonne on récupère la 1 dans la combobox1
        '.List = Split(Join(Application.Transpose(Application.Index(plage.Value, 0, 1)), "|"), "|")
     
        'mais si la plage fait qu'une colonne alors c'est plus simple
        .List = Split(Join(Application.Transpose([A1:A10].Value), "|"), "|")
        .Value = 84
        MsgBox .ListIndex
    End With
End Sub

voila
complètement barré le toulonnais
a noter que la version application.index fonctionne aussi avec un range d'une seule colonne

 

[patricktoulon]

tien regarde comme c'est tordu ce truc
rien que le fait de variabiliser le split du join vba reconverti en numerique

Private Sub UserForm_Activate()
    tablo = [A1:C10].Value
    With ComboBox1
        .List = itemNumToTextlist(tablo)
        .Value = 84
        MsgBox .ListIndex
    End With
End Sub
Function itemNumToTextlist(tablo)
    itemNumToTextlist = Split(Join(Application.Transpose(Application.Index(tablo, 0, 1)), "|"), "|")
End Function

c'est tordu quand même hein
je précise que j'ai testé avec une 2d variable "tablo2" dans la fonction et nada y a reconversion

Function itemNumToTextlist(tablo)
    Dim tablo2
    tablo2 = Split(Join(Application.Transpose(Application.Index(tablo, 0, 1)), "|"), "|")
    itemNumToTextlist = tablo2
End Function

 

[Dudu2]

Ça c'est du concentré

 

[patricktoulon]

oui dommage que l'on puisse pas variabiliser sinon ça serait une fonction bien sympa
obligé de mettre le split directement dans le .list