Multi CheckBox change

Version imprimable

Bonjour,

J'ai fais un petit truc en VBA pour changer un Range des que je check la CheckBox, et ca marche tres bien !
Code:

1 2 3 4 5 6 7 8 Private Sub CheckBox3_Change() If CheckBox3.Value = True Then Worksheets("Main").Range(Cells(3, 36), Cells(3, 42)).Font.Bold = True ElseIf CheckBox3.Value = False Then Worksheets("Main").Range(Cells(3, 36), Cells(3, 42)).Font.Bold = False End If End Sub
Mon pb c'est que j'ai une 50aine de Checkboxes et je souhaite eviter de recopier 50 fois le code ...

Avez vous une solution qui pourrait me permettre une sorte de boucle ?

Par ailleurs, est il possible de faire une function du type :

Private Sub xxxxxx_Change()
ou xxxxxx correspond au groupename des toutes mes checkboxes ?

Et j'ai aussi trouver cette formule qui va surement m'etre utile :
ActiveSheet.OLEObjects("CheckBox" & i).Object.Value

Merci bcp d'avance pour votre aide
Alex

13/08/2009, 12h20
jfontaine

Bonjour,

Tu peux déja simplifier ton code comme ca

Code:

Worksheets("Main").Range(Cells(3, 36), Cells(3, 42)).Font.Bold= CheckBox3.Value
13/08/2009, 12h36
Fvandermeulen

Salut,
As tu lié une cellule à tes check box?
13/08/2009, 13h43
adummm

Merci pour vos infos,
deja, la simplification est une tres bonne idée

ensuite les LinkedCells, j'en ai une pour chacun des CheckBox(1 to 50)
qui correspond a une cellule dans la ligne ou se situe la CheckBox, et me donne la valeur VRAI ou FAUX (mon excel est en francais)

avec ca, j'ai deja essayé de faire une formule :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

mais ca ne fonctionne pas, car il faut un changement manuel de la cells et pas automique comme dans mon cas ..
13/08/2009, 13h48
jfontaine

Le Worksheet_Change s'active même si modification par code de la valeur de la cellule, mais pas sur la modification du format
13/08/2009, 13h48
Fvandermeulen

Citation:

Envoyé par adummm

avec ca, j'ai deja essayé de faire une formule :
Private Sub Worksheet_Change(ByVal Target As Range)
mais ca ne fonctionne pas, car il faut un changement manuel de la cells et pas automique comme dans mon cas ..

:aie: :aie: C'était la piste que j'aurais suivi...

Et avec Calculate? reste à trouver le moyen de connaitre l'addresse de la cellule modifiée 8O
13/08/2009, 13h51
jfontaine

Peux tu reexpliquer le besoin car je ne comprend pas pourquoi creer plusieurs checkbox si le code qui suit doit etre le meme
13/08/2009, 13h54
Fvandermeulen

Re,
Je relisais le code initial (et jfontaine suis la même piste)
Si je comprend bien tu veux mettre en gras certaine colonne de la ligne si Vrai, si c'est bien ça, te casse pas la tête et utilise le format conditionnel lié à ta cellule qui récupère le Vrai/Faux.
A+

héhé c'est exactement ce que je veux faire, je veux mettre en gras certains colonnes de la ligne si la checkbox correspondant a cette ligne est cochée

et la methode du format conditionnel est une tres bonne idée,

mais je l'utilise deja pour d'autre mise en forme, tel que la couleur .. donc je suis un peu obligé de passer par vba pour mettre en gras malheuresement ..

Citation:

Envoyé par jfontaine

Le Worksheet_Change s'active même si modification par code de la valeur de la cellule, mais pas sur la modification du format

justement, chaque checkbox change une cellule avec pour valeur soit VRAI soit FAUX, mais comme c'est un changement automatique qui n'implique pas "l'edition manuel" de la cell, le Sub Worksheet_Change n'est pas activé ...

en fait je pense a une fonction private sub xxxx_change() pour n'importe quel changement d'une bouton ou checkbox dans la page active

ca existe ?
Code:

