VBA Condition "Si la feuille existe" Alors... [Fermé]
Signaler
Apprenti
-
Patrice33740
Patrice33740
- Messages postés
- 8206
- Date d'inscription
- dimanche 13 juin 2010
- Statut
- Membre
- Dernière intervention
- 9 octobre 2020
A voir également:
- VBA Condition "Si la feuille existe" Alors...
- Vba vérifier si une feuille existe ✓ - Forum - Excel
- Vérifier si feuille existe ✓ - Forum - VB / VBA
- VBA Condition "Si la feuille existe" Alors... - Forum - VB / VBA
- Vba si feuille existe alors - Forum - VB / VBA
- VBA:Excel2007: Renommer une feuille si déjà existante ✓ - Forum - VB / VBA
5 réponses
Patrice33740
- Messages postés
- 8206
- Date d'inscription
- dimanche 13 juin 2010
- Statut
- Membre
- Dernière intervention
- 9 octobre 2020
Bonjour,
Il n'est pas nécessaire de faire une boucle pour chercher si la feuille existe,
il suffit de faire ceci :
et pour l'utiliser :
Il n'est pas nécessaire de faire une boucle pour chercher si la feuille existe,
il suffit de faire ceci :
Function Feuille_Existe(ByVal Nom_Feuille As String) As Boolean
Dim Feuille As Excel.Worksheet
On Error GoTo Feuille_Absente_Error
Set Feuille = ActiveWorkbook.Worksheets(Nom_Feuille)
On Error GoTo 0
Feuille_Existe= True
Exit Function
Feuille_Absente_Error:
Feuille_Existe= False
End Function
et pour l'utiliser :
If Feuille_Existe("Feuil1") Thenou
If Not Feuille_Existe("Feuil1") Then
Bidouilleu_R
- Messages postés
- 1181
- Date d'inscription
- mardi 27 mai 2008
- Statut
- Membre
- Dernière intervention
- 12 juillet 2012
sub test()
Dim Sh as Variant
Dim feuilleExiste as boolean
For Each Sh In Worksheets
If Sh.Name = "NOM" Then
MsgBox "lafeuille " & Sh.Name & " existe"
feuilleExiste=true
End If
Next
' maintenant tu peux faire if feuilleExiste then.....
End sub
Dim Sh as Variant
Dim feuilleExiste as boolean
For Each Sh In Worksheets
If Sh.Name = "NOM" Then
MsgBox "lafeuille " & Sh.Name & " existe"
feuilleExiste=true
End If
Next
' maintenant tu peux faire if feuilleExiste then.....
End sub
Apprenti
Merci beaucoup!
Est ce que je peux faire quelque chose comme ca :
(...) le debut de ma sub principale (...)
Call test (NomCherche)
If FeuilleExiste Then
(....)
?
Est ce que je peux faire quelque chose comme ca :
(...) le debut de ma sub principale (...)
Call test (NomCherche)
If FeuilleExiste Then
(....)
?
Bidouilleu_R
- Messages postés
- 1181
- Date d'inscription
- mardi 27 mai 2008
- Statut
- Membre
- Dernière intervention
- 12 juillet 2012
Fais plutôt comme cela...
Function IsFeuilleExiste(NomFeuille As String) As Boolean
' la fonction renvoie True ou False
On Error Resume Next
Dim Sh As Variant
IsFeuilleExiste = False
For Each Sh In Worksheets
If Sh.Name = NomFeuille Then
IsFeuilleExiste = True
End If
Next
End Function
et pour l'utiliser
Sub test()
y = IsFeuilleExiste("Feuil100") ' renvoie faux ... feuil100 n'existe pas
z=IsFeuilleExiste("Feuil1") ' renvoie vrai ...feuil1 existe
End Sub