Variable objet ou variable de bloc With non définie

Le 16/12/2016 à 10:42

Bonjour,

J'ai un code, cependant j'ai un message d'erreur me disant "Variable objet ou variable de bloc With non définie"

Comment cela se fait-il ?

Voici le code :

Public Sub Delete_Worksheets()

Dim ws As Worksheet

With Application

.DisplayAlerts = False

.ScreenUpdating = False

End With

Select Case ws.Name

Case "Accueil", "Données"

' ne rien faire

Case Else

' supprime la feuille

ws.Delete

End Select

End Sub

Merci d'avance

Le 16/12/2016 à 11:08

svp

Le 16/12/2016 à 12:04

Personne pour résoudre mon petit problème.

Le 16/12/2016 à 14:23

Le 16/12/2016 à 14:39

Bonjour,

déjà tu indenterais ton code et tu utiliserais les balises Code du site pour un affichage propre tu aurais sans doute plus de lecteurs...

avec ws=nothing qu'espères-tu avoir d'autre qu'une erreur ?

Tu crois qu'excel voit le nom de la feuille que tu regardes ?

eric

Le 16/12/2016 à 15:06

Public Sub Delete_Worksheets()

     Dim ws As Worksheet

     With Application
          .DisplayAlerts = False
          .ScreenUpdating = False
     End With

     Select Case ws.Name
          Case "Accueil", "Données"
          ' ne rien faire
     Case Else
          ' supprime la feuille

     ws.Delete

     End Select

End Sub

Voilà le code mieux présenté.

Par contre je ne comprends pas ta remarque ?

Merci

Le 16/12/2016 à 15:11

Select Case ws.Name

Tu n'as pas initialisé ws, il est donc vide et ne correspond à aucune feuille, ws.name ne peut que te retourner une erreur.

Le 16/12/2016 à 15:21

eriiic a écrit :
Select Case ws.Name
Tu n'as pas initialisé ws, il est donc vide et ne correspond à aucune feuille, ws.name ne peut que te retourner une erreur.

Il est bien là mon problème, je sais que pour initialiser une variable je dois utiliser le mot set,mais comment je sais quelle feuille je dois lui donner.

Le 16/12/2016 à 15:26

Salut Eriic,

Il manque la boucle For Each... Et je dois dire que je ne m'en étais pas rendu compte jusqu'à présent !

Mais ce qui se passe, c'est que l'intéressé (un nom à retenir !) a des explications pour le moins pas très explicites, alors on fait des hypothèses... et quand on lui demande son classeur pour y voir plus clair, réaction rapide : il ouvre un nouveau sujet dérivé !

Celui-ci est le 3e ! (et je ne suis pas vraiment sûr qu'il n'y en aurait pas d'antérieur...)

Je salue également Jean-Eric.

Pour qui sera le sujet suivant ?

Bonne journée.

Le 16/12/2016 à 15:28

MFerrand a écrit :
Salut Eriic,
Il manque la boucle For Each... Et je dois dire que je ne m'en étais pas rendu compte jusqu'à présent !
Mais ce qui se passe, c'est que l'intéressé (un nom à retenir !) a des explications pour le moins pas très explicites, alors on fait des hypothèses... et quand on lui demande son classeur pour y voir plus clair, réaction rapide : il ouvre un nouveau sujet dérivé !
Celui-ci est le 3e ! (et je ne suis pas vraiment sûr qu'il n'y en aurait pas d'antérieur...)
Je salue également Jean-Eric.
Pour qui sera le sujet suivant ?
Bonne journée.

Pourrais-tu m'en dire plus sur la boucle For each ? où dois-je la mettre ?

Si vous trouvez que je suis pénible je m'en excuse mais c'est un problème que j'ai depuis pas mal de temps et je n'arrive pas à le définir clairement.

En tout cas merci.

Le 16/12/2016 à 15:59