Ouvrir une multiselection avec surbrillance des choix deja effectués

Papou-net

XLDnaute Barbatruc

• 1 Novembre 2012

• #2

Re : Ouvrir une multiselection avec surbrillance des choix deja effectués

Bonsoir Jean-Luc,

Complète ta macro comme suit :

Code:

Private Sub UserForm_Initialize()
  '
  ListBox1.List() = Range("Marques").Value
  
  Me.TextBox1 = Sheets("Choix").Cells(1, 1).Value
  '
  With ListBox1
    For i = 0 To .ListCount - 1
      If InStr(Sheets("Choix").Range("A1").Value, .List(i)) > 0 Then
        .Selected(i) = True
        Else
        .Selected(i) = False
      End If
    Next
  End With
End Sub

Bonne soirée.

Cordialement.

 

Vote positif 0 Vote négatif

J

jlp035

XLDnaute Occasionnel

• 1 Novembre 2012

• #3

Re : Ouvrir une multiselection avec surbrillance des choix deja effectués

Merci Papou-net,
La fonction correspond à ma demande.
Tu est vraiment trop fort.
Encore Merci Jean-luc.

 

Vote positif 0 Vote négatif

J

jlp035

XLDnaute Occasionnel

• 3 Novembre 2012

• #4

Bonjour,
Est 'il possible de le programme pour que la listbox ne prenne pas en compte les doublons.

Merci par avance

Jean-Luc

 

Vote positif 0 Vote négatif

J

jlp035

XLDnaute Occasionnel

• 3 Novembre 2012

• #5

Re : Ouvrir une multiselection avec surbrillance des choix deja effectués

Excuse moi j'avais oublier le fichier.

Jean-Luc

 

Pièces jointes

• 2012_11_01 Liste deroulante à cocher(dev4).xls

  213.5 KB · Affichages: 45

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 3 Novembre 2012

• #6

Re : Ouvrir une multiselection avec surbrillance des choix deja effectués

Bonjour Jean-Luc,

Voici ton fichier en retour.

J'ai ajouté quelques lignes de code pour éliminer les doublons dans la procédure Initialisation de ton formulaire.

NB : je n'utilise plus la zone de cellule nommée car la macro récupère automatiquement toutes les cellules non vides en colonne A.

Cordialement.

 

Pièces jointes

• Copie de 2012_11_01 Liste deroulante à cocher(dev4).xls

  193.5 KB · Affichages: 46

Vote positif 0 Vote négatif

J

jlp035

XLDnaute Occasionnel

• 3 Novembre 2012

• #7

Re : Ouvrir une multiselection avec surbrillance des choix deja effectués

Merci encore Papou-net,
J'ai encore une autre question.
Quand plusieurs noms de marques sont dans la même cellule, est'il possible de les additionner dans la listbox2 , exemple :

_ Buderus ; Bosch ( dans la même cellule )

- Buderus ; ( dans la listbox2)
- Bosch

Merci encore

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 4 Novembre 2012

• #8

Re : Ouvrir une multiselection avec surbrillance des choix deja effectués

Bonjour Jean-Luc,

Voici ton fichier corrigé.

NB : j'ai modifié légèrement la feuille Menus en y ajoutant des valeurs en A3 et A11 pour les essais.

Bon dimanche.

Cordialement.

 

Pièces jointes

• Copie 01 de 2012_11_01 Liste deroulante à cocher(dev4).xls

  199.5 KB · Affichages: 79

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 4 Novembre 2012

• #9

Re : Ouvrir une multiselection avec surbrillance des choix deja effectués

RE :

Autre version avec code simplifié.

Cordialement.

 

Pièces jointes

• Copie 02 de 2012_11_01 Liste deroulante à cocher(dev4).xls

  193.5 KB · Affichages: 59

Dernière édition: 4 Novembre 2012

Vote positif 0 Vote négatif

J

jlp035

XLDnaute Occasionnel

• 5 Novembre 2012

• #10

Bonsoir Papou-Net,
Je m'excuse encore de te déranger mais maintenant que je intégré ton morceau de programme j'ai un conflit avec Listbox2.clear.
Peut tu regarder mon morceau de programme je pense que le conflit vient peut etre du listbox2.

Merci

Jean-Luc

 

Pièces jointes

• 2012_11_05 Listbox et case à cocher(dev1).Xls

  379 KB · Affichages: 66

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 5 Novembre 2012

• #11

Re : Ouvrir une multiselection avec surbrillance des choix deja effectués

Bonsoir Jean-Luc,

Sans explication plus détaillée de ta part, notamment lors de quelle étape se produit l'erreur, une simple recherche dans les contrôles de ton formulaire laisse apparaître que ListBox2 n'existe pas. Il semblerait qu'en le remplaçant par ListBox1, qui
lui existe, le plantage disparaît.

A vérifier chez toi.

Cordialement.

 

Vote positif 0 Vote négatif