probleme lancement macro

wrap food

XLDnaute Occasionnel
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
 

tbft

XLDnaute Accro
Re : probleme lancement macro

bonjour

il me semble que le code la macro pourrait être simplifié...
si cela tu souhaite que je regarde, pourrais tu me faire un fichier (avec des données bidons) pour que je puisse essayé!!!
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 948
Membres
101 849
dernier inscrit
florentMIG