Aide pour faire suivre un select case sur plusieurs cellules

[wkrystof]

Bonjour à 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" )

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

End Sub

 

[Pierrot93]

Re : Aide pour faire suivre un select case sur plusieurs cellules

Bonjour,

Coût = Range("E5" )
Coût = Range("E6" )

petite remarque au passage, la variable "Coût " prendra toujours la dernière valeur soit E6, jamais E5.. sera systèmatiquement réinitialisée...

bonne soirée
@+

 

[Robert]

Re : Aide pour faire suivre un select case sur plusieurs cellules

Bonsjour WKistof et bienvenu, bonjour Pierrot, bonjour le forum,

Essaie comme ça :

Sub Macro4()
'Variables'
Dim Coût As Integer, Tranche As String

For i = 5 To 200
    Coût = Cells(i, 5).Value
    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'
    Cells(i, 9).Value = Tranche
Next i
End Sub

 

[_Thierry]

Re : Aide pour faire suivre un select case sur plusieurs cellules

Bonsoir à tous

Surtout pour dire Bonjour à Robert,
Mais ne tirez pas trop sur la corde avec des variables avec accent ! En VBA ca peut passer mais tout de même !

Sub Macro4()
'Variables'
Dim Cost As Double, Tranche As String, i As Integer
For i = 5 To 200
    Cost = Cells(i, 5).Value
    Select Case Cost
        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'
    Cells(i, 9).Value = Tranche
Next i
End Sub

J'espère que tu vas bien cher ami 🙂

@+Thierry

 

[Robert]

Re : Aide pour faire suivre un select case sur plusieurs cellules

Bonsoir le fil, bonsoir le forum,

j'ai eu la chance de le découvrir ce site à une époque où y avait autant de désinvolture que de compétence, autant d'humour que de générosité, autant d'éthique que de sympatique têtes. J'ai eu la chance de le découvrir à cette époque et d'apprendre tout ce que je sais aujourd'hui par les intervenants de cette époque. Je ne les remercierai jamais assez.

Tiens ! Salut Thierry, je t'avais pas vu, quelle coïncidence !? Tu vas bien ?...

 

[wkrystof]

Re : Aide pour faire suivre un select case sur plusieurs cellules

Bonsoir à tous ,

Je vous remercie pour votre et j'espère apprendre rapidement mais surement de tout mes ainés experts.

Je test cela demain et je vous tiens au courant

Encore merci

 

[wkrystof]

Re : Aide pour faire suivre un select case sur plusieurs cellules

Merci pour votre aide ça fonctionne très bien