Avec Excel, vérifier l'existance d'une feuill

Résolu/Fermé

Vba
Feuille

tacotac - 10 mars 2006 à 11:24
DiDi - 12 févr. 2021 à 16:34

Bonjour à tous
Existe t'il en VBA, un moyen de savoir si une feuille nommée "toto" (par exemple) existe dans un classeur ?
Merci

A voir également:

Vba vérifier si une feuille existe
Verifier un lien - Guide
Excel vérifier si une valeur existe dans une colonne ✓ - Forum Excel
Cette annonce n'existe plus facebook - Forum Facebook
Vérifier si mot de passe piraté - Guide
Excel reporter des données sur une autre feuille avec conditions - Forum Excel

6 réponses

Réponse 1 / 6

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
11 nov. 2007 à 16:34

bonjour

avec ma boucle, dès que ma fonction rencontre la feuille 3 par exemple il plante car elle n'existe pas.

L'on ne sait absolument pas ce à quoi sert ta boucle mais elle ne part sûrement pas sur un algorithme approprié puisqu'elle ne fonctionne pas. Quelque chose comme ceci devrait fonctionner :

Sub sel_feuilles()
Dim i as integer
For i = 1 to  Worksheets.Count
    If Worksheets(i).Name = "mon test" Then
        ' "mon code"
    Else
        '  "mon autre code"
    End If
Next i
End Sub

zouzou75
17 juil. 2009 à 11:14

Même si c'est plus d'un an après,

merci à gbinforme pour le code, ça m'a été très utile!

Flo
10 févr. 2014 à 16:33

+1 merci
Même 7 ans après ça aide toujours ;)

Réponse 2 / 6

Jacknight Messages postés 27 Date d'inscription mardi 18 décembre 2007 Statut Membre Dernière intervention 4 décembre 2010 54
30 oct. 2010 à 17:40

J'ai mieux qu'une boucle ou l'utilisation de gestion d'erreurs pour vérifier si une feuille existe.

La fonction suivante retourne la valeur "Vrai" si la feuille n'existe pas.

Public Function FeuilleInexistante (ByVal strNomFeuille As String) As Boolean
'Retourne TRUE si strNomFeuille est le nom d'une feuille qui n'existe pas dans le classeur actif

FeuilleInexistante = IsError(Evaluate("='" & strNomFeuille & "'!A1"))

End Function

Insérez la dans un module de votre classeur Excel, puis appelez la depuis l'une de vos macro en lui passant en paramètre le nom de votre feuille, comme par exemple cette macro qui affiche un message :

dim strNomFeuille as String

strNomFeuille = "nom de ma feuille"

if FeuilleInexistante (strNomFeuille ) then MsgBox "Cette feuille n'existe pas dans le classeur " & ThisWorkbook.Name

Bonne chance ;)

slyleglobetrotter Messages postés 6 Date d'inscription lundi 31 juillet 2006 Statut Membre Dernière intervention 12 avril 2011 14
12 avril 2011 à 11:20

Salut Jacknight,

Ta méthode fonctionne super bien, merci mais que faudrait il ajouter pour qu'elle fonctionne pour une feuille et une feuille "graphique" ?

Merci

Dédé6621
13 juil. 2016 à 12:31

Sans créer de fonction, mais selon le même principe:

If IsError(Evaluate("='" & strNomFeuille & "'!A1")) = True Then

MsgBox "Cette feuille n'existe pas dans le classeur "

Else

MsgBox "ok"

End If

Réponse 5 / 6

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
10 mars 2006 à 12:18

bonjour

Cette macro devrait répondre à ta demande :

Sub sup_feuilles()
' suppression des feuilles
dim i,j as integer
dim codfeu as string
codfeu = "t?t?"
Application.DisplayAlerts = False
j = Worksheets.Count
i = 1
Do Until j < i
If InStr(1, Worksheets(i).Name, codfeu) = 0 Then
' suppression feuille si le nom ne comporte pas le "code feuille"
Worksheets(i).Delete
j = j - 1
Else
i = i + 1
End If
Loop
Application.DisplayAlerts = True
End Sub

Elle ne garde que les feuilles nommées titi ou toto ou tztz
en raison du "?".

pour d'autres noms il faut changer le paramètre "codfeu"

maksym92
15 mai 2008 à 14:16

Salut!
J'ai un besoin similaire: je cherche à faire une macro qui supprime des feuilles "Année1", "Année2" sachant que le nombre de ces feuilles est une variable. J'ai essayé votre macro mais elle ne fait rien (pas de message d'erreur mais pas de modification dans Excel). Avez vous une explication?
Voilà ma macro:

Sub sup_feuilles()
Dim i, j As Integer
Dim codfeu As String
codfeu = "Année?"
Application.DisplayAlerts = False
j = Worksheets.Count
i = 1
Do Until j < i
If InStr(1, Worksheets(i).Name, codfeu) = 1 Then
Worksheets(i).Delete
j = j - 1
Else
i = i + 1
End If
Loop
Application.DisplayAlerts = True
End Sub

licool Messages postés 133 Date d'inscription lundi 23 janvier 2006 Statut Membre Dernière intervention 6 juillet 2009 73 > maksym92
15 mai 2008 à 17:53

Salut,

essayes ça :

Sub Supr_feuil()
For Ctr = Sheets.Count To 1 Step -1
If Sheets(Ctr).Name Like "Année*" Then
SendKeys ("{ENTER}")
Sheets(Ctr).Delete
End If
Next
End Sub

Discussions similaires

Excel VBa Changer nom sheet

Macro, désigner la feuille active.

VBA Executer une macro a l'ouverture de excel

vba renommer feuilles classeur

Code Vba Pour masquer les Feuilles

affichage tableau dans MsgBox VBA excel

Discussions similaires

Newsletters