Listbox et cellule de destination

S

St@tman

Guest
Bonjour le forum

En cherchant sur le net, j'ai trouvé un USF qui correspondait à eu prés à ce que je cherchais:
Un USF avec une listbox. Quand on selectionne l'une des données, c'est son équivalent qui s'affiche dans la cellule de destination (les données proviennent de deux colonnes de la feuille 2).
Comment faire pour modifier le cellule de destination (j'ai pas trop compris le code à ce sujet)
De plus, est-il possible de remplacer la listbox par une combobox et obtenir le même résultat
?

Merci d'avance
@+
 

Pièces jointes

  • SelectionMultiple.zip
    14.3 KB · Affichages: 29
S

Schmail

Guest
Bonsoir St@man et le forum

Private Sub CmdOK_Click()
j = 1
With ListeClients
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
Cells(j, 5) = .List(i, 1)'ici se trouve la cellule de destination Cells(j,5)
j représente la ligne et 5 la colonne.
.Selected(i) = False
j = j + 1
End If
Next
End With
DlgChoixMutliple.Hide
End Sub

Pour une combo multiselect c'est certainement possible d'adapter ce code mais je n'est pas testé

bonne soirée et @+
 

Discussions similaires

Réponses
25
Affichages
651

Statistiques des forums

Discussions
312 177
Messages
2 085 974
Membres
103 076
dernier inscrit
LoneWolf90