Vba erreur out of range
samsamsam
-
Polux31 Messages postés 7219 Statut Membre -
Polux31 Messages postés 7219 Statut Membre -
Bonjour,
j'ai un problème d'out of range sur ce bout de programme, quelqu'un peut -il m'aider je suis plus que débutante
merci!!
Columns("R:R").Select
Selection.Insert Shift:=xlToRight
Range("R1").Select
ActiveCell.FormulaR1C1 = "eq mean price"
Range("R2").Select
ActiveCell.FormulaR1C1 = "=RC[7]/RC[-1]"
Range("R2").Select
Selection.AutoFill Destination:=Range("R2:R35"), Type:=xlFillDefault
Range("R2:R35").Select
Range("R1").Select
Windows("ItemCheck model Samira_modif.xls").Activate
j'ai un problème d'out of range sur ce bout de programme, quelqu'un peut -il m'aider je suis plus que débutante
merci!!
Columns("R:R").Select
Selection.Insert Shift:=xlToRight
Range("R1").Select
ActiveCell.FormulaR1C1 = "eq mean price"
Range("R2").Select
ActiveCell.FormulaR1C1 = "=RC[7]/RC[-1]"
Range("R2").Select
Selection.AutoFill Destination:=Range("R2:R35"), Type:=xlFillDefault
Range("R2:R35").Select
Range("R1").Select
Windows("ItemCheck model Samira_modif.xls").Activate
2 réponses
-
ton "out of range" doit se produire sur une ligne précise (celle qui est en jaune quand tu fais du débogage).
je paris que c'est celle la
Windows("ItemCheck model Samira_modif.xls").Activate
cette ligne assume que tu as une fenetre ouverte qui a pour titre "ItemCheck model Samira_modif.xls", si cette fenetre n'existe pas, tu auras cette erreur out of range...
est-ce cette ligne est nécessaire? -
Bonjour,
Il serait intéressant d'avoir la ligne en erreur ... parce que s'il faut faire des incantations divinatoires pour venir en aide, ça risque d'être compliqué !!!
^^
