Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
lSteph
Bonjour,
On utilisera Feuil1 comme contenant des Chbx et le ThisWorkbook pour initialiser donc le code sera actif à l'ouverture du classeur.
Insère un module standard puis un module de classe , Affiche la fenêtre des propriété afin de renommer ce dernier:
ChbxClass
Mets ce code (ci en bas ) dans les modules indiqués Cordialement. LSteph
''''''dans le module ChbxClass Option Explicit
Public WithEvents mychb As msforms.CheckBox
Private Sub myChb_Click() If mychb.Object.Value = True Then ' vert mychb.BackColor = RGB(0, 232, 0) Else ' rouge mychb.BackColor = RGB(240, 0, 0) End If End Sub
''''dans module standard Option Explicit Public myCollect As Collection
'''''''dans ThisWorbook Option Explicit Private Sub Workbook_Open() Dim olb As OLEObject, mycl As ChbxClass Set myCollect = New Collection For Each olb In Feuil1.OLEObjects If TypeOf olb.Object Is msforms.CheckBox Then Set mycl = New ChbxClass Set mycl.mychb = olb.Object myCollect.Add mycl End If Next olb End Sub
Bonjour,
On utilisera Feuil1 comme contenant des Chbx et le ThisWorkbook pour
initialiser donc le code sera actif à l'ouverture du classeur.
Insère un module standard
puis un module de classe ,
Affiche la fenêtre des propriété afin de renommer ce dernier:
ChbxClass
Mets ce code (ci en bas ) dans les modules indiqués
Cordialement.
LSteph
''''''dans le module ChbxClass
Option Explicit
Public WithEvents mychb As msforms.CheckBox
Private Sub myChb_Click()
If mychb.Object.Value = True Then
' vert
mychb.BackColor = RGB(0, 232, 0)
Else
' rouge
mychb.BackColor = RGB(240, 0, 0)
End If
End Sub
''''dans module standard
Option Explicit
Public myCollect As Collection
'''''''dans ThisWorbook
Option Explicit
Private Sub Workbook_Open()
Dim olb As OLEObject, mycl As ChbxClass
Set myCollect = New Collection
For Each olb In Feuil1.OLEObjects
If TypeOf olb.Object Is msforms.CheckBox Then
Set mycl = New ChbxClass
Set mycl.mychb = olb.Object
myCollect.Add mycl
End If
Next olb
End Sub
On utilisera Feuil1 comme contenant des Chbx et le ThisWorkbook pour initialiser donc le code sera actif à l'ouverture du classeur.
Insère un module standard puis un module de classe , Affiche la fenêtre des propriété afin de renommer ce dernier:
ChbxClass
Mets ce code (ci en bas ) dans les modules indiqués Cordialement. LSteph
''''''dans le module ChbxClass Option Explicit
Public WithEvents mychb As msforms.CheckBox
Private Sub myChb_Click() If mychb.Object.Value = True Then ' vert mychb.BackColor = RGB(0, 232, 0) Else ' rouge mychb.BackColor = RGB(240, 0, 0) End If End Sub
''''dans module standard Option Explicit Public myCollect As Collection
'''''''dans ThisWorbook Option Explicit Private Sub Workbook_Open() Dim olb As OLEObject, mycl As ChbxClass Set myCollect = New Collection For Each olb In Feuil1.OLEObjects If TypeOf olb.Object Is msforms.CheckBox Then Set mycl = New ChbxClass Set mycl.mychb = olb.Object myCollect.Add mycl End If Next olb End Sub
Jean Bonbeurre
Merci
Bonjour,
On utilisera Feuil1 comme contenant des Chbx et le ThisWorkbook pour initialiser donc le code sera actif à l'ouverture du classeur.
Insère un module standard puis un module de classe , Affiche la fenêtre des propriété afin de renommer ce dernier:
ChbxClass
Mets ce code (ci en bas ) dans les modules indiqués Cordialement. LSteph
''''''dans le module ChbxClass Option Explicit
Public WithEvents mychb As msforms.CheckBox
Private Sub myChb_Click() If mychb.Object.Value = True Then ' vert mychb.BackColor = RGB(0, 232, 0) Else ' rouge mychb.BackColor = RGB(240, 0, 0) End If End Sub
''''dans module standard Option Explicit Public myCollect As Collection
'''''''dans ThisWorbook Option Explicit Private Sub Workbook_Open() Dim olb As OLEObject, mycl As ChbxClass Set myCollect = New Collection For Each olb In Feuil1.OLEObjects If TypeOf olb.Object Is msforms.CheckBox Then Set mycl = New ChbxClass Set mycl.mychb = olb.Object myCollect.Add mycl End If Next olb End Sub
Merci
Bonjour,
On utilisera Feuil1 comme contenant des Chbx et le ThisWorkbook pour
initialiser donc le code sera actif à l'ouverture du classeur.
Insère un module standard
puis un module de classe ,
Affiche la fenêtre des propriété afin de renommer ce dernier:
ChbxClass
Mets ce code (ci en bas ) dans les modules indiqués
Cordialement.
LSteph
''''''dans le module ChbxClass
Option Explicit
Public WithEvents mychb As msforms.CheckBox
Private Sub myChb_Click()
If mychb.Object.Value = True Then
' vert
mychb.BackColor = RGB(0, 232, 0)
Else
' rouge
mychb.BackColor = RGB(240, 0, 0)
End If
End Sub
''''dans module standard
Option Explicit
Public myCollect As Collection
'''''''dans ThisWorbook
Option Explicit
Private Sub Workbook_Open()
Dim olb As OLEObject, mycl As ChbxClass
Set myCollect = New Collection
For Each olb In Feuil1.OLEObjects
If TypeOf olb.Object Is msforms.CheckBox Then
Set mycl = New ChbxClass
Set mycl.mychb = olb.Object
myCollect.Add mycl
End If
Next olb
End Sub
On utilisera Feuil1 comme contenant des Chbx et le ThisWorkbook pour initialiser donc le code sera actif à l'ouverture du classeur.
Insère un module standard puis un module de classe , Affiche la fenêtre des propriété afin de renommer ce dernier:
ChbxClass
Mets ce code (ci en bas ) dans les modules indiqués Cordialement. LSteph
''''''dans le module ChbxClass Option Explicit
Public WithEvents mychb As msforms.CheckBox
Private Sub myChb_Click() If mychb.Object.Value = True Then ' vert mychb.BackColor = RGB(0, 232, 0) Else ' rouge mychb.BackColor = RGB(240, 0, 0) End If End Sub
''''dans module standard Option Explicit Public myCollect As Collection
'''''''dans ThisWorbook Option Explicit Private Sub Workbook_Open() Dim olb As OLEObject, mycl As ChbxClass Set myCollect = New Collection For Each olb In Feuil1.OLEObjects If TypeOf olb.Object Is msforms.CheckBox Then Set mycl = New ChbxClass Set mycl.mychb = olb.Object myCollect.Add mycl End If Next olb End Sub
