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.
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
JB
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
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.
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
Jacques
Merci !
"JB" a écrit dans le message de groupe de discussion :
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.
"JB" a écrit dans le message de groupe de discussion :
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
Tatanka
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$
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.
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$
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
MichDenis
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" a écrit dans le message de news: uIbW% 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$
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.
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" a écrit dans le message de news: uIbW% 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$
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
Tatanka
Il faudrait changer If F.Name = nom Then x = 1 pour If UCase(F.Name) = UCase(nom) Then x = 1
Serge
"Tatanka" a écrit dans le message de news: uIbW%
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$
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.
Il faudrait changer If F.Name = nom Then x = 1 pour If UCase(F.Name) = UCase(nom) Then x = 1
Serge
"Tatanka" a écrit dans le message de news: uIbW%
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$
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.