Discussion :

[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 :

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

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 :

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

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,

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 :

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

Dim sheet As Integer

va poser problème au moment du

Code :

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

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:

Envoyé par Daniel.C
De plus, "sheet" est un mot VBA. Tu devrais en utiliser un autre.
Je ne crois pas.

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 :

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

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.