Discussion :

[_debutant]

Bonjour,
je suis un bleu en vba.
J'utilise dans mon job une macro qui convertis un input excel.
le nom d'une sheet à changé dans l'input , quand j'ai voulu adapté cela dans la macro en mettons le nouveau nom dans la macro
" Private Function getTemplateVersion" ,

j'ai chaqué fois reçu "error 9 :out of range" !!!!
merci d'avance pour votre secours.

_debutant.

[ouskel'n'or]

Si VB n'accepte pas un nom, change de nom... C'est quoi "getTemplateVersion", un nom de feuille ? Le nom d'un modèle existant ?

[Qwazerty]

SAlut et bienvenu parmis nous
En effet si tu as un tel message c'est que tu essais d'acceder a une sheet qui n'existe pas. Tu dis avoir changé le nom d'un sheet et ensuite d'avoir changé ce nom dans une macro, mais es tu bien d'avoir changé tous les endroits ou apparaissait ce nom de sheet.
Dans VBA fait une recherche Ctrl+F tape l'ancien nom de ta sheet, et coche l'option "Dans tout le projet en cours" et aller, comme ca tu sera sur que l'ancien nom ne traine nullpart et si tu le retrouve ... ben tu le change
A++
Qwaz

[_debutant]

En fait , le nom qui a changé dans le fichier excel input de la macro est le nom de la sheet) (I_C est devenu summary) .
je l'es changé partout dans la macro (donc, I_C devient partout summary)

voici un bout de macro :
---

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Function getTemplateVersion(wb As Workbook) As Integer 
    If wb.Worksheets(1).name = "I_C" Then 
        getTemplateVersion = 1 
    ElseIf wb.Worksheets(1).name = "STATS" Then 
        getTemplateVersion = 2 
    End If 
End Function

---
run -> out of range !! je ne comprend pas . est ce un probléme de déclaration du nom de la sheet ,si c'es le cas où en définit ce paramétre, pour la changé?
merci d'avance.

[Singular]

As-tu vérifié si le nom de la feuille est bien en lettres minuscules comme dans tes modifs? D'après ce que je peux voir, les noms étaient en majuscules à l'origine...

[Pierre Fauconnier]

Bonsoir

Les noms des feuilles n'ont aucun rapport avec le problème.

Si aucune feuille ne porte un des deux noms, la fonction renverra simplement 0.

Le problème vient du fait que, à mon avis, tu n'as aucune feuille de calcul dans le classeur que tu passes en paramètres.

Peut-être celui-ci est-il seulement constitué de feuilles graphiques et/ou de feuilles de macros Excel 4.0 et/ou de feuilles de "boite de dialogue"...

Remplace ton code par celui-ci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Public Function getTemplateVersion(wb As Workbook) As Integer
    If wb.Sheets(1).Name = "I_C" Then
        getTemplateVersion = 1
    ElseIf wb.Sheets(1).Name = "STATS" Then
        getTemplateVersion = 2
    End If
End Function

C'est-à-dire Worksheets par Sheets et tu ne devrais plus avoir de problème.