Salut à tous.
Je voudrais appliquer cette macro sur plusieurs cellules.
Exemple de A5 à A200 et idem sur I. Car le critère sur trouve en colonne E et le résultat doit s'inscrire en colonne I et elle doit se répéter sur chaque ligne (de 5 à 200 par exemple).
Merci d'avance
Sub Macro4()
'Variables'
Dim Coût As Integer, Tranche As String
Coût = Range("E5" )
Coût = Range("E6" )
Select Case Coût
Case Is < 400
Tranche = "<400"
Case Is < 450
Tranche = ">=400<450"
Case Is < 500
Tranche = ">=450<500"
Case Is < 550
Tranche = ">=500<550"
Case Is < 600
Tranche = ">=550<600"
Case Is >= 600
Tranche = ">=600"
Case Else
Tranche = ""
End Select
'Inscrit la tranche en I5'
Range("I5" ) = Tranche
Range("I6" ) = Tranche
End Sub