[XL-2003] Erreur : Objet requis

[Sylas]

Bonjour, voilà, j'ai un problème sur mon programme, quand je l'exécute, il me met " Erreur : Objet Requis " mais je ne comprends pas à quoi ça correspond. Voilà la partie qui bug :

Code :

1
2
3
4
5
Private Sub Delete_Click()
Dim sheet As Integer
Set sheet = Sheets(Cbb_ListeSheet)
sheet.Value.Del
End Sub

Merci d'avance !

[Daniel.C]

Bonjour,

Si "Cbb_ListeSheet" est le nom de la feuille, il faut le mettre entre guillemets :

Code :

1
2
3
4
5
Private Sub Delete_Click()
Dim sheet As Integer
Set sheet = Sheets("Cbb_ListeSheet")
sheet.Value.Del
End Sub

De plus, "sheet" est un mot VBA. Tu devrais en utiliser un autre.

[AlainTech]

Bonjour,

Envoyé par Daniel.C

De plus, "sheet" est un mot VBA. Tu devrais en utiliser un autre.

Je ne crois pas.
Sheets en est est un mais pas Sheet.

Par contre,

Code :

Dim sheet As Integer

va poser problème au moment du

Code :

Set sheet =

car le Set attend un objet et Integer n'est pas un type objet.
D'où le message d'erreur.

[Daniel.C]

Citation:

C'est une propriété utilisée entre autres par ChartView. Le mot n'est peut-être pas réservé, mais je commets assez d'erreurs pour éviter d'utiliser ceux susceptibles d'en provoquer

[AlainTech]

Ah, je vois qu'on saute sur la balle

Tu as tout à fait raison.

Pour ma part, il y a peu de chance que j'utilise des mots réservés puisque je préfixe toutes mes variables de leur type:

Code :

1
2
3
4
Dim strFileName As String
Dim dteToday As Date
Dim lngRow As Long
' ...

[Daniel.C]

A chacun sa méthode. La tienne est la plus rationnelle et apparemment largement employée chez les anglo-saxons. Perso, j'emploie des mots français qui ont peu de chances de se retrouver dans VBA.