Rendre une case a cocher inaccessible

J

Jeanbulle

XLDnaute Occasionnel

• 14 Août 2007

• #2

Re : Rendre une case a cocher inaccessible

Bonjour,

Exemple ci joint, pour un début d'idée.

A l'ouverture du classeur, la combobox se remplit des diverses activitées .
Au changement de la valeur de cette liste de choix ( combobox1 ), si celle ci contient LIBERALE, la checkbox1 n'est plus visible, si celle ci contient un autre choix, la checkbox devient visible.

Bonne journée

 

Pièces jointes

• checkbox.xls

  27.5 KB · Affichages: 92
• checkbox.xls

  27.5 KB · Affichages: 91
• checkbox.xls

  27.5 KB · Affichages: 93

Dernière édition: 14 Août 2007

Vote positif 0 Vote négatif

C

CurLy

Guest

• 16 Août 2007

• #3

Re : Rendre une case a cocher inaccessible

C'est exactement le résultat que je voudrais obtenir, mais je comprend pas comment t'as pu faire ça :/

Edit > Ok j'ai trouvé, c'est :

Code:

If Sheets("feuil1").ComboBox1.Value = "Liberale" Then
Sheets("feuil1").CheckBox1.Visible = False
End If

Mais ma liste déroulante se crée a partir d'une feuille annexe avec toutes les professions listées, lorsque on choisit celle-ci, une cellule liée renvoit le groupe d'activité auquel appartient la profession. (Par exemple, catégorie 8)
D'ou ma question, dans le code si dessus comment indiquer que si dans tel case ( nous dirons Feuille3!A12 par exemple ), la valeur est 8 alors visible = false ???

Merci encore de votre aide 🙂

 

Dernière modification par un modérateur: 16 Août 2007

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 16 Août 2007

• #4

Re : Rendre une case a cocher inaccessible

Bonjour Curly, JeanBulle

Si j'ai bien compris, essayes la ligne de code ci-dessous :

Code:

If Sheets("Feuil3").Range("A12").Value = 8 Then _
    Sheets("feuil1").CheckBox1.Visible = False

bonne journée
@+

 

Vote positif 0 Vote négatif

C

CurLy

Guest

• 16 Août 2007

• #5

Re : Rendre une case a cocher inaccessible

Voila le code que j'ai inséré dans la Feuille1 (la se trouve la case a masquer)

Code:

Private Sub ComboBox21_Change()

If Sheets("Feuil2").Range("I748").Value = 1 Then
    Sheets("feuil1").CheckBox21.Visible = False
End If

End Sub

Ca fonctionne pas ... je choisis une profession de la branche 1 et la case reste affiché.

Ou peut on voir quel nom a la case a cocher ? Je suis pas sur que ce soit CheckBox21 ... J'ai crée les cases graphiquement Oo'

Encore merci 😛

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 16 Août 2007

• #6

Re : Rendre une case a cocher inaccessible

Re

Une fois l'objet sélectionné, regarde dans la zone nom, au dessus de la colonne A.

@+

 

Vote positif 0 Vote négatif

C

CurLy

Guest

• 16 Août 2007

• #7

Re : Rendre une case a cocher inaccessible

Re ! ^^

Pour faciliter la chose, j'ai crée un fichier test vite fait que vous trouverez ci-joint.

Le but étant de cacher la case de la feuille 1 lorsque l'on sélectionne une profession de la branche N° 1

D'avance MERCI 🙂

 

Pièces jointes

• test.xls

  19.5 KB · Affichages: 73
• test.xls

  19.5 KB · Affichages: 82
• test.xls

  19.5 KB · Affichages: 72

Vote positif 0 Vote négatif

Excel_lent

XLDnaute Impliqué

• 16 Août 2007

• #8

Re : Rendre une case a cocher inaccessible

Salut à tous,

CurLy à dit:

Re ! ^^

...
Le but étant de cacher la case de la feuille 1 lorsque l'on sélectionne une profession de la branche N° 1
...

Cliquez pour agrandir...

Qu'entends-tu par "cacher" ?
Si tu veux dire que le nom n'apparaisse pas dans la liste quand le N° de la Branche est 1, tu as une façon de faire dans le fichier joint .

 

Pièces jointes

• test (version 2).xls

  32.5 KB · Affichages: 70

Vote positif 0 Vote négatif

C

