Cases à cocher??

[Noemy]

Bonjour.
Je voudrai savoir comment faire pour cocher des cases en cliquant directement dedans?
Merci d'avance.

 

[JYLL]

Re : Cases à cocher??

Bonjour Noemy, Dann, Dull et le forum,

Avec une petite Macro, tu peux en créer autant que tu veux, à voir pour ajuster la hauteur et l'intitulé automatiquement. Si tu précises ce que tu veux, j'ai du temps.

For y = 0 To 200 Step 20
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=10, Top:=y, Width:=100, Height:=20). _
Select
Next y
End Sub

@+

 

[aurel42]

Re : Cases à cocher??

salut tous le monde.

dis moi DULL comment il faut que je procède pour faire ce que tu as fais dans le fichier que tu as envoyé ?? je suis vraiment débutant et j'ai aucune notions VBA.

Merci d'avance

 

[Talzatior]

Re : Cases à cocher??

Coucou le Forum 😉

Dan, ton petit fichier que tu as fait, histoire de ne pas l'avoir fait pour rien, pourrais-tu le link ? Ca m'intéresse de savoir comment tu parviens à faire ce genre de chose, pour exactement la même raison : suivi de commandes 😉

Merci par avance, et quelques explications seraient les bienvenues que je puisse l'intégrer à mon tableau de suivi 😉

Bonne journée 😉

 

[terpick]

Re : Cases à cocher??

Bonjour le Forum,

Dull, j'aime beaucoup votre méthode, mais est-ce possible de décocher la case?

Merci d'avance

A+

 

[Dull]

Re : Cases à cocher??

Bonjour terpick, le Forum

Change les codes mis dans mon fichier par ceux-ci

Option Explicit
Dim C As Range

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [B1:F10]) Is Nothing And Target.Count > 1 Then Exit Sub
Cancel = True: Target = IIf(Target = "X", "", "X")
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [A1:A20]) Is Nothing And Target.Count = 1 Then Target = IIf(Target = "X", "", "X")
End Sub

A tester

Bonne Journée

 

[terpick]

Re : Cases à cocher??

Bonjour, Dull, le Forum,

Dull, c'est parfait, merci beaucoup,

A+, bonne semaine