vba erreur out of range Fermé

Question

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
    

Configuration: Windows XP / Internet Explorer 6.0

Krysstof · Answer

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?

Polux31 · Answer

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

Vba erreur out of range

2 réponses

Discussions similaires