Bonjour j'aurai besoin de vos lumières.
Ci joint la macro créée
Private Sub Worksheet_Activate()
End Sub
Sub Macro1()
Range("E5").Select
ActiveCell.FormulaR1C1 = "1"
Range("A30:G35").Select
With Selection.Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ActiveWindow.SmallScroll Down:=15
Range("A46:G51").Select
With Selection.Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ActiveWindow.SmallScroll Down:=-24
Range("E7").Select
End Sub
Sub Macro2()
Range("E5").Select
Selection.ClearContents
Range("A30:G35").Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("C31:C32,C34").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 13434828
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("A46:G51").Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("C47:C48,C50").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 13434828
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("E7").Select
End Sub
Vous remarquerez que j'ai essayer de l'automatiser mais sans succès !
D'autre part, au lieu de coloré la plage de cellule, au moment ou le chiffre 1 est saisi, je souhaiterai qu'aucune données ne puissent être inscrite, sachant que le classeur est déjà verrouillé.
D'autre part, la macro 2 inverse se phénomène.
Donc en résumant si E5=1 => blocage des cellules, si la case E5=vide ou 0 déverrouillage des cellules.
J’espère avoir été clair et avoir une réponse de votre part.
D'avance merci
Ci joint la macro créée
Private Sub Worksheet_Activate()
End Sub
Sub Macro1()
Range("E5").Select
ActiveCell.FormulaR1C1 = "1"
Range("A30:G35").Select
With Selection.Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ActiveWindow.SmallScroll Down:=15
Range("A46:G51").Select
With Selection.Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ActiveWindow.SmallScroll Down:=-24
Range("E7").Select
End Sub
Sub Macro2()
Range("E5").Select
Selection.ClearContents
Range("A30:G35").Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("C31:C32,C34").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 13434828
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("A46:G51").Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("C47:C48,C50").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 13434828
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("E7").Select
End Sub
Vous remarquerez que j'ai essayer de l'automatiser mais sans succès !
D'autre part, au lieu de coloré la plage de cellule, au moment ou le chiffre 1 est saisi, je souhaiterai qu'aucune données ne puissent être inscrite, sachant que le classeur est déjà verrouillé.
D'autre part, la macro 2 inverse se phénomène.
Donc en résumant si E5=1 => blocage des cellules, si la case E5=vide ou 0 déverrouillage des cellules.
J’espère avoir été clair et avoir une réponse de votre part.
D'avance merci