Bonjour à tous,
Encore une fois j'ai un petit problème.
j'ai une macro voir ci-dessousqui fonction depuis VBA mais qui bloc sur la 11 Ligne quand je la lance depuis un bouton sur une feuille.
Quelqu'un a t-il une idée.
Sub REPAS_PLUS()
'
' REPAS_PLUS Macro
' Macro enregistrée le 01/06/2009 par PORTABLE_PATRICK
'
'
1 'ActiveSheet.Unprotect ("fldp")
2 Range("M6").Select
3 ActiveCell.FormulaR1C1 = "=TODAY()"
4 Application.CutCopyMode = False
5 Selection.Copy
6 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
7 :=False, Transpose:=False
8 Range("M6").Select
9 Range("205:205").Select
10 Selection.RowHeight = 25.1
11 Range( _
"206:209,210:210,212:212,213:213,215:215,217:217,219:219,221:221,223:223,226:226" _
).Select
Range("A226").Activate
ActiveWindow.SmallScroll Down:=21
Range( _
"206:209,210:210,212:212,213:213,215:215,217:217,219:219,221:221,223:223,226:226,227:227,228:228,230:230,232:232,234:234,236:236,238:238,240:240,242:257,259:259,261:261,262:265" _
).Select
Range("A262").Activate
ActiveWindow.SmallScroll Down:=18
Range( _
"206:209,210:210,212:212,213:213,215:215,217:217,219:219,221:221,223:223,226:226,227:227,228:228,230:230,232:232,234:234,236:236,238:238,240:240,242:257,259:259,261:261,262:265,266:266" _
).Select
Range("A266").Activate
ActiveWindow.SmallScroll Down:=-36
Selection.RowHeight = 17
ActiveWindow.SmallScroll Down:=-51
Range("211:211,214:214,216:216,218:218,220:220,222:222,224:225").Select
Range("A224").Activate
ActiveWindow.SmallScroll Down:=18
Range( _
"211:211,214:214,216:216,218:218,220:220,222:222,224:225,229:229,231:231,233:233,235:235,237:237,239:239,241:241" _
).Select
Range("A241").Activate
ActiveWindow.SmallScroll Down:=18
Range( _
"211:211,214:214,216:216,218:218,220:220,222:222,224:225,229:229,231:231,233:233,235:235,237:237,239:239,241:241,258:258,260:260" _
).Select
Range("A260").Activate
Selection.RowHeight = 6
Selection.RowHeight = 7
Selection.RowHeight = 6
ActiveWindow.SmallScroll Down:=-48
Rows("247:247").Select
Selection.RowHeight = 6
Rows("250:250").Select
Selection.RowHeight = 6
Rows("253:253").Select
Selection.RowHeight = 6
Range("B228").Select
ActiveSheet.Protect ("fldp")
End Sub
Par avance merci
Encore une fois j'ai un petit problème.
j'ai une macro voir ci-dessousqui fonction depuis VBA mais qui bloc sur la 11 Ligne quand je la lance depuis un bouton sur une feuille.
Quelqu'un a t-il une idée.
Sub REPAS_PLUS()
'
' REPAS_PLUS Macro
' Macro enregistrée le 01/06/2009 par PORTABLE_PATRICK
'
'
1 'ActiveSheet.Unprotect ("fldp")
2 Range("M6").Select
3 ActiveCell.FormulaR1C1 = "=TODAY()"
4 Application.CutCopyMode = False
5 Selection.Copy
6 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
7 :=False, Transpose:=False
8 Range("M6").Select
9 Range("205:205").Select
10 Selection.RowHeight = 25.1
11 Range( _
"206:209,210:210,212:212,213:213,215:215,217:217,219:219,221:221,223:223,226:226" _
).Select
Range("A226").Activate
ActiveWindow.SmallScroll Down:=21
Range( _
"206:209,210:210,212:212,213:213,215:215,217:217,219:219,221:221,223:223,226:226,227:227,228:228,230:230,232:232,234:234,236:236,238:238,240:240,242:257,259:259,261:261,262:265" _
).Select
Range("A262").Activate
ActiveWindow.SmallScroll Down:=18
Range( _
"206:209,210:210,212:212,213:213,215:215,217:217,219:219,221:221,223:223,226:226,227:227,228:228,230:230,232:232,234:234,236:236,238:238,240:240,242:257,259:259,261:261,262:265,266:266" _
).Select
Range("A266").Activate
ActiveWindow.SmallScroll Down:=-36
Selection.RowHeight = 17
ActiveWindow.SmallScroll Down:=-51
Range("211:211,214:214,216:216,218:218,220:220,222:222,224:225").Select
Range("A224").Activate
ActiveWindow.SmallScroll Down:=18
Range( _
"211:211,214:214,216:216,218:218,220:220,222:222,224:225,229:229,231:231,233:233,235:235,237:237,239:239,241:241" _
).Select
Range("A241").Activate
ActiveWindow.SmallScroll Down:=18
Range( _
"211:211,214:214,216:216,218:218,220:220,222:222,224:225,229:229,231:231,233:233,235:235,237:237,239:239,241:241,258:258,260:260" _
).Select
Range("A260").Activate
Selection.RowHeight = 6
Selection.RowHeight = 7
Selection.RowHeight = 6
ActiveWindow.SmallScroll Down:=-48
Rows("247:247").Select
Selection.RowHeight = 6
Rows("250:250").Select
Selection.RowHeight = 6
Rows("253:253").Select
Selection.RowHeight = 6
Range("B228").Select
ActiveSheet.Protect ("fldp")
End Sub
Par avance merci