|
voici une fonction qui nous informe si la feuille passée en paramètre est la dernière ou non : Vous noterez au passage l'emploi du double "=" dans la procédure en fait c'est une façon rapide d'affecter le résultat d'une assertion à une variable booléenne. Il faut la lire de droite à gauche :
je dis : cette feuille est la dernière ! Si c 'est vrai, VBA me dit "OK" et donne la valeur VRAI à ma fonction,
Si c 'est faux il me dit : "Arf, tu te trompes", donc ma fonction prend la valeur FAUX. Celà évite un IF Then ... Else
ici celà fonctionne avec une fonction, mais on peut également l'utiliser avec toute variable booléenne.
Option Explicit
Function IsLastFeuille(Ws As Worksheet) As Boolean 'Ti
IsLastFeuille = Ws.Index = Ws.Parent.Worksheets.Count
End Function
'Ici l'exemple concerne la feuille nommée "Feuil3"
'envoie un message VRAI ou FAUX
Sub Test()
MsgBox IsLastFeuille(Worksheets("Feuil3"))
End Sub
Date de création : 24/05/2005 - 19:02
Dernière modification : 25/05/2005 - 22:46
Catégorie : Feuille
Page lue 2657 fois
 Prévisualiser la page
 Imprimer la page
|
OOo
OOo
Membres: 1661
Membre en ligne: 0
Anonymes en ligne: 26
Haut 
