Case à cocher

[3dbillard]

Bonsoir,
je dispose d'un tableau ou je voudrai pouvoir choisir par une case à cocher, si les chiffres sont à 3 décimales quand la case est coché et 2 décimales quand elle n'est pas coché. Un petit fichier joint pour être plus clair.
Bonne soirée à tous et merci.

 

[ROGER2327]

Re : Case à cocher

Bonjour 3dbillard

Essayez ce code :

Sub Macro1()
  With Range("D7,D9,D11,D13,D15,D17,D19")
    If .NumberFormat = "0.00" Then .NumberFormat = "0.000" Else .NumberFormat = "0.00"
  End With
End Sub

​

ROGER2327
#4951

Samedi 21 Gueules 138 (Lavement, V)
27 Pluviôse An CCXIX
2011-W07-2T22:30:35Z

 

[DL_13]

Re : Case à cocher

Bonjour

Une autre façon de faire

Sub Macro1()
Dim R As Range
Set R = [D7,D9,D11,D13,D15,D17,D19]
    R.NumberFormat = IIf(R.NumberFormat = "0.00", "0.000", "0.00")
End Sub

Bonne journée

 

[3dbillard]

Re : Case à cocher

Bonjour et merci à tous les deux pour vos réponses rapides et efficaces. Bonne journée à tous