Problème d'appel d'un module Résolu

Question

Bonjour, 

Je suis bloqué sur un problème (surement tout bête) mais je trouve pas de solution tout seul... alors je fais appel au forum! ;-)

Je veux rendre des CheckBox visible (jusque là, pas de soucis) mais j'aimerais rendre mon fichier plus "jolie" et mettre cette Sub dans un module et faire appel à ce module.
Voici mon code : 
Private Sub CheckBox1_Click()

'Rend les checkbox visible ou non'
If CheckBox1 = True Then
    CheckBox2.Visible = True
    CheckBox3.Visible = True
    CheckBox4.Visible = True
    CheckBox5.Visible = False
    CheckBox6.Visible = False
    CheckBox7.Visible = False
    CheckBox8.Visible = False
    CheckBox9.Visible = False
Else
    If CheckBox1 = False Then
    CheckBox2.Visible = False
    CheckBox3.Visible = False
    CheckBox4.Visible = False
    CheckBox5.Visible = False
    CheckBox6.Visible = False
    CheckBox7.Visible = False
    CheckBox8.Visible = False
    CheckBox9.Visible = False
    
    Sheets("Liste_machines").Select
    Range("K9").ClearContents
    End If
End If
    Range("B9").Select
End Sub

Ce code est écrit dans Microsoft Excel Objets, Machines (Liste_machines).
J'aimerais le mettre dans le module CheckBox mais qu'il s'éxécute quand même!

J'espère avoir été clair...
Quelqu'un peut m'aider?

Merci d'avance
Pookie
Configuration: Windows 2003 / Internet Explorer 8.0

Le Pingou · Answer

Bonjour, 
Au passage, est-vous sur que : 
Ce code est écrit dans Microsoft Excel Objets, Machines (Liste_machines). 
Ce n'est pas plutôt : Microsoft Excel Objets, Feuil1 (Liste_machines) 

Que comprendre par : J'aimerais le mettre dans le module CheckBox.... ! 
En principe il existe 2 modules : Module et  Module de classe ... ! 

Merci de vos précisions. 

Proposition de procédure modifiée :
Private Sub CheckBox1_Click()
'Rend les checkbox visible ou non'
If CheckBox1 = True Then
    For c = 2 To 9
        OLEObjects("CheckBox" & c).Visible = True
    Next c
Else
    For c = 2 To 9
        OLEObjects("CheckBox" & c).Visible = False
    Next c
End If
Sheets("Liste_machines").Select
Range("K9").ClearContents
Range("B9").Select
End Sub

Salutations. 
Le Pingou

Le Pingou · Answer

Bonjour,
La macro [Private Sub CheckBox1_Click()] a été déclarée dans le module de la feuille [Liste_machines] alors pourquoi voulez-vous la mettre dans un module général ?
Concerne : Je viens de vérifier, c'est bien : Microsoft Excel Objets, Machines (Liste_machines).
Voir extrait document joint : https://www.cjoint.com/?3HnnyBFi823

Le Pingou · Answer

Bonjour,
Eh bien avec vos 350 cases à cocher sur une page ( ou feuille ) , j'espère qu'il reste un peu de place pour les valeurs.
Pour faire plus joli laisser la macro sur le module qui lui correspond et remplacez la par celle-ci qui est plus aboitie :
Private Sub CheckBox1_Click()
Dim trfa As Boolean
trfa = True
'Rend les checkbox visible ou non'
If CheckBox1 = False Then
    trfa = False
End If
For c = 2 To 350
        OLEObjects("CheckBox" & c).Visible = trfa
Next c
Sheets("Liste_machines").Select
Range("K9").ClearContents
Range("B9").Select
End Sub

Le Pingou · Answer

Bonjour,

J'aimerais quand même recevoir une réponse similaire à :
Concerne : Je viens de vérifier, c'est bien : Microsoft Excel Objets, Machines (Liste_machines).
Voir extrait document joint : https://www.cjoint.com/?3HnnyBFi823

Le Pingou · Answer

Bonjour,
C'est trop demandé que de recevoir aussi un extrait comme je l'ai fait!

Problème d'appel d'un module

5 réponses

Discussions similaires

Newsletters