1 2 3 4 5 6 7 8 9 'for any checkbox change Private Sub CheckBoxes_Change() line = Right(CheckBox.Name, 2) 'ou qqchose aui me permet de recuperer le numero de la checkbox, et donc la ligne correspondante Worksheets("Main").Range(Cells(line, 36), Cells(line, 42)).Font.Bold = CheckBox3.Value End Sub

Citation:

Envoyé par adummm

ca existe ?

Bonne question, j'en sais rien ...
Mais sur l'idée du calculate, c'est un peu barbare mais je crois que ça peu le faire:
Dans une nouvelle colonne tu copie le Vrai/Faux renvoyé par chaque check box. Au moment du calculate tu compare chaque ligne, celle qui est différente sera la ligne de la checkbox modifiée.
Tu remets a jour la colonne qui contient la copie du renvoi de check box etc

Suis-je clair ?

Comme je suis têtu, j'ai fait un test sur base de mon idée, voici le code (tu verras que je me suis pas embêté à faire 50 checkbox :D )
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub Worksheet_Calculate() For Line = 5 To 6 'adapte selon tes lignes If Cells(Line, 12).Value <> Cells(Line, 13).Value Then 'j'ai utilisé la colonne L liée à la checkBox, M pour la "CopieValeur" Worksheets("Main").Range(Cells(Line, 36), Cells(Line, 42)).Font.Bold = Cells(Line, 12).Value 'Applique selon la cellule lié Cells(Line, 13).Value = Cells(Line, 12).Value 'on adapte la "CopieValeur" Exit For 'Sort de la boucle car différence trouvée End If Next Line End Sub

merci pour ta reponse, c'est tres clair, j'y avais deja pensé

mais j'ai deja bcp de calculs avec la function worksheet_calculate, qui s'effectuent toutes les secondes ... donc je voulais alleger ce code, et pour les checkbox qui finalement vont etre utilisées assez peu, je cherche qqchose a part

pour l'instant j'ai fait ca grace a votre aide pour la simplification de la formule initiale :
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub CheckBox3_Change() Worksheets("Main").Range(Cells(3, 36), Cells(3, 42)).Font.Bold = CheckBox3.Value End Sub Private Sub CheckBox4_Change() Worksheets("Main").Range(Cells(4, 36), Cells(4, 42)).Font.Bold = CheckBox4.Value End Sub Private Sub CheckBox5_Change() Worksheets("Main").Range(Cells(5, 36), Cells(5, 42)).Font.Bold = CheckBox5.Value End Sub ......
mais si vous trouvez une solution, je suis tjrs preneur !
en tous cas, merci bcp pour vos reponses rapides !!!!

J'ai trouvé une solution pas trop compliqué

Il te suffit de d'utilisé les cellules liées à la checkbox avec le nom de la checkbox.
Ensuite le code ci dessous utilise cette plage nommée pour faire les modifications
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub check1_Click() macrochek check1.Name, check1.Value End Sub Private Sub check2_Click() macrochek check2.Name, check1.Value End Sub Sub macrochek(strNomChek As String, BolChek As Boolean) Range(strNomChek).Font.Bold = BolChek End Sub

Bonjour à tous,

peut être une autre approche avec un module de classe.

A placer dans le module "thisworkbook" :

Code:

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
Private Sub Workbook_Open()
Dim x As OLEObject, i As Byte, ws As Worksheet
For Each x In Sheets("Feuil1").OLEObjects
    If TypeName(x.Object) = "CheckBox" Then
        i = i + 1
        ReDim Preserve Tb(1 To i)
        Set Tb(i).MesCtrl = x.Object
    End If
Next x
End Sub

dans un module standard :

Code:

1
2
Option Explicit
Public Tb() As New Classe1

dans un module de classe :

Code:

1
2
3
4
5
Option Explicit
Public WithEvents MesCtrl As MSForms.CheckBox
Private Sub MesCtrl_Click()
Cells(MesCtrl.TopLeftCell.Row, 5).Font.Bold = MesCtrl
End Sub

bon après midi
@+