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

thespeedy20 · 9 Avril 2022

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 · 9 Avril 2022

VB:

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...

Dudu2 · 9 Avril 2022

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

VB:

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 · 9 Avril 2022

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 · 9 Avril 2022

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

thespeedy20 · 9 Avril 2022

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

Dudu2 · 9 Avril 2022

VB:

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 · 9 Avril 2022

re,

Fonctionne nickel, merci Dudu2,

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

thespeedy20

XLDnaute Occasionnel

Pièces jointes

Dudu2

Dudu2

XLDnaute Barbatruc

thespeedy20

XLDnaute Occasionnel

Dudu2

XLDnaute Barbatruc

thespeedy20

XLDnaute Occasionnel

Dudu2

XLDnaute Barbatruc

thespeedy20

XLDnaute Occasionnel

Discussions similaires