Traitement

Bonjour,

Voila je début VBA cette année et pour mon projet d'informatique, nous devons créer des petits traitements VBA. Mais j'ai un petit problème, j'essaie de faire ceci (Qui fonctionne) avec ces donnés :

Sub montant()
Dim v As Integer
v = Range("A2").Value
If v <= 150 Then
ActiveSheet.Range("C2").Value = ("Contrat à petit revenu")
ElseIf v >= 1000 Then
ActiveSheet.Range("C2").Value = ("Contrat à gros revenu")
Else
ActiveSheet.Range("C2").Value = ("Contrat à moyen revenu")
End If
End Sub

Mais au lieu de faire une seule cellule, j'aimerais en faire plusieurs d'un coup et ranger la valeur (Contrat à petit revenu,..) dans chaque cellule adéquate. Donc j'ai essayer ceci :

Sub montant2()
Dim m As Integer
m = Range("A2:A23").Select
For m = 2 To 23 Step 1
If m <= 150 Then
ActiveSheet.Range("C" & m).Value = ("Contrat à petit revenu")
ElseIf m >= 1000 Then
ActiveSheet.Range("C" & m).Value = ("Contrat à gros revenu")
Else
ActiveSheet.Range("C" & m).Value = ("Contrat à moyen revenu")
End If
Next
End Sub

Mais ça ne fonctionne pas, ça m'affiche "Contrat à petit revenu" dans toutes les cellules A2 à A23, alors que ça devrait afficher d'autre chose.

Si quelqu'un peut m'aider svp ?

Merci !!

Bonjour

A tester

Sub montant2()
Dim m As Integer
'm = Range("A2:A23").Select
  For m = 2 To 23 Step 1
    If Range("A" & m) <= 150 Then
      ActiveSheet.Range("C" & m).Value = ("Contrat à petit revenu")
    ElseIf Range("A" & m) >= 1000 Then
      ActiveSheet.Range("C" & m).Value = ("Contrat à gros revenu")
    Else
      ActiveSheet.Range("C" & m).Value = ("Contrat à moyen revenu")
    End If
  Next
End Sub

Waaw, une réponse direct et tout fonctionne !

Merci beaucoup !