Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel [VBA] Gestion d'erreur

[VBA] Gestion d'erreur

11 réponses
Avatar
Fabrice
Bonjour,

comment gérer l'erreur d'activation d'une feuille d'un classeur qui n'existe
pas?
Je connais le nom de la feuille

Merci bcp
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
ChrisV
Bonjour Fabrice,

Sub zaza()
Dim wsH As Worksheet
On Error Resume Next
Set wsH = Worksheets("MPFE")
On Error GoTo 0
If wsH Is Nothing Then MsgBox "Cette feuille n'existe pas...!"
Set wsH = Nothing
End Sub


ChrisV


"Fabrice" a écrit dans le message de news:
ON$
Bonjour,

comment gérer l'erreur d'activation d'une feuille d'un classeur qui
n'existe pas?
Je connais le nom de la feuille

Merci bcp




Avatar
isabelle
bonjour Fabrice,

On Error Resume Next
Set ff = Sheets("Feuil5")
If ff Is Nothing Then
MsgBox "n'existe pas"
Else
ff.select
End If

isabelle


Bonjour,

comment gérer l'erreur d'activation d'une feuille d'un classeur qui n'existe
pas?
Je connais le nom de la feuille

Merci bcp




Avatar
Fabrice
Merci Isabelle

Je suis débutant et le débogueur m'indique que ff est une variable inconnue

Quid ?

Merci
"isabelle" a écrit dans le message de news:

bonjour Fabrice,

On Error Resume Next
Set ff = Sheets("Feuil5")
If ff Is Nothing Then
MsgBox "n'existe pas"
Else
ff.select
End If

isabelle


Bonjour,

comment gérer l'erreur d'activation d'une feuille d'un classeur qui
n'existe pas?
Je connais le nom de la feuille

Merci bcp





Avatar
ChrisV
On Error GoTo 0
à supprimer oeuf corse... (résidu de tests...)



ChrisV


"ChrisV" a écrit dans le message de news:
%
Bonjour Fabrice,

Sub zaza()
Dim wsH As Worksheet
On Error Resume Next
Set wsH = Worksheets("MPFE")
On Error GoTo 0
If wsH Is Nothing Then MsgBox "Cette feuille n'existe pas...!"
Set wsH = Nothing
End Sub


ChrisV


"Fabrice" a écrit dans le message de news:
ON$
Bonjour,

comment gérer l'erreur d'activation d'une feuille d'un classeur qui
n'existe pas?
Je connais le nom de la feuille

Merci bcp








Avatar
isabelle
il faut déclarer cette variable par,

Dim ff As Worksheet

isabelle


Merci Isabelle

Je suis débutant et le débogueur m'indique que ff est une variable inconnue

Quid ?

Merci
"isabelle" a écrit dans le message de news:


bonjour Fabrice,

On Error Resume Next
Set ff = Sheets("Feuil5")
If ff Is Nothing Then
MsgBox "n'existe pas"
Else
ff.select
End If

isabelle



Bonjour,

comment gérer l'erreur d'activation d'une feuille d'un classeur qui
n'existe pas?
Je connais le nom de la feuille

Merci bcp









Avatar
anonymousA
enlève le Option explicit en haut de ton module ou décoche dans
Outils/options/Editeur/Déclaration des variables onligatoire ou dasn la proc
qui t'a été communiquée ércis dim ff as worksheet.

A+


Merci Isabelle

Je suis débutant et le débogueur m'indique que ff est une variable inconnue

Quid ?

Merci
"isabelle" a écrit dans le message de news:

bonjour Fabrice,

On Error Resume Next
Set ff = Sheets("Feuil5")
If ff Is Nothing Then
MsgBox "n'existe pas"
Else
ff.select
End If

isabelle


Bonjour,

comment gérer l'erreur d'activation d'une feuille d'un classeur qui
n'existe pas?
Je connais le nom de la feuille

Merci bcp









Avatar
papou
Bonjour
Bon sinon une petite fonction ?
Function FeuilleExiste(F As String) As Boolean
On Error Resume Next
Set Feuille = ActiveWorkbook.Worksheets(F)
FeuilleExiste = Err = 0
Err.Clear
End Function

Sub testIT()
MsgBox FeuilleExiste("zozo")
End Sub

Cordialement
Pascal

"Fabrice" a écrit dans le message de
news:ON$
Bonjour,

comment gérer l'erreur d'activation d'une feuille d'un classeur qui
n'existe

pas?
Je connais le nom de la feuille

Merci bcp




Avatar
Pierre CFI [mvp]
bonjour
chacun vit sa vie, mais il est préférable de garder option explicit et de déclarer les variables
Isabelle deuxiéme victime du printemps (after jps) à rectifié son oubli

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"anonymousA" a écrit dans le message de
news:
enlève le Option explicit en haut de ton module ou décoche dans
Outils/options/Editeur/Déclaration des variables onligatoire ou dasn la proc
qui t'a été communiquée ércis dim ff as worksheet.

A+


Merci Isabelle

Je suis débutant et le débogueur m'indique que ff est une variable inconnue

Quid ?

Merci
"isabelle" a écrit dans le message de news:

bonjour Fabrice,

On Error Resume Next
Set ff = Sheets("Feuil5")
If ff Is Nothing Then
MsgBox "n'existe pas"
Else
ff.select
End If

isabelle


Bonjour,

comment gérer l'erreur d'activation d'une feuille d'un classeur qui
n'existe pas?
Je connais le nom de la feuille

Merci bcp











Avatar
anonymousA
bonjour,

je suis bien d'accord !


bonjour
chacun vit sa vie, mais il est préférable de garder option explicit et de déclarer les variables
Isabelle deuxiéme victime du printemps (after jps) à rectifié son oubli

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"anonymousA" a écrit dans le message de
news:
enlève le Option explicit en haut de ton module ou décoche dans
Outils/options/Editeur/Déclaration des variables onligatoire ou dasn la proc
qui t'a été communiquée ércis dim ff as worksheet.

A+


Merci Isabelle

Je suis débutant et le débogueur m'indique que ff est une variable inconnue

Quid ?

Merci
"isabelle" a écrit dans le message de news:

bonjour Fabrice,

On Error Resume Next
Set ff = Sheets("Feuil5")
If ff Is Nothing Then
MsgBox "n'existe pas"
Else
ff.select
End If

isabelle


Bonjour,

comment gérer l'erreur d'activation d'une feuille d'un classeur qui
n'existe pas?
Je connais le nom de la feuille

Merci bcp
















Avatar
Fabrice
Merci bcp
"ChrisV" a écrit dans le message de news:
%
On Error GoTo 0
à supprimer oeuf corse... (résidu de tests...)



ChrisV


"ChrisV" a écrit dans le message de news:
%
Bonjour Fabrice,

Sub zaza()
Dim wsH As Worksheet
On Error Resume Next
Set wsH = Worksheets("MPFE")
On Error GoTo 0
If wsH Is Nothing Then MsgBox "Cette feuille n'existe pas...!"
Set wsH = Nothing
End Sub


ChrisV


"Fabrice" a écrit dans le message de news:
ON$
Bonjour,

comment gérer l'erreur d'activation d'une feuille d'un classeur qui
n'existe pas?
Je connais le nom de la feuille

Merci bcp












1 2