Code VBA pour connaître la position d'un onglet

[BenHarber]

Bonsoir à tous
Je souhaite faire un traitement sur toutes les feuilles situées AVANT un onglet « TOTO». Or, cet onglet n’a pas une place fixe dans le classeur : il peut être situé en 10ème position (sur 15 feuilles au total) comme en 4ème position (sur 4).
Je pensais exécuter une boucle du type For i = 1 To « numéro de la position de l’onglet « TOTO » dans le classeur » mais j’ignore le code VBA qui me permette de renvoyer la position d’une feuille dans un classeur.

Avez-vous une idée, un conseil à me donner ?

Merci d’avance pour vos réponses et avis éclairés !

BenHarber

 

[adebrux]

Salut BenHarper,

Je me suis encore jamais penché sur ce genre de question, mais à tu regarder la propriété index de ta feuille.

Une boucle du style

for i = 0 to sheets('Toto').index

J'espère que je dis pas de conneries, mais en tout cas, dans un USF, ca marche comme ça. Et attention, sauf si tu a préciser le contraire, ca commence à 0.

Bon courage pour la suite

 

[soft]

Salut BenHarber, le forum,

Tu peux utiliser

Dim f As Worksheet, TotoPosition
    For Each f In ActiveWorkbook.Sheets
        If f.Name = 'TOTO' Then TotoPosition= f.Index
    Next f

 

[Hellboy]

Bonjour a tous

Ou aussi une autre façon:

Public Sub NoIndex()
        Dim bytNoIndex            As Byte, bytBefore            As Byte
        bytNoIndex = Sheets('TOTO').Index
       
        For bytBefore = 1 To bytNoIndex - 1
        '    Traitement
        Next bytBefore
End Sub

a+

Message édité par: Hellboy, à: 03/11/2005 21:29

 

[BenHarber]

Vos 2 solutions fonctionnent nickel...Merci à vous 2.
BenHarber