Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Tester si la feuille existe

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion fred2705
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
F

fred2705

Guest
Bonjour,

ce code ci dessous me permet de mettre une alerte si il y a eut une modification sur la feuil1 ou feuil8 avant de sauvegarder

Mais se code ne fonctionne plus si je supprime la feuil8! ce qui est parfois le cas.

Est-il possible de tester si la feuille existe avant ? ou avez vous une autre solution?

Code: 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
      
If Feuil1.Range("V643") <> Feuil1.Range("O639") Then
         Cancel = True
         MsgBox "Les prix ont changés! Vous devez générer un PDF avant de sauvegarder"
     End If
 
If Feuil8.Range("V643") <> Feuil8.Range("O639") Then
         Cancel = True
         MsgBox "Les prix ont changés! Vous devez générer un PDF avant de sauvegarder"
     End If
      
End Sub


Merci pour votre aide.
 
Trier par date Trier par votes
Re : Tester si la feuille existe

Bonjour fred2705,

Si la déclaration des variables n'est pas obligatoire :

Code: 
'-----
On Error Resume Next
If IsEmpty(Feuil8) Then MsgBox "Feuil8 n'existe plus !", 48: Exit Sub
If Feuil8.Range("V643") <> Feuil8.Range("O639") Then
  Cancel = True
  MsgBox "Les prix ont changés! Vous devez générer un PDF avant de sauvegarder"
End If
Si la déclaration des variables est obligatoire, par exemple avec Option Explicit, il y aura erreur de compilation si Feuil8 n'existe pas.

Edit : bonjour mutzik

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Tester si la feuille existe

Bonjour Mutzik, Fred ,

Une autre solution sans la gestion d'erreur ....

@ Bonjour Job

Code: 
Sub test_Onglet()
Dim Onglet As Worksheet
Dim Onglet_Ok As Boolean
Dim onglet_Cherché As String

onglet_Cherché = "Feuil8"

For Each Onglet In ThisWorkbook.Worksheets
    If Onglet.Name = onglet_Cherché Then Onglet_Ok = True: Exit For
Next Onglet

If Not Onglet_Ok Then MsgBox "L'onglet " & onglet_Cherché & " n'existe pas": Exit Sub

End Sub
 
Vote positif 0 Vote négatif
Re : Tester si la feuille existe

Hello le forum,

ceci aussi:

Sub TesterSiOnglet()
Dim Lenom As String
Lenom = "Feuil23"
If Not Exists(Lenom) Then MsgBox ("L'onglet " & Lenom & " n'existe pas"): Exit Sub
Sheets(Lenom).Select
End Sub
Function Exists(TheName As String) As Boolean
On Error Resume Next
On Error Resume Next
Exists = Sheets(TheName).Name <> ""
On Error GoTo 0
End Function
 
Vote positif 0 Vote négatif
Re : Tester si la feuille existe

Bonjour à tous

Une autre solution pour tester l'existence d'une feuille (Feuil8)

Code: 
NomFeuille="Feuil8"

 If  IsError(Evaluate("='" & NomFeuille & "'!A1")) then
     msgbox "La feuille n' existe pas"
 End If

IsError... renvoie Faux si la feuille existe, vrai si elle n'existe pas

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Y
  • Résolu(e)
XL 2019 Vérification si dossier existe et création s'il n'existe pas
Réponses
3
Affichages
91
youguybass
Y
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
591
un internaute
U
U
  • Question Question
Autres Quelques fois ça bug feuilles cachées
Réponses
2
Affichages
232
cathodique
J
  • Résolu(e)
Microsoft 365 SI cellule autre feuille est égal à oui
Réponses
7
Affichages
296
juju91
J
  • Résolu(e)
XL 2016 XLS : comment savoir si un évènement SelectionChange est provoqué par le clavier ou la souris ?
2
Réponses
23
Affichages
838
SAMUAL_2023
S
  • Question Question
XL 2019 Prénoms à souhaiter
2
Réponses
15
Affichages
656
lynyrd
D
  • Question Question
Microsoft 365 VBA copier cellule, conserver la copie tout en effaçant contenu
2 3
Réponses
33
Affichages
2 K
fanch55
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
687
un internaute
U
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
561
sylvanu
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
1 K
job75
  • Question Question
XL 2010 Fonction Id existe
Réponses
13
Affichages
601
cathodique
  • Question Question
XL 2013 Sub commentaire
Réponses
2
Affichages
386
lestoiles1
  • Question Question
Microsoft 365 Tester l'existence d'un filtre dans un tableau structuré
2
Réponses
19
Affichages
2 K
TooFatBoy
P
  • Résolu(e)
Microsoft 365 Afficher ou masquer formes si une cellule est vide
Réponses
11
Affichages
620
pat66
P
T
  • Résolu(e)
XL 2019 Gestion "pseudo-évènements" sur un userform
2
Réponses
15
Affichages
1 K
ThierryP
T
P
  • Question Question
Microsoft 365 Désactivation/activation Application.CommandBars("ply").Enabled
Réponses
6
Affichages
733
pat66
P
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
640
Phil69970
M
  • Question Question
Microsoft 365 Erreur sur mon Code VBA
Réponses
2
Affichages
739
Gégé-45550
F
  • Question Question
Microsoft 365 Problème avec VBA ( Résolu)
Réponses
2
Affichages
544
firecarl
F
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…