XL 2013 Case à cocher listbox pour plage nommée

[chindou]

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

 

[sousou]

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

 

[chindou]

Bonjour ,sousou
Merci bien

 

[chindou]

bonsoir sousou bonsoir le forum
ca marche bien, merci

 

[Eric C]

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

 

[chindou]

bonjour Eric C, bonjour le forum
Très bonne idée
merci pour cette modification. je vais avancer avec ta solution sur le fichier.

 

[Eric C]

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

 

[chindou]

rebonjour eric c
les CheckOptions sont quand même une bonne idée
Merci bien

 

[Eric C]