Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel tester existance feuille

tester existance feuille

2 réponses
Avatar
Emcy
Bonjours,

comment faire pour savoir si la feuille toto existe ?
Signaler un problème avec ce contenu

2 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
Avatar
denis P
'''''Denis Pasquier 2-2-2001''''
''' teste si une feuille existe'''
Option Explicit

Sub teste()
Dim nomF As String

nomF = "Nom_de_ta_feuille"
If F_existe(nomF) Then
MsgBox "La feuille " & nomF & " existe"
Else
MsgBox "La feuille " & nomF & " existe PAS"
End If
End Sub

Function F_existe(NomFeuille As String) As Boolean
Dim F As Worksheet
On Error Resume Next
Set F = Worksheets(NomFeuille)
If Err Then
F_existe = False
Else
F_existe = True
End If
On Error GoTo 0
Set F = Nothing
End Function


"Emcy" a écrit dans le message de
news:%
Bonjours,

comment faire pour savoir si la feuille toto existe ?




Avatar
Emcy
merci

"denis P" a écrit dans le message de
news:%
'''''Denis Pasquier 2-2-2001''''
''' teste si une feuille existe'''
Option Explicit

Sub teste()
Dim nomF As String

nomF = "Nom_de_ta_feuille"
If F_existe(nomF) Then
MsgBox "La feuille " & nomF & " existe"
Else
MsgBox "La feuille " & nomF & " existe PAS"
End If
End Sub

Function F_existe(NomFeuille As String) As Boolean
Dim F As Worksheet
On Error Resume Next
Set F = Worksheets(NomFeuille)
If Err Then
F_existe = False
Else
F_existe = True
End If
On Error GoTo 0
Set F = Nothing
End Function


"Emcy" a écrit dans le message de
news:%
Bonjours,

comment faire pour savoir si la feuille toto existe ?