VBA-Supprimer "CheckBox" dans feuille

[IFFIC]

Bonjour à tous

Je crée avec une macro une série de 'CheckBox'
sur une feuille.
Cela fonctionne (Sauf que je n'arrive toujours pas à gérer le 'BackColor')
(Fichier joint)

Mais là où je suis amené à demander de l'aide;
c'est pour les supprimer!!!

J'ai fouiné partout en vain.

Alors si vous pouvez m'aider.

Grand Merci d'avance.

Bonne journée

IFFIC
[file name=CHECK.zip size=12704]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CHECK.zip[/file]

 

[Shining Hawk]

Salut,

c'est une solution détournée mais bien exploitée, elle peut toujours marcher ... http://www.excel-downloads.com/telechargements/file/cases-a-cocher-et-bases-de-donnees/437.htm

Sinon je pense que tu devrais faire une procédure 'd'initialisation' qui créer tes cases à cocher partout, ensuite sur le bouton création tu mets:

CheckBox1.Visible = True
CheckBox2.Visible = True
...

Et sur le bouton 'suppression' tu mets:

CheckBox1.Visible = False
CheckBox2.Visible = False
...

bon courage
@+

 

[IFFIC]

Merci Shining Hawk

Je vais suivre le fil que tu me proposes.

Quant aux cases visibles ou non,
c'est une solution effectivement.

Sauf qu'en réalité j'utilise celles-ci dans une bidouille
que que je me suis construit pour dreser la liste de
certains fichiers dans mes disques durs.
Les cases se placent en face des fichiers en double.
Si CheckBox = true... Kill le fichier.

Tu imagines la caisse de cases!!!

Merci encore, et belle journée à toi

IFFIC

 

[Shining Hawk]

C'est bien ce qui me semblait : la solution que je te propose n'est pas très élégante!

Pour te simplifier la vie, essaye de réadapter l'exemple
http://www.excel-downloads.com/telechargements/file/cases-a-cocher-et-bases-de-donnees/437.htm

ensuite le test devient super aisé:

for each cellule in columns('B:B').cells
if cellule.value = 'ý' then kill cellule.offset(0,-1).value
next cellule

(en admettant que les cases à cocher soient dans la colonne B et le chemin des fichiers à supprimer dans la colonne A...)

le caractère Alt + 0253 donne la lettre 'ý' qui avec la police Windings donne une case cochée

le caractère Alt + 0168 donne le caractère '¨' qui avec la police Windings donne une case non cochée.

Fais moi signe si c'est pas clair mon charabia.
Le W-E se rapproche... B)