Problème VBA

[dar0609]

Bonjour,

Je fais face à un problème que je ne comprend pas sur VBA, en effet j'essaie d'utiliser dans une boucle FOR un "select case" mais celui ne fonctionne pas. Je vous joins mon fichier ainsi que le code que j'ai utilisé pour réaliser ma tâche. Petite précision, c'est le code du "userform2" qui ne marche pas, le code se déroule sur la feuille2. En fait les cases n'affichent que les chiffres 3 et 5 mais n'affichent pas 7 et 8. Ils ne reprennent pas les dernières conditions. Merci.

Code :
Private Sub CommandButton1_Click()

Dim dernièreLigne As Integer

dernièreLigne = Cells(65536, 2).End(xlUp).Row


Dim i As Integer

For i = 3 To dernièreLigne Step 1

Select Case Cells(i, 2)


Case Is <= 6500
Cells(i, 3) = 3

Case Is > 6500, Is <= 10500
Cells(i, 3) = 5

Case Is > 10500, Is <= 15000
Cells(i, 3) = 7

Case Is > 15000
Cells(i, 3) = 8

End Select

Next

Unload Me

End Sub

 

[roro69]

Re : Problème VBA

Bonjour a essayer:

Private Sub CommandButton1_Click()

Dim dernièreLigne As Integer

dernièreLigne = Cells(65536, 2).End(xlUp).Row


Dim i As Integer

For i = 3 To dernièreLigne Step 1

Select Case Cells(i, 2)


Case 0 To 6500
Cells(i, 3) = 3

Case 6500 To 10500
Cells(i, 3) = 5

Case 10500 To 15000
Cells(i, 3) = 7

Case Is > 15000
Cells(i, 3) = 8

End Select

Next

Unload Me

End Sub

++

 

[dar0609]

Re : Problème VBA

Merci Roro ça marche!!!