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

BenHarber · 3 Novembre 2005

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 · 3 Novembre 2005

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

Code:

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 · 3 Novembre 2005

Salut BenHarber, le forum,

Tu peux utiliser

Code:

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

Hellboy · 3 Novembre 2005

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 · 3 Novembre 2005

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

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

BenHarber

XLDnaute Occasionnel

adebrux

XLDnaute Occasionnel

soft

XLDnaute Occasionnel

Hellboy

XLDnaute Accro

BenHarber

XLDnaute Occasionnel

Discussions similaires

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

BenHarber

XLDnaute Occasionnel

adebrux

XLDnaute Occasionnel

soft

XLDnaute Occasionnel

Hellboy

XLDnaute Accro

BenHarber

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency