XL 2010 amélioration code

[jeanmi]

Bonjour à tous,

j'ai fait en enregistrement macro, un petit code que j'ai adapté pour mon utilisatio
Pouvez vous me proposer une simplification de delui-ci
En vous remerciant par avance.

Sub tolerance()

Dim a As String
Dim b As String

a = Range("F1").Value

Range("B3:B16").Select
        
If a = 1 Then b = "0.0"
If a = 2 Then b = "0.00"
If a = 3 Then b = "0.000"
If a = 4 Then b = "0.0000"
If a > 4 Then GoTo fin
    
Selection.NumberFormat = b

fin:

Range("A2").Select

End Sub

cordialement

 

[Phil69970]

Bonjour @jeanmi

Je te propose

Sub tolerance()
Dim b$

Range("B3:B16").Select
Select Case Range("F1").Value
Case 1: b = "0.0"
Case 2: b = "0.00"
Case 3: b = "0.000"
Case 4: b = "0.0000"
End Select
 
Selection.NumberFormat = b

Range("A2").Select
End Sub

Merci de ton retour

 

[dysorthographie]

Bonsoir,

Range("B3:B16").NumberFormat = "0." & String(Range("F1").Value, "0")

 

[jeanmi]

Bonsoir,

Range("B3:B16").NumberFormat = "0." & String(Range("F1").Value, "0")

Bonjour @dysorthographie , a tous,

Merci pour cette solution qui est formidable, car elle répond encore mieux à mon attente, plus de limite dans le choix de décimale c'est vraiment nickel.

cordialement