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]