Case à cocher

3dbillard · 15 Février 2011

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 · 15 Février 2011

Re : Case à cocher

Bonjour 3dbillard

Essayez ce code :

VB:

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 · 16 Février 2011

Re : Case à cocher

Bonjour

Une autre façon de faire

Code:

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 · 16 Février 2011

Re : Case à cocher

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

Case à cocher

3dbillard

XLDnaute Junior

Pièces jointes

ROGER2327

XLDnaute Barbatruc

DL_13

XLDnaute Occasionnel

3dbillard

XLDnaute Junior

Discussions similaires