1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
|
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("I18")) Is Nothing Then
With Application
ecocheque = .Index(Sheets("Commissions Paritaires").Range("A2:C399"), .Match(Range("I18"), Sheets("Commissions Paritaires").Range("A2:A399"), 0), 4)
KKP = .Index(Sheets("Commissions Paritaires").Range("A2:C399"), .Match(Range("I18"), Sheets("Commissions Paritaires").Range("A2:A399"), 0), 5)
End With
If UCase(ecocheque) <> "OUI" Then
' Désactivation des réponses de la question Vastefee/uur
Me.VasteFeeNA.Enabled = False
Me.VasteFeeWB.Enabled = False
Me.VasteFeeGV.Enabled = False
' Mise à zéro de la valeur des réponses
Me.VasteFeeNA.Value = False
Me.VasteFeeWB.Value = False
Me.VasteFeeGV.Value = False
' Mise en blanc de cette ligne
Reponse = "VasteFeeRAZ"
Range(Sheets("Parameters").Range(ColDebut).Value & LigneCrt & ":" & _
Sheets("Parameters").Range(ColFin).Value & LigneCrt).Interior.Color = RGB(255, 255, 255)
End If
If UCase(KKP) <> "OUI" Then
' Désactivation des réponses de la question Vastefee/uur
Me.KoopKrachtPremieB.Enabled = False
Me.KoopKrachtPremieNA.Enabled = False
Me.KoopKrachtPremieGV.Enabled = False
' Mise à zéro de la valeur des réponses
Me.KoopKrachtPremieB.Value = False
Me.KoopKrachtPremieNA.Value = False
Me.KoopKrachtPremieGV.Value = False
' Mise en blanc de cette ligne
Reponse = "KoopKrachtPremieRAZ"
Range(Sheets("Parameters").Range(ColDebut).Value & LigneCrt & ":" & _
Sheets("Parameters").Range(ColFin).Value & LigneCrt).Interior.Color = RGB(255, 255, 255)
End If
End If
End Sub |
Partager