Discussion :

[marko64]

Bonjour à tous,
Je suis autodidacte et je réalise pour mon boulot des fichiers qui me facilitent la vie et celles de mes collègues fonctionnaires. Là, j’arrive aux limites du programme et je dois me lancer dans le VBA.
Le problème est donc le suivant et il vous semblera sans doute basique :
Sur une feuille "CLAD" j'ai des cases à cocher dans une zone de groupe et ces cases doivent être utilisables si la case option Oui est cochée et inutilisable si Non. Ces cases option sont liées à la cellule L2 - Donc si Oui L2=1, si Non L2=2.


J’ai donc fait un petit code. Ici, il n'y bien entendu qu'une seule case à cocher


Mais je ne vois pas où est mon (ou mes) erreur(s) malgrés mes recheches sur le net (forum et tutoriels). En désespoir de cause je m’adresse à vous.


Mauvaise déclaration de variable très probablament comme le dit le message mais j’ai essayé en Checkbox, en Objet, rien y fait.

Merci d’avance pour votre aide

La question suivante sera comment faire disparaître, une zone de groupe et tout ce qu’elle contient.
Marko

[unparia]

Bonjour
Un contrôle formulaire n'est pas un contrôle ActiveX
Il n'a pas de propriété Enabled
Tu ne peux par ailleurs décider de déclarer un contrôle formulaire comme étant un objet Activex (ce que tente de faire la toute première ligne de ton code).

EDIT : en d'autres termes : imagine que tu aies un lapin et que tu veuilles qu'il se comporte comme un tigre (avec les mêmes capacités). Crois-tu vraiment qu'à présenter ce lapin comme étant un tigre en fera un tigre ?

[unparia]

Je n'aime pas ce genre de manip, mais tu peux toujours mettre en place la manoeuvre suivante :
Au choix OUI ou NON (tes boutons d'option" :
Si choix NON, alors :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 ActiveSheet.Shapes("Case à cocher 128").Select
    With Selection
        .Value = xlMixed
    End With
   ' et retour à ton bouton d'option par (analogue) ActiveSheet.Shapes("........").Select

et bien évidemment une démarche du même genre au click :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Caseàcocher128_Clic()
   ' si choix NON alors (mettre ici ton code de vérification du choix)
 
    ActiveSheet.Shapes("Case à cocher 128").Select
    With Selection
        .Value = xlMixed
    End With
 
End Sub

EDIT : en liant tes boutons et cases à des cellules, le code à écrire serait plus léger (mais la manip ne m'en plairait pas plus pour autant)

[marko64]

Merci unparia pour tes réponses.

Donc si je comprend bien, je devrai investiguer vers les contrôles activeX pour plus d'efficacité ? (pour moi activeX = programation web )

Je vais néanmoins tester les codes que tu proposes et les garder si ce la donne ce que j'attends.

Encore merci

Marko

[unparia]

pour moi activeX = programation web

Non. Ce sont tout simplement, comme le sont des Dll, des programmes encapsulés dynamiques qui se comportent comme une classe et sont donc instanciables comme n'importe quel autre objet dans l'application qui les héberge.
Regarde en mode développeur / Insertion -->> t'y sont proposés deux types de contrôles : Des contrôles formulaires et des contrôles activex.

[HopPopPop]

Bonsoir à tous,

Par souci de logique :
- Les Options , c'est 1 parmi la totalité des propositions ;
- Les "cases à cocher" en contrôle Formulaire ou CheckBox en Contrôle ActiveX, cela peut-être plus d'une.

En conséquence, si on ne peut cliquer que sur 1 seule case, il faudrait les remplacer par des options dans 1 groupe séparé ...