Discussion :

[Basicnav]

Bonjour,

je cherche sans succès sur la toile et dans le forum la réponse à mon problème.

J'ai un UserForm dans lequel j'ai plusieurs CheckBox.

Est-il possible à une checkbox d'associer (de faire référence) à une feuille de mon document excel ?
Est ce que la solution se trouve dans la propriété ControlSource ? Alors quelle est la syntaxe pour que excel l'accepte ?

merci

[Krovax]

Bonjour
Tu as raison (il te suffisais de tester pour t'en rendre compte )
Dans controle source ecrit quelque chose comme
feuil1!A1
ET voila tu as un vrai faux dans la cellule en question qui change quand tu coche ou non le cheque box.
Après si tu veux faire autre chose il va te falloir être plus explicite

[Basicnav]

Merci Krovax pour ce début de réponse, mais je me suis peut-^tre mal expliqué.

Je ne veux pas faire référence à seulement une cellule, mais bien à la feuille entière.
En concret, je veux que l'utilisateur coche les checkbox (qui font références à diverses feuilles de mon classeur) et en validant sur un bouton, ces feuilles s'impriment.
Je voudrais éviter le :

Code :

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

1
2
3
4
5
6
7
8
Private Sub CommandButton2_Click()
If CheckBox2 Then
Sheets("Feuil2").PrintOut
End If
If CheckBox3 Then
Sheets("Feuil3").PrintOut
End If
End Sub

en effet j'ai 70 feuilles dans ce classeur !!
Je voudrais un code plus propre...

[Krovax]

Comme quoi une question précise est toujours utile, je ne pouvais pas vraiment deviner que tu voulais les utiliser pour imprimer une certaine feuille

Tu peux essayer quelque chose comme ca en bonclant sur les controles (en espérant que tu ne les a pas trop renommé

Code :

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

1
2
3
4
5
6
7
8
9
Dim i As Integer
For i = 1 To 70
If UserForm3.Controls("Checkbox" & i) then
'tu te débrouille pour impréimer la feuil qui corespond au checkbox si tu as de la chance le label corespond au nom de la feuille 
Sheets(UserForm3.Controls("Checkbox" & i).label).PrintOut
'ou alors il sont dans le même ordre que les onglet
sheets(i).PrintOut
end if
Next i