Optimisation structure Select Case
Bonjour à tous,
Je suis en train d’optimiser mon code If Then qui inclut Select case. Le code était trop long et j’ai obtenu une erreur 28 espace pile insuffisant. J’optimise donc mon code pour libérer le mémoire. Quand j’écris Target.Adress = une cellule par exemple"$C$10" tout fonctionne. Mais dès que j’ai essayé d’écrire plusieurs adresses "$D$10:$J$10" le code ne fonctionne plus
En effet j’utilise la même liste déroulante pour les cellules D10 :J10 et je veux donc utiliser Select Case en indiquent toutes les cellules en même temps afin d’éviter de les retaper à chaque fois en changeant juste une lettre et de libérer le mémoire
Et voici un extrait de mon code dans lequel je n’arrive pas à trouver l’erreur : Pourriez-vous m’aider une fois de plus svp ?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$C$10" Then
Select Case Target.Value
Case 0.03: Range("C11").Value = 0.020
Range("C18").Value = 1.05
Case 0.04: Range("C11").Value = 0.020
Range("C18").Value = 1.4
Case 0.05: Range("C11").Value = 0.020
Range("C18").Value = 1.75
Case Else: Range("C10").Value = ""
Range("C11").Value = ""
'Range("C23").Value = ""
End Select
ElseIf Target.Address = "$D$10:$J$10" Then
Select Case Target.Value
Case 0.04: Range("D11").Value = 0.02
Range("E11").Value = 0.020
Range("F11").Value = 0.020
Range("G11").Value = 0.020
Range("H11").Value = 0.020
Range("I11").Value = 0.020
Range("J11").Value = 0.020
Case 0.045: Range("D11").Value = 0.020
Range("E11").Value = 0.020
Range("F11").Value = 0.020
Range("G11").Value = 0.020
Range("H11").Value = 0.020
Range("I11").Value = 0.020
Range("J11").Value = 0.020
Case 0.06: Range("D11").Value = 0.020
Range("E11").Value = 0.021
Range("F11").Value = 0.021
Range("G11").Value = 0.021
Range("H11").Value = 0.021
Range("I11").Value = 0.021
Range("J11").Value = 0.021
Case Else: Range("D11:J11").Value = ""
Range("D11:J11").Value = ""
End Select
End If
End Sub
Merci en avance !
Bonjour,
Merci de joindre un fichier.
Et voici mon code qui se trouve tout au début du document car après j'utilise les formules
merci encore