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
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