probleme lancement macro

[wrap food]

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

 

[Pierrot93]

Re : probleme lancement macro

Bonjour,

ce code fonctionne chez moi placé dans un module standard.... Où est placé ton code ? Attention tu as une espace au niveau de la ligne 219... peut être la raison....

bonne soirée
@+

 

[wrap food]

Re : probleme lancement macro

merci pierrot 93

en effet, si je mets la macro sur un autre dossier sa fonctionne.
mais si tu as l'explication du blocage cela m'arengeré

 

[wrap food]

Re : probleme lancement macro

re bonsoir
en faite j'ai deux version d'excel est cela ne fonctionne pas sur 2003
est ce que ça peut etres sa

 

[Pierrot93]

Re : probleme lancement macro

Re

perso j'avais testé cette ligne sous 2003... et pas de problème après rajout de l'espace...

 

[tbft]

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é!!!