jeanmi
XLDnaute Occasionnel
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.
cordialement
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.
VB:
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 Subcordialement
