Re : Mise au format selon condition en VBA
Bonsoir,
Je n'ai pas tres bien compris :"je suis obligé de sélectionner les cellules, format, nombre et tout rentre dans l'ordre. "
Mais en fonction des nouvelles informations, tu peux essayer ceci :
Sub test()
For Each X In Range("A1:A20")
Select Case X
Case "m3"
X.Offset(0, 1).NumberFormat = "0.000"
Case "ml", "m2", "Ems", "u"
X.Offset(0, 1).NumberFormat = "0.00"
End Select
Next
End Sub
Attention :
u different de U
m1 different ml
Ems different ems
etc ...