XL 2016 VBA Curiosité ComboBox

Staple1600

XLDnaute Barbatruc

• 12 Décembre 2020

• #16

Bonjour le fil

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 12 Décembre 2020

• #17

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 12 Décembre 2020

• #18

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

 

Dernière édition: 12 Décembre 2020

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 12 Décembre 2020

• #19

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 12 Décembre 2020

• #20

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 14 Décembre 2020

• #21

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.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 14 Décembre 2020

• #22

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 14 Décembre 2020

• #23

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 14 Décembre 2020

• #24

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 😉

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 14 Décembre 2020

• #25

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

VB:

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 14 Décembre 2020

• #26

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

VB:

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

VB:

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 14 Décembre 2020

• #27

Ça c'est du concentré 😎

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 14 Décembre 2020

• #28

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

 

Vote positif 0 Vote négatif