CurLy

Guest

• 17 Août 2007

• #9

Re : Rendre une case a cocher inaccessible

Salut,

Désolé, j'ai oublié de mettre la case a cocher qui doit est masqué ... voila le fichier a jour

Merci ^^

 

Pièces jointes

• test.xls

  21.5 KB · Affichages: 72
• test.xls

  21.5 KB · Affichages: 73
• test.xls

  21.5 KB · Affichages: 69

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 17 Août 2007

• #10

Re : Rendre une case a cocher inaccessible

Bonsoir le fil, bonsoir le forum,

Je propose la macro Événementielle Calculate à placer par VBE dans l'onglet Feuil2 soit le composant VBA Feuil2(Feuil2) :

Code:

Private Sub Worksheet_Calculate() 'à chaque calcul de l'onglet "Feuil2"
If Range("D19").Value < 3 Then 'condition : si D19 est inférieur à 3
    Sheets("Feuil1").Shapes("Check Box 4").Visible = False 'la case à cocher est masquée
Else 'sinon
    Sheets("Feuil1").Shapes("Check Box 4").Visible = True 'la case à cocher est visible
End If
End Sub

 

Vote positif 0 Vote négatif

C

CurLy

Guest

• 17 Août 2007

• #11

Re : Rendre une case a cocher inaccessible

Bonjour Robert,

Ta solution fonctionne parfaitement 🙂

J'ai plus qu'a l'adapteur a mon classeur, je vous remercie beaucoup pour votre aide 😛

Tata.

 

Vote positif 0 Vote négatif

C

CurLy

Guest

• 17 Août 2007

• #12

Re : Rendre une case a cocher inaccessible

Decidemment ...

J'ai une erreur qui s'affiche et avec le débugger c'est dans la ligne en gras :

Code:

Private Sub Worksheet_Calculate() 'à chaque calcul de l'onglet "Feuil2"
If Range("I748").Value = 1 Or Range("I748").Value = 7 Then 'condition : si I748 est égal à 1 ou 7
    Sheets("Feuil1").Shapes("Check Box 21").Visible = False 'la case à cocher est masquée
Else 'sinon
    [B]Sheets("Feuil1").Shapes("Check Box 21").Visible = True 'la case à cocher est [/B]visible
End If
End Sub

Je vois vraiment pas d'ou peut venir le problème :/

J'ai remarqué que la cellule lié (I748) a la liste déroulante qui renvoi la branche a été renommé en "branche', ca peut provenir de la ?

Et le message d'erreur est le suivant :

"Erreur d'execution '9'"
L'indice n'appartient pas à la sélection."

Cliquez pour agrandir...

 

Dernière modification par un modérateur: 17 Août 2007

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 17 Août 2007

• #13

Re : Rendre une case a cocher inaccessible

Salut CurLy,

J'ai remarqué que la cellule lié (I748) a la liste déroulante qui renvoi la branche a été renommé en "branche', ca peut provenir de la ?

Cliquez pour agrandir...

Pour ton problème, ça n'a aucune importance !

Et le message d'erreur est le suivant : "Erreur d'execution '9'"
L'indice n'appartient pas à la sélection."

Cliquez pour agrandir...

Il est étrange que le code donné par Robert, te renvoie ce type de message d'erreur !?

Vérifie dans ton éditeur VBA, dans le menu "Outils" -> "Références", si tu n'as pas une référence manquante !?

Si c'est le cas, il faut la décocher.

A+

 

Vote positif 0 Vote négatif

C

CurLy

Guest

• 17 Août 2007

• #14

Re : Rendre une case a cocher inaccessible

Salut Bruno,

Quels valeurs doivent être coché dans les "Références" ?

En ce qui me concerne, j'ai :

Visual Basic For Applications
Microsoft Excell 11.0 Object Library
Microsoft Forms 2.0 Object Library
Microsoft Office 11.0 Object Library
OLE Automation
Ref Edit Control

Cliquez pour agrandir...

Tout le reste est décoché ....

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 17 Août 2007

• #15

Re : Rendre une case a cocher inaccessible

Re Curly,

Il ne s'agit pas de cocher une référence quelconque, mais de vérifier que tu n'as pas une référence ou il est noté : "REFERENCE MANQUANTE"

Peux-tu joindre ton fichier en ligne !?

 

Vote positif 0 Vote négatif