Aide pour faire suivre un select case sur plusieurs cellules

wkrystof - 25 mars 2013 à 14:23
 wkrystof - 25 mars 2013 à 14:26
Bonjour à tous,

J'ai besoin de votre aide, je débute dans le vba qui me passionne de plus en plus.

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


J'avais pensé à intégrer une ligne comme :
For i = 5 To Sheets("Base").Range("e5").End(xlDown).Row
Cells(i, 5).Value = Cells(i, 5) + 1

Next i

Merci d'avance pour votre aide

1 réponse

J'allais oublier, c'est vba sur Excel 2010.

Merci d'avance
0
Rejoignez-nous