XL 2019 Transfert de deux valeurs cochées dans une listbox multichoix vers un textbox

[thespeedy20]

Bonjour à tous,

J'ai un userform, ou j'ai une listbox multichoix, j'aimerais avoir la valeur cochée (1, 2 ou 3 ) qui soit reprise dans un textbox.

J'y arrive pour une valeur....

de la listbox :Statut vers textbox :n°mat

Mais pour 2 valeurs ou 3 valeurs cochées je ne sais pas

Merci pour votre aide

Oli

 

[Dudu2]

Bonjour,
Comprends pas ce que tu veux.
Ça c'est ton code:

Private Sub Statut_Change()
    If Me.Statut.List(Me.Statut.ListIndex) = "D" Then Me.MatDT.Value = 1
    If Me.Statut.List(Me.Statut.ListIndex) = "D" And Me.Statut.List(Me.Statut.ListIndex) = "T" Then Me.MatDT.Value = "1,3"
    If Me.Statut.List(Me.Statut.ListIndex) = "ST" Then Me.MatDT.Value = 3
End Sub

Que veux-tu afficher précisément en fonction des sélections et combinaisons de "D", "T", "ST" ?
Ton code ne traite qu'un petite sous-partie des possibilités ?

 

[thespeedy20]

Bonjour Dudu2

Merci de t'intéresser à mon problème

voici

Quand D est sélectionné, on affiche 1
Quant T est sélectionné , on Affiche 3
Quant ST est sélectionné, on Affiche 3

Quand D et T sont sélectionner , on affiche 1;3
Quand D et ST Sont sélectionnés, on affiche 1;3
Quant T et ST sont sélectionnés, on affiche 3

OLi

 

[Dudu2]

Et quand les 3 sont sélectionnés ? Ou les 3 sont non sélectionnés ?

 

[thespeedy20]

Quant les 3 sont sélectionnées on affiche 1;3

 

[Dudu2]

Private Sub Statut_Change()
    'Quand rien est sélectionné, on affiche rien
    'Quand D est sélectionné, on affiche 1
    'Quant T est sélectionné , on Affiche 3
    'Quant ST est sélectionné, on Affiche 3
    'Quand D et T sont sélectionner , on affiche 1;3
    'Quand D et ST Sont sélectionnés, on affiche 1;3
    'Quant T et ST sont sélectionnés, on affiche 3
    'Quand D et T et ST, on affiche "1;3"
    
    With Me.Statut
        Select Case True
            Case Not .Selected(0) And Not .Selected(1) And Not .Selected(2)
                Me.MatDT.Value = ""
            Case .Selected(0) And Not .Selected(1) And Not .Selected(2)
                Me.MatDT.Value = "1"
            Case Not .Selected(0) And .Selected(1) And Not .Selected(2)
                Me.MatDT.Value = "3"
            Case Not .Selected(0) And Not .Selected(1) And .Selected(2)
                Me.MatDT.Value = "3"
            Case .Selected(0) And .Selected(1) And Not .Selected(2)
                Me.MatDT.Value = "1;3"
            Case .Selected(0) And Not .Selected(1) And .Selected(2)
                Me.MatDT.Value = "1;3"
            Case Not .Selected(0) And .Selected(1) And .Selected(2)
                Me.MatDT.Value = "3"
            Case .Selected(0) And .Selected(1) And .Selected(2)
                Me.MatDT.Value = "1;3"
        End Select
    End With
End Sub

 

[thespeedy20]

re,

Fonctionne nickel, merci Dudu2,