XL 2013 Case à cocher listbox pour plage nommée

chindou

XLDnaute Occasionnel
Bonsoir, Le forum

J’utilise une macro qui marche très bien pour faire appel à une plage nommée

A l’aide choix combobox sur userform selon nom plage définis dans le gestionnaire de noms

Ce que je cherche c’est le même objectif de ma macro mais remplacer le combobox par une listebox avec des cases à coché suivi des noms des plages et quand :

On coche case = plage correspondante sélectionnée

On décoche = plage désélectionnée

(La sélection sert à effacer le contenu de la plage)

Sur mon fichier j’ai le code du combobox et j’ai essayé d’écrire un code pour listbox mais je coince

J'espère avoir été clair. Je vous joins le fichier test (simplifié pour cette discussion)

Merci d’avance

Cordialement
 

Pièces jointes

  • Efface_contenu_ plage.xlsm
    36.9 KB · Affichages: 12
Solution
bonjour
ajoute ceci, et remplace ton clearcontents par "efface"
Sub efface()
For n = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(n) = True Then

ActiveSheet.Range(ListBox1.List(n)).ClearContents
End If
Next
End Sub

Eric C

XLDnaute Barbatruc
Bonsoir le forum
Bonsoir chindou, bonsoir sousou

A la lecture de la question de notre ami chindou, il précise :
On coche case = plage correspondante sélectionnée
On décoche = plage désélectionnée
J'ai donc repris vos codes pour en faire une synthèse.
Bonne nuit à toutes & à tous
@+ Eric c
 

Pièces jointes

  • Efface_contenu_ plage_chindou.xlsm
    36.3 KB · Affichages: 14

Eric C

XLDnaute Barbatruc
Bonjour le fil,

Euh.... ce n'est pas mon idée, il s'agissait de ta demande initiale (post #1). Par ailleurs, dans le fichier mis en ligne, j'ai ajouté des checkOptions dans le ComboBox mais la sélection est éphémère et "s'efface" dès le click sur un item.
Bonne continuation
@+ Eric c
 

Discussions similaires

Réponses
5
Affichages
733

Statistiques des forums

Discussions
315 094
Messages
2 116 155
Membres
112 671
dernier inscrit
Sylvain14