Christophe
XLDnaute Occasionnel
Bonjour,
Je balbutie mes premiers codes sous VBA, avec plus ou moins de réussite.
Le code que j'utilise ci-dessous ne s'arrête pas sauf si je le fais planter par 'Echap'.
Qqun pourrait-il me dire / m'expliquer pourquoi et surtout comment corriger.
Merci par avance. Bon dimanche.
Christophe
Private Sub WorkSheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range('K8')) Is Nothing Then
With Range('k8')
If .Value 0 Then Range('H8').Select
If Len(Range('H8')) > 0 Then Range('H10').Select
If Len(Range('H10')) > 0 Then Range('H11').Select
If Len(Range('H11')) > 0 Then Range('H15').Select
If Len(Range('H15')) > 0 Then Range('H17').Select
If Range('H17') > Range('bZ23') Then Range('H17') = Range('BZ23')
With Range('H17')
If Range('H17').Value > 0.1 Then
Range('K10') = '9999'
Range('k11') = '8888'
End If
End With
End Sub
Je balbutie mes premiers codes sous VBA, avec plus ou moins de réussite.
Le code que j'utilise ci-dessous ne s'arrête pas sauf si je le fais planter par 'Echap'.
Qqun pourrait-il me dire / m'expliquer pourquoi et surtout comment corriger.
Merci par avance. Bon dimanche.
Christophe
Private Sub WorkSheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range('K8')) Is Nothing Then
With Range('k8')
If .Value 0 Then Range('H8').Select
If Len(Range('H8')) > 0 Then Range('H10').Select
If Len(Range('H10')) > 0 Then Range('H11').Select
If Len(Range('H11')) > 0 Then Range('H15').Select
If Len(Range('H15')) > 0 Then Range('H17').Select
If Range('H17') > Range('bZ23') Then Range('H17') = Range('BZ23')
With Range('H17')
If Range('H17').Value > 0.1 Then
Range('K10') = '9999'
Range('k11') = '8888'
End If
End With
End Sub