Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18 Dim ligne As Integer Dim valeur As Variant Dim colonne As Integer ' Colonne de la zone de liste dans laquelle se situe l'information colonne = 0 ' Parcours de la zone de liste For ligne = 0 To Me.MaZoneDeListe.ListCount - 1 If Me.MaZoneDeListe.Selected(ligne) Then ' Si la ligne est sélectionnée, on stocke sa valeur dans la variable "valeur" valeur = Me.MaZoneDeListe.Column(colonne, ligne) ' Mettre valeur = CInt(Me.MaZoneDeListe.Column(colonne, ligne)) si la valeur est numérique End If Next ligne ' On affiche le contenu de la ligne sélectionnée MsgBox valeur
Partager