© ideocene.com - utilisation interdite sans accord préalable
ideocene.com
informations pour la bureautique
Dernière mise à jour :
Vous êtes ici >  accueil   >  Excel®/vba >  VBA Excel® > Excel doc
rechercher si une feuille existe dans le classeur (vba)

Pour plus de détails, voir l'aide d'Excel.

 ICI un classeur exemple comportant une macro commentée ; Excel version 2000

rappel de quelques éléments du langage vba :
worksheet(s) = feuille(s)
dans la macro, les textes débutant par une apostrophe sont des commentaires
nota : le nom des variables débute par V pour éviter toute confusion avec les instructions VBA.
extrait de la macro incluse dans le fichier joint :

' ----------------------------------------
' déclaration des variables locales
Dim Vtest As Boolean             ' variable de type booléan
Dim Vlefichier As Workbook             ' variable objet pour un classeur
Dim Vlafeuil As Worksheet             ' variable objet pour une feuille (c'est-à-dire un onglet)
' =============================
' TRAITEMENT
' =============================
'Application.ScreenUpdating = False             ' désactive l'affichage d'écran

' recherche de la feuille dans le classeur
' ----------------------------------------
Vtest = False             ' mise à false en début de test
For Each Vlafeuil In Worksheets             ' pour chaque feuille du classeur actif dans la collection de feuilles
      If Vlafeuil.Name = "stock" Then             ' si le nom de la feuille correspond au nom recherché (stock par exemple)
            ' faire le traitement :
            MsgBox "Feuille trouvée", vbInformation
            Vtest = True             ' variable mise à True puisque la feuille existe dans le classeur
            Exit For             ' sortie de boucle puisque la feuille existe
      End If
Next
If Vtest = False Then             ' la feuille n'a pas été trouvée puisque la variable est restée à False
      MsgBox "Feuille inexistante", vbCritical
End If
Application.ScreenUpdating = True             ' active l'affichage d'écran
End Sub

Les informations et les fichiers mis à votre disposition ont fait l'objet d'une attention préalable toute particulière. Toutefois, aucune garantie ne peut être apportée et la responsabilité de l'auteur ne peut être engagée pour quelque motif que ce soit. L'utilisateur voudra bien prendre toutes les précautions nécessaires à leur mise en oeuvre en fonction de ses besoins personnels et de son contexte propre. 
Les fichiers sont utilisables pour un usage uniquement personnel avec indication de la source : www.ideocene.com© .
Les pages, textes, fichiers et images sont la propriété du site et ne peuvent donner lieu à aucune utilisation commerciale sans accord préalable.
Pour nous contacter / remplacez x[at]y par @  commercial x[at]y ideocene.com   |   © Copyright 2006-2012 - ideocene.com  |  plan du site  |  [haut de page]