J'ai une solution, cependant, je pense que l'on peut faire plus court :
Dim sh As Worksheet, bI As Boolean, MaFeuille As String
MaFeuille = "Feuil1"
For Each sh In ActiveWorkbook.Sheets If sh.Name = MaFeuille Then bI = True Next
If bI Then MsgBox "La feuille existe" Else MsgBox "La feuille n'existe pas" End If
En attendant mieux, ça marche !
Bruno
"JEAN" a écrit dans le message de news:
bjr
comment en vba faire une condition et dire si cette feuille existe alors faire ..........
else ...
merci
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
"JEAN" a écrit dans le message de news:
bjr
comment en vba faire une condition et dire si cette feuille existe alors faire
..........
else ...
merci
'''''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
"JEAN" <JEAN@discussions.microsoft.com> a écrit dans le message de
news:E9F26577-8274-41C6-94A5-631F6226B063@microsoft.com...
bjr
comment en vba faire une condition et dire si cette feuille existe alors
faire
'''''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
"JEAN" a écrit dans le message de news:
bjr
comment en vba faire une condition et dire si cette feuille existe alors faire