Copier valeur listbox dans cellule

[gigi71850]

bonjour,
j'ai une liste texte & numérique dans une textbox et je voudrais que lorsque l'on clique sur un des items de la liste celui-ci s'insére dans la cellule activecell
sauf pour les 2 premiers je voudrais pouvoir insérer un symbole a la place * ou x peu importe
je vous joint un bout de fichier pour mieux compendre

Merci

 

[gilbert_RGI]

Re : Copier valeur listbox dans cellule

Bonjour

comme ceci peut-être ???

Function ConcaTList() As String
Dim Txt As String
    For i = 0 To ListBox1.ListCount
     If ListBox1.Selected(0) = True Then
            Txt = "****"
            GoTo suite
            End If
         If ListBox1.Selected(1) = True Then
            Txt = "xxxxx"
            GoTo suite
        End If
        If ListBox1.Selected(i) = True Then
            Txt = Txt & ListBox1.List(i)
        End If
    Next i
suite:
    ConcaTList = Txt
    
End Function

🙄

 

[gigi71850]

Re : Copier valeur listbox dans cellule

Merci impecable !🙂
mais j'ai oublier de dire qu'il falait aussi que la valeur des 2 premier item s'affiches 5 cellule a droite

merci

 

[gilbert_RGI]

Re : Copier valeur listbox dans cellule

Merci impecable !🙂
mais j'ai oublier de dire qu'il falait aussi que la valeur des 2 premier item s'affiches 5 cellule a droite

merci

Private Sub CommandButton1_Click()        'bouton valider

    Sheets("FEUIL1").Select
    If ConcaTList() = "****" Or ConcaTList() = "xxxxx" Then
        ActiveCell.Offset(, 5) = ConcaTList()
    Else
        ActiveCell = ConcaTList()
    End If
End Sub

pas de problème