controler checkBox à partir d'un autre classeur

**Echizen1** · 10/07/2006, 15h44

Salut tlm,
J'ai un petit pb qui est le suivant.
- Je dispose d'un classeur sur lequel j'ai mis 3 checkbox et un bouton. Le clic entraîne (suivant les cases cochées) des mises en forme sur un autre classeur.
(Le code est ecrit sur la feuille sous VBA et non pas en module, parce que j'utilise des checkbox du menu "boite à outils de controles". Autrement ça marche pas

)

- J'ai ensuite crée un module qui en fonction des checkbox crées précédemment lance une autre mise en forme. MAIS là ça marche pas

.

J'ai l'impression qu'il ne reconnait pas le fait qu'une checkbox soit cochée

.

Comment faire SVP ?

Merci

**gootsu** · 10/07/2006, 15h59

salut

J'ai ensuite crée un module qui en fonction des checkbox lance une autre mise en forme

commence par nous donner qq lignes de code de ton modul

**Echizen1** · 10/07/2006, 16h12

Effectivement, ce serait plus simple

- Je crée mes 3 checkbox et mon bouton.

Procédure utilisée dans le code (création classeur)

Code :

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

1
2
3
4
5
'Créer un nouveau classeur
Sub ajoutClasseur(Chemin, NomFichier As String)
    Workbooks.Add
    Workbooks(Workbooks.Count).SaveAs Chemin & NomFichier
End Sub

- J'appelle ma première procédure de mise en forme :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton1_Click()     'Code crée dans la feuille même sous VBA
Chemin = "C:\Toto\"
ajoutClasseur Chemin, "test.xls"

If CheckBox1 Then 
 Call Mise_en_forme1 ' ligne verte
End If

If CheckBox2 Then 
 Call Mise_en_forme2 ' ligne rose
End If

If CheckBox3 Then 
 Call Mise_en_forme1 ' ligne jaune
End If

End sub

- Création d'un autre bouton dont le code lui est "stocké" dans un module :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Bouton2_QuandClic()

Windows("test.xls").Activate
Sheet("a").select

If CheckBox1 and CheckBox2 and CheckBox3 then  'il reconnait pas cette condition, du coup il ne fait rien :s
Call Mise_en_forme_FINALE
End If

End Sub

**Echizen1** · 11/07/2006, 07h57

Salut,
J'ai réfléchis à une alternative pour ne pas avoir à trop modifier le code. (Même si je pense qu'il suffit de dire à VBA que les checkbox doivent être visible sur tout le projet).

Comment vérifier que ds un nouveau classeur il y a l'onglet (ong1) ?

**SfJ5Rpw8** · 11/07/2006, 07h58

avec la gestion d'erreur...

**Echizen1** · 11/07/2006, 20h24

Salut,
Désolé, je n'ai pas tout compris

**SfJ5Rpw8** · 11/07/2006, 20h49

oui j'ai été un peu cours tiens un peu de code exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
'
'Vérifie existence feuille
Function FeuilleExiste(Wk As Workbook, stNomFeuille As String) As Boolean
 On Error GoTo Fin
 'La ligne suivante provoque une erreur si feuille n'existe pas
 FeuilleExiste = Wk.Sheets(stNomFeuille).Name <> ""
 Exit Function
Fin:
FeuilleExiste = False
End Function
'
' Juste pour le test
'
Sub Test()
  If FeuilleExiste(ThisWorkbook, "Feuil1") Then MsgBox "Feuille 1 existe" _
  Else MsgBox "Manque Feuille 1"
 
  If FeuilleExiste(ThisWorkbook, "Feuil122") Then MsgBox "Feuille 122 existe" _
  Else: MsgBox "Manque Feuille 122"
 
End Sub