slaurent01
XLDnaute Junior
bonsoir à tous,
Je suis débutant en programmation vba et j'essaie de creer un programme de devis. J'ai le code suivant qui sert à déterminer un temps de calage en fonction d'un nombre de couleurs. Le code fonctionne mais je souhaiterai savoir s'il existe une méthode plus efficace et surtout plus rapide pour l'écrire.
Par avance je vous remercie
Cordialement
stéphane
Je suis débutant en programmation vba et j'essaie de creer un programme de devis. J'ai le code suivant qui sert à déterminer un temps de calage en fonction d'un nombre de couleurs. Le code fonctionne mais je souhaiterai savoir s'il existe une méthode plus efficace et surtout plus rapide pour l'écrire.
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'selon le nombre de couleurs saisies en b1, on va déterminer un temps de calage
If Range("b1") = 0 Then
Range("a4").Value = 30
Else
If Range("b1") = 1 Then
Range("a4").Value = 30
Else
If Range("b1") = 2 Then
Range("a4").Value = 45
Else
If Range("b1") = 3 Then
Range("a4").Value = 60
Else
If Range("b1") = 4 Then
Range("a4").Value = 75
Else
If Range("b1") = 5 Then
Range("a4").Value = 75
Else
If Range("b1") = 6 Then
Range("a4").Value = 105
Else
If Range("b1") = 7 Then
Range("a4").Value = 120
Else
If Range("b1") = 8 Then
Range("a4").Value = 135
Else
If Range("b1") > 8 Then
MsgBox ("Vous devez saisir un nombre de couleurs compris entre 0 et 8")
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub
Par avance je vous remercie
Cordialement
stéphane