MultiSelect, propriété
Indique si l'objet permet plusieurs sélections.
Syntaxe
object.MultiSelect [= fmMultiSelect]
La syntaxe de la propriété MultiSelect comprend les éléments suivants :
Élément Description
object Objet valide.
fmMultiSelect Facultatif. Mode de sélection que le contrôle utilise.
Valeurs
Les valeurs de fmMultiSelect sont les suivantes :
Constante Valeur Description
fmMultiSelectSingle 0 Un seul élément peut être sélectionné (par défaut).
fmMultiSelectMulti 1 Une pression sur ESPACE ou un clic sélection ou libère un élément de la liste.
fmMultiSelectExtended 2 Une pression sur MAJ et un clic sur la souris, ou une pression sur MAJ et sur l'une des touches de direction étend la sélection depuis l'élément précédemment sélectionné jusqu'à l'élément courant. Une pression sur CTRL et un clic sur la souris sélectionne ou libère l'élément.
Remarques
Lorsque la propriété MultiSelect est définie pour des valeurs de type Extended ou Simple, vous devez utiliser la propriété Selected de la zone de liste pour déterminer les éléments sélectionnés. La propriété Value du contrôle est toujours Null.
La propriété ListIndex renvoie l'index de la ligne ayant le focus.
Workbooks.Add
ActiveWorkbook.SaveAs CheminFichier
C.EntireRow.Copy Destination:=ActiveSheet.Rows(L)
Private Sub CommandButton2_Click()
Dim C As Range, L As Long
Workbooks.Add
L = 15
For Each C In Feuil1.Range("E16:E" & Feuil1.[E65536].End(xlUp).Row)
If C = Me.ComboBox1 Then L = L + 1: C.EntireRow.Copy Destination:=ActiveSheet.Rows(L)
Next C
End Sub
Private Sub CommandButton2_Click() 'bouton New file
Dim cls As Workbook 'déclare la variable cls (CLasseur Source)
Dim cld As Workbook 'déclare la variable cld (CLasseur Destination)
Dim ca As String 'déclare la variable ca (Chemin d'Accès)
Dim x As Integer 'déclare la variable x (incrément)
Dim y As Byte 'déclare la variable y (incrément)
Dim nc As String 'déclare la variable nc (Nom du Classeur)
If Me.ListBox1.ListCount = 0 Then Exit Sub 'si la ListBox est vide, sort de la procédure
Set cls = ThisWorkbook 'définit le classeur source
ca = ThisWorkbook.Path & "\" 'définit le chemin d'accès
Workbooks.Add 'ajoute un classeur
Set cld = ActiveWorkbook 'définit le classeur destination
With cld.Sheets("Feuil1") 'prend en compte l'onglet "Feuil1" du classeur destination
For x = 0 To Me.ListBox1.ListCount - 1 'boucle 1 : sur les x lignes de la ListBox1
For y = 0 To 7 'boucle 2 sur les 8 colonnes de la Listbox1 (peut-êter la dernière colonne (qui contient le numéro de ligne) n'est pas nécessaire...)
.Cells(x + 1, y + 1).Value = Me.ListBox1.List(x, y) 'récupère les données de ls ListBox1
Next y 'prochaine colonne de la boucle 2
Next x 'prochaine ligne de la boucle 1
End With 'fin de la prise en compte de l'onglet "Feuil1" du classeur destination
'boîte d'entrée pour le nom du fichier
nc = Application.InputBox("Tapez le nom que vous voulez-donner au classeur sans l'extension.", "Nom du Classeur", Type:=2)
If nc = "" Then Exit Sub 'si la boîte d'entrée n'est pas renseignée, sort de la procédure
cld.SaveAs (ca & nc & ".xls")
Unload UserForm7
End Sub