Tester l'existence d'un onglet dans un classeur

Bonjour,

Function ExisteFeuille(f As String) As Boolean
Application.Volatile
On Error Resume Next
temp = Sheets(UCase(f)).[A1]
ExisteFeuille = (Err = 0)
End Function

Sub essai()
If Not ExisteFeuille("xxxx") Then
Sheets.Add
ActiveSheet.Name = "xxxx"
End If
End Sub

ou

Function ExisteFeuille2(f As String) As Boolean
i = 1
For i = 1 To Sheets.Count
If UCase(f) = UCase(Sheets(i).Name) Then
ExisteFeuille2 = True
End If
Next i
End Function

JB



On 16 fév, 16:23, "Jacques" <none> wrote:

Bonjour,

Je voudrais tester l'existence d'un onglet dans un classeur pour éviter de
donner le même nom (et faire échouer ainsi la macro) à une nouvelle feuille.

Comment faire?

Merci

Merci !


"JB" <boisgontier@hotmail.com> a écrit dans le message de groupe de
discussion :
1fcdac69-7544-456a-a3c0-6c524f9bb08a@n58g2000hsf.googlegroups.com...
Bonjour,

Function ExisteFeuille(f As String) As Boolean
Application.Volatile
On Error Resume Next
temp = Sheets(UCase(f)).[A1]
ExisteFeuille = (Err = 0)
End Function

Sub essai()
If Not ExisteFeuille("xxxx") Then
Sheets.Add
ActiveSheet.Name = "xxxx"
End If
End Sub

ou

Function ExisteFeuille2(f As String) As Boolean
i = 1
For i = 1 To Sheets.Count
If UCase(f) = UCase(Sheets(i).Name) Then
ExisteFeuille2 = True
End If
Next i
End Function

JB



On 16 fév, 16:23, "Jacques" <none> wrote:

Bonjour,

Je voudrais tester l'existence d'un onglet dans un classeur pour éviter de
donner le même nom (et faire échouer ainsi la macro) à une nouvelle
feuille.

Comment faire?

Merci

Peut-être aussi :

Sub Nouveau_Nom()
Dim F As Worksheet
nom = "Iyotake"
For Each F In ActiveWorkbook.Worksheets
If F.Name = nom Then x = 1
Next F
If x = 1 Then
MsgBox "Nom déjà utilisé."
Else
Sheets.Add
ActiveSheet.Name = nom
End If
End Sub

Serge


"Jacques" <none> a écrit dans le message de news: uNAnZ$KcIHA.748@TK2MSFTNGP04.phx.gbl...

Bonjour,

Je voudrais tester l'existence d'un onglet dans un classeur pour éviter de
donner le même nom (et faire échouer ainsi la macro) à une nouvelle feuille.

Comment faire?

Merci

Dans le genre :

Sub Nouveau_Nom()
Dim F As Worksheet
On error resume next
set F = Worksheet("Iyotake")
if err<> 0 then
err= 0
Worksheets.add.name = "Iyotake"
else
Msgbox "Feuille déjà présente."
exit sub
end if
End sub




"Tatanka" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news:
uIbW%23PLcIHA.4880@TK2MSFTNGP03.phx.gbl...
Peut-être aussi :

Sub Nouveau_Nom()
Dim F As Worksheet
nom = "Iyotake"
For Each F In ActiveWorkbook.Worksheets
If F.Name = nom Then x = 1
Next F
If x = 1 Then
MsgBox "Nom déjà utilisé."
Else
Sheets.Add
ActiveSheet.Name = nom
End If
End Sub

Serge


"Jacques" <none> a écrit dans le message de news: uNAnZ$KcIHA.748@TK2MSFTNGP04.phx.gbl...

Bonjour,

Je voudrais tester l'existence d'un onglet dans un classeur pour éviter de
donner le même nom (et faire échouer ainsi la macro) à une nouvelle feuille.

Comment faire?

Merci

Il faudrait changer
If F.Name = nom Then x = 1
pour
If UCase(F.Name) = UCase(nom) Then x = 1

Serge



"Tatanka" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news: uIbW%23PLcIHA.4880@TK2MSFTNGP03.phx.gbl...

Peut-être aussi :

Sub Nouveau_Nom()
Dim F As Worksheet
nom = "Iyotake"
For Each F In ActiveWorkbook.Worksheets
If F.Name = nom Then x = 1
Next F
If x = 1 Then
MsgBox "Nom déjà utilisé."
Else
Sheets.Add
ActiveSheet.Name = nom
End If
End Sub

Serge


"Jacques" <none> a écrit dans le message de news: uNAnZ$KcIHA.748@TK2MSFTNGP04.phx.gbl...

Bonjour,

Je voudrais tester l'existence d'un onglet dans un classeur pour éviter de
donner le même nom (et faire échouer ainsi la macro) à une nouvelle feuille.

Comment faire?

Merci