controler checkBox à partir d'un autre classeur

Version imprimable

10/07/2006, 15h44
Echizen1

controler checkBox à partir d'un autre classeur

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 :lol: )

- 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 8O .

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

Comment faire SVP ?

Merci
10/07/2006, 15h59
gootsu

salut

Citation:

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:D

Effectivement, ce serait plus simple :oops:

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

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

Code:

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:

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:

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

11/07/2006, 07h57
Echizen1

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) ?
11/07/2006, 07h58
SfJ5Rpw8

avec la gestion d'erreur...
11/07/2006, 20h24
Echizen1

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

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

Code:

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

11/07/2006, 21h41
Echizen1

Génial.
Je comprends mieux là :P . Je teste ça demain au boulot. et je passe le topic en résolu si ça marche !
Merci beaucoup. :hola:
17/07/2006, 09h26
Echizen1

Impeccable ! :mouarf: :mouarf:
ça marche pas mal du tout ^_^

Ps.
Je passe le topic en résolu