S
shasha
Guest
Bonsoir à tous,
Je vous souhaite une très bonne année 2005.
Comme c'est la première fois que je demande de l'aide, excusez moi si je ne suis pas assez claire.
J'ai créer un user form avec une liste à 4 colonnes avec option sélection multiple. Je suis bloquée au niveau de la récupération des info.
Je souhaiterai pouvoir ramener dans une même cellule:
1 - toutes les info d'une ligne sélectionnée avec un séparateur: pour l'instant j'y suis arrivée
Private Sub CmdOK_Click()
Dim s
s = CHROMATHEQUE.ListIndex
[C7] = CHROMATHEQUE.List(s, 0) & " / " & _
CHROMATHEQUE.List(s, 1) & " / " & _
CHROMATHEQUE.List(s, 2) & " / " & _
CHROMATHEQUE.List(s, 3)
Unload UserForm1
2- avoir un retour à la ligne dans la même cellule pour les autres lignes sélectionnées: j'y arrive pas il me ramène que la dernière ligne sélectionnée
J'ai essayé avec la synthaxe suivante mais cela ne marche pas
Private Sub CommandButton1_Click()
Dim i As Byte
Dim IndexSelected As String
For i = 0 To Me.CHROMATHEQUE.ListCount - 1
If Me.CHROMATHEQUE.Selected(i) = True Then
IndexSelected = IndexSelected & vbTab & "Index" & i & vbCrLf
End If
Next
MsgBox "Liste des Index Sélectionnés :" & vbCrLf & IndexSelected
Dim s
s = CHROMATHEQUE.ListIndex
[C7] = CHROMATHEQUE.List(s, 0) & " / " & _
CHROMATHEQUE.List(s, 1) & " / " & _
CHROMATHEQUE.List(s, 2) & " / " & _
CHROMATHEQUE.List(s, 3)
Unload UserForm1
Merci d'avance
shasha
Je vous souhaite une très bonne année 2005.
Comme c'est la première fois que je demande de l'aide, excusez moi si je ne suis pas assez claire.
J'ai créer un user form avec une liste à 4 colonnes avec option sélection multiple. Je suis bloquée au niveau de la récupération des info.
Je souhaiterai pouvoir ramener dans une même cellule:
1 - toutes les info d'une ligne sélectionnée avec un séparateur: pour l'instant j'y suis arrivée
Private Sub CmdOK_Click()
Dim s
s = CHROMATHEQUE.ListIndex
[C7] = CHROMATHEQUE.List(s, 0) & " / " & _
CHROMATHEQUE.List(s, 1) & " / " & _
CHROMATHEQUE.List(s, 2) & " / " & _
CHROMATHEQUE.List(s, 3)
Unload UserForm1
2- avoir un retour à la ligne dans la même cellule pour les autres lignes sélectionnées: j'y arrive pas il me ramène que la dernière ligne sélectionnée
J'ai essayé avec la synthaxe suivante mais cela ne marche pas
Private Sub CommandButton1_Click()
Dim i As Byte
Dim IndexSelected As String
For i = 0 To Me.CHROMATHEQUE.ListCount - 1
If Me.CHROMATHEQUE.Selected(i) = True Then
IndexSelected = IndexSelected & vbTab & "Index" & i & vbCrLf
End If
Next
MsgBox "Liste des Index Sélectionnés :" & vbCrLf & IndexSelected
Dim s
s = CHROMATHEQUE.ListIndex
[C7] = CHROMATHEQUE.List(s, 0) & " / " & _
CHROMATHEQUE.List(s, 1) & " / " & _
CHROMATHEQUE.List(s, 2) & " / " & _
CHROMATHEQUE.List(s, 3)
Unload UserForm1
Merci d'avance
shasha