problème de macro pour une liste déroulante à choix multiple

Bonjour,

Je suis novice en VBA et j'ai un souci avec une macro qui ne fonctionne pas. Je suis sur Excel 2007 avec Windows 7 pro. Fichier en réseau.


J'ai un long tableau dans lequel j'ai besoin de créer un liste déroulante à choix multiple. Cette liste, je l'ai faite sur un 2° onglet.
Mon souci est que ma macro ne fonctionne pas = quand je double clique sur une cellule où devrait s'ouvrir ma liste à choix multiple, ça ne marche pas.
Est-il possible que ce soit un problème de sécurité ?


Voici les codes que j'ai sur la feuille de mon tableau principal (là où je veux que s'ouvre ma liste de choix multiple) :

-------------------------------------

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("O2:O" & Rows.Count)) Is Nothing Then Exit Sub Else ' Load UserForm1 U_Liste.Show 1 End If End Sub

---

-------------------------------------


Sur l'autre
-------------------------------------

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47

'Option Explicit Dim L1 As Long Dim C2 As Long   Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)   End Sub   'ListBox MultiSelect Private Sub UserForm_Initialize() Dim I As Long With ListBox1 .Clear .BackColor = Feuil2.Range("A1").Interior.Color .Font.Name = "Arial Narrow" .Font.Size = 12 .Font.Bold = True .MultiSelect = 1 For L = 2 To Feuil2.Range("A" & Rows.Count).End(xlUp).Row .AddItem Feuil2.Range("A" & L).Value Next End With ' Numero de la Ligne L1 = Selection.Row ' Nombre de Lignes L2 = Selection.Rows.Count ' Nombre de colonnes C1 = Selection.Columns.Count ' Depart de la colonne C2 = Selection.Column End Sub   Private Sub CommandButton1_Click() Dim I As Long Dim ValeurARetourner As String ' Cells(L1, C2).Value = ListBox1.List(ListBox1.ListIndex)   For I = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(I) = True Then ValeurARetourner = ValeurARetourner & ListBox1.List(I) & " & " End If Next I Feuil1.Cells(L1, C2).Value = Left(ValeurARetourner, Len(ValeurARetourner) - 3) 'UserForm1.Hide Unload Me End Sub

---

-------------------------------------

Auriez-vous une idée ?

Merci d'avance.

Bonjour,

Pourquoi ne fais tu pas une "validation de données" au lieu de faire appel à un userform?

As tu activé tes macros?

Sinon as tu bien nommé ton userform : U_Liste ?

1/ Je suis actuellement sur une validation de données, mais du coup, je n'ai pas la possibilité de choisir plusieurs choix dans ce cas là. Ou alors je ne l'ai pas faite correctement. Si c'est possible, je veux bien savoir comment ?

2/ Oui, dans la partie "sécurité des macros" du développeur, j'ai coché la case "accès approuvé au modèle d'objet du projet VBA" des paramètres de macros pour les développeurs. Ce n'est peut-être pas suffisant ? Faut-il aussi "Activer toutes les macros (non recommandé ; risque ... dangereux) ?

3/ Oui.

Merci de votre aide.

Bonsoir,

2 exemples en PJ

Avec Données/Validation

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$2" And Target.Count = 1 Then Application.EnableEvents = False ValSaisie = Target Application.Undo p = InStr(Target, ValSaisie) If p > 0 Then Target = Left(Target, p - 1) & Mid(Target, p + Len(ValSaisie) + 1) If Right(Target, 1) = ":" Then Target = Left(Target, Len(Target) - 1) End If Else If Target = "" Then Target = ValSaisie Else Target = Target & ":" & ValSaisie End If End If Application.EnableEvents = True End If End Sub

---

Avec ListBox

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect([A2:A10], Target) Is Nothing Then Me.ListBox1.MultiSelect = fmMultiSelectMulti Me.ListBox1.List = Sheets("BD").Range("A2:A28").Value a = Split(Target, " ") If UBound(a) >= 0 Then For i = 0 To Me.ListBox1.ListCount - 1 If Not IsError(Application.Match(Me.ListBox1.List(i), a, 0)) Then Me.ListBox1.Selected(i) = True Next i End If Me.ListBox1.Height = 150 Me.ListBox1.Width = 100 Me.ListBox1.Top = Target.Top Me.ListBox1.Left = Target.Left + Target.Width Me.ListBox1.Visible = True Else Me.ListBox1.Visible = False End If End Sub   Private Sub ListBox1_Change() For i = 0 To Me.ListBox1.ListCount - 1 If Me.ListBox1.Selected(i) = True Then temp = temp & Me.ListBox1.List(i) & " " Next i ActiveCell = Trim(temp) End Sub

---

Jacques Boisgontier

Bonjour,

Désolée de n'avoir pas répondu + tôt, mais boulot-boulot...
En fait, ça marchait bien, j'était en mode création :oops: !!
Mais grâce à vos réponses, je découvre qu'on peut faire du "choix multiple" avec la "validation des données". Je ne vais pas l'utiliser sur mon tableau actuel, mais c'est intéressant de le savoir. Je testerai ultérieurement...

Par contre, pour le moment, j'ai un autre problème : c'est pour l'impression de mon tableau. J'ai fait une macro qui marche très bien avec un aperçu avant impression, mon souci c'est que j'ai systématiquement 4 lignes blanches après mes données.
J'ai fait en sorte que ne s'imprime que certaines colonnes après avoir utilisé un filtre et caché les dernières colonnes qui ne m'intéressent pas pour l'impression.
Pour info, suivant le filtre utilisé, je n'aurai pas le même nombre de lignes, mais j'ai quand même les 4 lignes blanches en dessous !! Comment faire pour ne pas les avoir ???

Voici ma macro :

Code:

---

1 2 3 4 5 6 7 8

Sub ImprimeMasque() With Range("A:A,B:B,C:C,D:D,F:F,G:G,I:I,K:K").Select ' mettre les lettres des colonnes à cacher Selection.EntireColumn.Hidden = True Application.Dialogs(xlDialogPrintPreview).Show   Selection.EntireColumn.Hidden = False End With End Sub

---

Merci