Re : Demande débogage commande Worksheet
Désolé, ça ne fonctionne pas.
je ne sais pas si le "etc. doit être complété par quelque chose.
à tout hasard, j'ai remplacé "etc." en réécrivant une 2ème fois :
Me.Unprotect "XXX"
Range("39:67").EntireRow.Hidden = IIf(R = "Non", 1, 0)
Range("70:79").EntireRow.Hidden = IIf(R = "Non", 1, 0)
Me.Protect "XXX"
mais ça ne fonctionne pas non plus
ça donne ça :
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$D$38":
Me.Unprotect "XXX"
Range("39:67").EntireRow.Hidden = IIf(R = "Non", 1, 0)
Range("70:79").EntireRow.Hidden = IIf(R = "Non", 1, 0)
Me.Protect "XXX"
Case "$D$69":
Me.Unprotect "XXX"
Range("39:67").EntireRow.Hidden = IIf(R = "Non", 1, 0)
Range("70:79").EntireRow.Hidden = IIf(R = "Non", 1, 0)
Me.Protect "XXX"
End Select
End Sub
Si ce n'est pas trop demandé, peut-être pourriez-vous me renvoyer mon fichier exemple avec la vba complétée et je la recopierai. Merci.
cordialement,
patrick