Liste déroulante à selection multiple !
Résolu/Fermé
florange
-
24 juil. 2012 à 10:32
florange Messages postés 16 Date d'inscription lundi 23 juillet 2012 Statut Membre Dernière intervention 14 juillet 2013 - 24 juil. 2012 à 15:01
florange Messages postés 16 Date d'inscription lundi 23 juillet 2012 Statut Membre Dernière intervention 14 juillet 2013 - 24 juil. 2012 à 15:01
A voir également:
- Liste déroulante à sélection multiple excel
- Liste déroulante excel - Guide
- Formule excel - Guide
- Supprimer liste déroulante excel ✓ - Forum Excel
- Aller à la ligne excel - Guide
- Déplacer une colonne excel - Guide
3 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
24 juil. 2012 à 10:45
24 juil. 2012 à 10:45
Salut,
Je t'ai retrouvé...
1- es tu sur(e) qu'il s'agisse d'une Combobox? Ce serait pas plutôt une ListBox?
2- Si tel est le cas, la syntaxe est :
Je t'ai retrouvé...
1- es tu sur(e) qu'il s'agisse d'une Combobox? Ce serait pas plutôt une ListBox?
2- Si tel est le cas, la syntaxe est :
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
ValeurARetourner = ValeurARetourner & ListBox1.List(i) & " & " End If
Next i
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
24 juil. 2012 à 13:29
24 juil. 2012 à 13:29
Pour les deux options listbox ou combobox, voici :
Le Fichier Exemple avec les 2 cas
Les deux codes :
AVEC LISTBOX ET UN BOUTON :
AVEC COMBOBOX ET DEUX BOUTONS :
Le Fichier Exemple avec les 2 cas
Les deux codes :
AVEC LISTBOX ET UN BOUTON :
Option Explicit
Private Sub CommandButton1_Click()
Dim i As Byte
Dim ValeurARetourner As String
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
ValeurARetourner = ValeurARetourner & ListBox1.List(i) & " & "
End If
Next i
If ValeurARetourner = "" Then
MsgBox "Sélection obligatoire ou fermez avec la croix"
Exit Sub
End If
ActiveCell = Left(ValeurARetourner, Len(ValeurARetourner) - 3)
ActiveCell.Offset(1, 0).Activate
UserForm1.Hide
Unload UserForm1
End Sub
Private Sub UserForm_Initialize()
Dim i As Integer, Derlig As Integer
ListBox1.Clear
ListBox1.MultiSelect = fmMultiSelectMulti
With Sheets("EVENT")
Derlig = .Range("B" & Rows.Count).End(xlUp).Row
For i = 1 To Derlig
ListBox1.AddItem .Cells(i, 2).Value
Next i
End With
End Sub
AVEC COMBOBOX ET DEUX BOUTONS :
Option Explicit
Dim ValeurARetourner As String
Private Sub CommandButton1_Click()
If ComboBox1 <> "" Then
ValeurARetourner = ValeurARetourner & ComboBox1 & " & "
Else
MsgBox "Sélection obligatoire ou fermez avec la croix"
Exit Sub
End If
End Sub
Private Sub CommandButton2_Click()
ActiveCell = Left(ValeurARetourner, Len(ValeurARetourner) - 3)
ActiveCell.Offset(1, 0).Activate
UserForm2.Hide
Unload UserForm2
End Sub
Private Sub UserForm_Initialize()
Dim i As Integer, Derlig As Integer
ComboBox1.Clear
With Sheets("EVENT")
Derlig = .Range("B" & Rows.Count).End(xlUp).Row
For i = 1 To Derlig
ComboBox1.AddItem .Cells(i, 2).Value
Next i
End With
End Sub
florange
Messages postés
16
Date d'inscription
lundi 23 juillet 2012
Statut
Membre
Dernière intervention
14 juillet 2013
24 juil. 2012 à 15:01
24 juil. 2012 à 15:01
Merci ça fonctionne ....
Les 2 codes fonctionnent très bien!
maintenant à moi de le réadapter dans le vrai fichier où en fait la liste des départements se trouve dans une autre feuille que celle où l'on effectue la saisie.
A priori il doit pas y avoir de problèmes mais qui sait...
il se peut que je revienne encore vers toi ;)
Merci encore
Les 2 codes fonctionnent très bien!
maintenant à moi de le réadapter dans le vrai fichier où en fait la liste des départements se trouve dans une autre feuille que celle où l'on effectue la saisie.
A priori il doit pas y avoir de problèmes mais qui sait...
il se peut que je revienne encore vers toi ;)
Merci encore
24 juil. 2012 à 10:54
24 juil. 2012 à 11:01
Peut-être que c'est ça l'erreur non ?!
Merci
24 juil. 2012 à 11:06
Peux tu nous passer une copie de ton fichier que je regarde ton UserForm?
24 juil. 2012 à 11:14
Merci
24 juil. 2012 à 11:19
pour joindre un fichier :
mettre le classeur sans données confidentielles en pièce jointe sur
https://www.cjoint.com/
puis copier l'adresse du lien et la coller dans le message de réponse *
*copyright Michel_m