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
- Excel liste déroulante en cascade - Guide
- Aller à la ligne excel - Guide
- Formule excel - Guide
- Si et excel - Guide
3 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 743
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
4 janvier 2024
2 743
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