Bonjour!

J'ai un petit souci. Je crée une case à cocher activeX dans Excel 2013, mais je ne vois pas comment la redimensionner.

En fait, je souhaite que le «carré» puisse être d'une plus grande taille.

Merci pour votre aide, même s'il n'y avait pas de solution.

Et puis je vous souhaite une sacrée belle journée

Bonjour,

Il n'y a aucune propriété qui permette de dimensionner la case à cocher elle-même.

Il te reste l'option de créer un Active-X image et d'y gérer le placement d'un image de "check" avec la fonction Image1_MouseDown().

Cordialement,
D.

Merci cher Astucien.

Tu confirmes que je suis moins nouille que je le pensais, car après de multiples recherches je n'avais rien trouvé.

Allez, je te fais la bise pour la cause. Grand merci!

En fait ce n'est pas si facile car je n'arrive pas à changer la Picture de l'Image ou à la réduire.

La seule solution facile serait de modifier le fond de l'image à la couleur de l'image, mais ce n'est pas très beau car on a:
- soit une case toute noire non checkée si le check et noir
- soit un case partiellement noire checkée si le check est blanc (c'est le moins "moche" des 2)

On peut aussi utiliser une TexBox et mettre l'image dedans, mais quand on clique dans la TextBox on n'arrive pas à en sortir via le VBA, du moins je n'y arrive pas même en simulant un clic souris à l'extérieur.

Je dois mal m'y prendre. Je regarderai plus tard.

J'ai cédé à la facilité pour créer une CheckBox du type "le moins moche" -> supprimé
Il y a très peu de code associé.

Je pense qu'on peut faire mieux mais je m'y attarderai pas pour le moment.

Cordialement,
D.

La même en vert (c'est plus soft que rouge) et avec des explications dans le code -> https://cjoint.com/c/ICjf2yCF1QG

Bonjour,

On peut contourner le problème de cette manière, mais cela suppose l'usage d'un peu de VBA

Fichier joint

A+

C'est en effet une autre astuce pour simuler la CheckBox. Dommage qu'il n'y ait pas un évènement Before ou After Click. Ou alors conventionnellement demander un double-clic pour checker.

D.

Je me suis inspiré de ton caractère spécial pour proposer encore une autre option (commentaires dans le code) -> https://www.cjoint.com/c/IClwIudNDHi

Dans ce cas, c'est la taille de caractères qui détermine la grandeur de la CheckBox, ce qui affecte donc la hauteur de ligne.

Et toujours à partir du caractère spécial Wingdings code 0052, une autre option consistant à en créer 2 images (ON et OFF), à les superposer et à en alterner le plan d'affichage -> https://www.cjoint.com/c/IClxOBexVIi

D.

Hum...

Je n'avais pas donné de détail tant ça me semblait évident dans mon classeur, mais mon checkbox se coche et se décoche à chaque clic... et pas besoin d'image !

Après tout dépend de l'usage qu'on veut en faire...

A+

Au final voici, pour se détendre, une 4ème proposition qui condense la 2 et la 3, certes en utilisant des images, comme le signale de galopin01 à propos de son excellente solution qui n'en utilise pas.

En effet les images évitent des sautes de curseur / cellule sélectionnée imposées par l'exploitation de l'évènement Worksheet_SelectionChange() en l'absence regrettable d'un évènement Worksheet_BeforeClick().
Elles permettent aussi un positionnement indépendant des lignes et cellules avec l'inconvénient de devoir les gérer, ce qu'un Copier/Coller de l'exemple peut éventuellement faciliter.

https://www.cjoint.com/c/ICmvmiBAwYi

Cordialement,
D.

Edit: A propos de déplacement de curseur, cette solution présente un mystère que je n'ai pas résolu !

Cas n° 1 - Lorsqu'on passe l'image de masquage de transparent à opaque, c'est immédiat et sans problème.
Cas n° 2 - Lorsqu'on passe l'image de masquage de opaque à transparent, cela ne s'applique visuellement qu'a partir du moment où on a fait sortir le curseur de la zone de l'image !

Je n'ai pas trouvé de solution autre que de provoquer un décalage du curseur vers la droite pour le faire sortir de l'image dans le cas n° 2.
J'ai aussi essayé de le faire revenir dans sa position initiale après ce décalage mais ça ne marche pas, même après un délai d'attente ou quelques méthodes genre DoEvents, Application.ScreenUpdating = True, ...

Excel a ses mystères...

Edit: Mystère contourné. Allez savoir pourquoi, si on ajoute ces 2 instructions après le set du BackStyle en fmBackStyleTransparent, cela fonctionne sans qu'il soit nécessaire de faire sortir le curseur de la zone de l'image !

Image.BackStyle = fmBackStyleTransparent
'----------------------------------------------
'Si on ne met pas les 2 instructions suivantes,
'il faut sortir le curseur de l'image pour que
'la transparence s'applique !!!
'----------------------------------------------
Image.Visible = False
Image.Visible = True
'----------------------------------------------