avec Excel, vérifier l'existance d'une feuillRésolu/Fermé

Question

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

gbinforme · Accepted Answer

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

tacotac · Answer

Je souhaiterais modifier ma demande précèdente.Existe t'il en vba le moyen de supprimer les feuilles d'un classeur qui ne sont pas nommées toto ou titi (par exemple) ? MERCI A L'AVANCE

gbinforme · Answer

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"

franckystar · Answer

Bonjour, 

je realise une boucle sur chaque feuille de mon classeur mais celles ci sont nommés Feuil+un chiffre qui ne sont pas consecutifs (ex : feuil1, feuil2, feuil5, feuil15, etc... mais organiséés tout de meme par ordre croissant.

je souhaiterai tester chaque feuille de mon classeur mais avec ma boucle, dès que ma fonction rencontre la feuille 3 par exemple il plante car elle n'existe pas.

quelqu'un pourrait m'aider svp??
merci

Jacknight · Answer

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 ;)

Valery · Answer

Bonjour,


La solution est pour tester l'existance d'un feuille:

 If Not (IsError(Sheets("Feuil1"))) Then
        Application.DisplayAlerts = False
        Sheets("Feuil1").Delete
        Application.DisplayAlerts = True
End If

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

6 réponses

Discussions similaires

Newsletters