ChantalTreize
XLDnaute Occasionnel
Bonsoir à tous & à toutes,
J'ai un tableau avec une macro pour bloquer certaines cellules, ça fonctionne très bien sur mon pc (excel 365)
Mais lorsque je l'envoie chez le client qui est en excel 2010 la macro suivante ne fonctionne pas:
Sub Protec_grille()
'
' Protec_grille Macro
'
' Touche de raccourci du clavier: Ctrl+f
'
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("AR33:AT33").Select
ActiveCell.FormulaR1C1 = "1"
Range("AR33:AT33").Select
Selection.ClearContents
Range("BQ32:BU32").Select
ActiveCell.FormulaR1C1 = "2"
Range("BQ32:BU32").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=165
Range("AE205:AG205").Select
ActiveCell.FormulaR1C1 = "-10"
Range("AE205:AG205").Select
Selection.ClearContents
Range("AO213:AS213").Select
ActiveCell.FormulaR1C1 = "2"
Range("AO213:AS213").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-255
End Sub
Quelqu'un pourrait il me dire s'il y a un problème dans cette macro
Merci d'avance
Chantal
J'ai un tableau avec une macro pour bloquer certaines cellules, ça fonctionne très bien sur mon pc (excel 365)
Mais lorsque je l'envoie chez le client qui est en excel 2010 la macro suivante ne fonctionne pas:
Sub Protec_grille()
'
' Protec_grille Macro
'
' Touche de raccourci du clavier: Ctrl+f
'
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("AR33:AT33").Select
ActiveCell.FormulaR1C1 = "1"
Range("AR33:AT33").Select
Selection.ClearContents
Range("BQ32:BU32").Select
ActiveCell.FormulaR1C1 = "2"
Range("BQ32:BU32").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=165
Range("AE205:AG205").Select
ActiveCell.FormulaR1C1 = "-10"
Range("AE205:AG205").Select
Selection.ClearContents
Range("AO213:AS213").Select
ActiveCell.FormulaR1C1 = "2"
Range("AO213:AS213").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-255
End Sub
Quelqu'un pourrait il me dire s'il y a un problème dans cette macro
Merci d'avance
Chantal