Checkbox qui modifie le format numérique

Bonjour,

Je souhaiterai que ma checkbox modifie le format numérique de la cellule correspondante.

si la checkbox n'est pas cochée : __ mois

Si la checkbox est cochée : __ phase

Quelqu'un aurait une solution ?

j'ai testé cela, mais ca ne fonctionne pas totalement ...

Sub modif_format()

If Value = True Then
Worksheets("Feuil1").Range("F3").NumberFormat = "# ##0[$ Mois]"
Else
Worksheets("Feuil1").Range("F3").NumberFormat = "# ##0[$ Phase]"
End If

End Sub

Bonjour,

Au lieu d'insérer une case à cocher "normale", il faut insérer une case à cocher activeX (accessible juste en dessous, dans la zone développeur). Ainsi, tu pourras lui lier du code.

Basé sur le tien, voici ce qu'il est possible de faire. Code à mettre sur la feuille contenant le contrôle ActiveX, et non dans un module standard :

Private Sub CheckBox1_Click()
If CheckBox1 Then 'pareil que if CheckBox1.Value = True
Worksheets("Feuil1").Range("F3").NumberFormat = "# ##0[$ Mois]"
Else
Worksheets("Feuil1").Range("F3").NumberFormat = "# ##0[$ Phase]"
End If
End Sub

Bonjour,

Merci pour votre réponse.

Cependant, quand j'essaye de créer la case à cocher (ActiveX) j'ai un message d'erreur ...

"impossible d'insérer un objet"

Avez-vous une idée ?

Es-tu sur Mac ?

Pas du tout, je suis sur Windows 10

Tu peux toujours essayer de faire la même manipulation dans un nouveau fichier, pour voir si le problème est général ou juste dû à ton fichier.

Sinon, je ne sais pas trop quoi te dire d'autre.

Bonjour Bob Sheriff, JoyeuxNoel,

S'il s'agit de case à cocher Formulaire, dans un module standard :

Sub Caseàcocher_Clic()
 If Worksheets("Feuil1").Shapes("Case à cocher 1").ControlFormat.Value = 1 Then  'adapter le nom de la case
    Worksheets("Feuil1").Range("F3").NumberFormat = "# ##0[$ Mois]"
 Else
    Worksheets("Feuil1").Range("F3").NumberFormat = "# ##0[$ Phase]"
 End If
End Sub

Adapter le nom de la case à cocher, et associer cette macro à la case à cocher

A+

Il doit s'agir de paramètres gérés par mon administration (maj-registres-...) qui bloquent.

Je vais tester en passant par la solution de AlgoPlus

Fonctionne parfaitement !

Merci à vous deux !