Discussion :

[Basicnav]

Bonjour,

j'ai commencé une petite feuille de menu sur un document en excel 2007 qui fonctionne très bien.
Au boulot, je tente de la basculer sur une excel 2003 et j'ai une erreur "9" annoncée : 'Erreur d'éxécution '9' L'indice n'appartient pas à la selection

Voici le code qui fonctionne sous 2007 :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton2_Click()
Dim iNb As Integer
 
    With Sheets("a")
        iNb = InputBox("Imprimer Feuille N° " & _
               .Range("c3"), , .Range("c3").Value)
    End With
    Sheets(CStr(iNb)).PrintOut
 
End Sub

En déboguant, l'erreur semble venir de l'avant dernière ligne (avant le end sub)

Pouvez vous m'aider ? je ne suis pas champio du vba...

[LeForestier]

Bonjour,
Normalement un index de feuille doit être un nombre, je ne comprend d'ailleur pas que ça passe en 2007
Enlève le Cstr(
A+

[Basicnav]

Bonjour,

merci, ça fonctionne maintenant !