si case cochée alors cellule en gras

Question

Bonjour, 

Je débute en programmation. Je voudrais faire une macro ac Microsoft Visual Basic qui permettrait, lorsque que l'on coche une des "cases à cocher" d'avoir la cellule qui correspond qui se mette en gras (Donc à chaque case à cocher correspond une cellule à mettre en gras) 

Est ce que je dois faire une procedure differebte pour chaque case à cocher? Ou est ce qu'il y a une autre méthode?

J'ai essayé ça  :

Sub Caseàcocher24_QuandClic()
If Caseàcocher24.Value = True Then
    Range("B27:B28").Select
    Selection.Font.Bold = True
End If
End Sub

Mais ça ne fonctionne pas: Erreur d'exécution '424', objet requis...

Quelle est l'erreur?

Pourriez vous m'aider?

Merci d'avance.


Configuration: Windows XP / Internet Explorer 8.0

f894009 · Answer

Bonjour, 

Sub Caseàcocher24_Clic() 
  'Feuille a changer si pas la bonne 
  Set Obj = Feuil1.Shapes("Case à cocher 24").OLEFormat.Object 
     
  If Obj.Value = xlOn Then 
    Feuil1.Range("B27:B28").Font.Bold = True 
  End If 
End Sub 


Bonne suite

Si case cochée alors cellule en gras

1 réponse

Votre réponse

Discussions similaires

Newsletters