AlainTech Pas trouvé? Cherche encore! | marcodeloris a écrit :
Sub ESSAI()
'
' ESSAI Macro
' ActiveSheet.Unprotect
Rows("32:41" ).Select Selection.EntireRow.Hidden = True Range("F31" ).Select
ActiveCell.FormulaR1C1 = "NON"
Range("F42" ).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
MERCI ALAIN
|
Sub ESSAI()
'
' ESSAI Macro
' ActiveSheet.Unprotect ("LUMIERE" )
Rows("32:41" ).EntireRow.Hidden = True
[F31] = "NON"
[F42].Select
ActiveSheet.Protect ("LUMIERE" )
End Sub |
Besogne mâchée et petit nettoyage pour la clarté du code  Message édité par AlainTech le 25-03-2005 à 09:27:58 ---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
|