N° de ActiveSheet ?

Le
LANIMAL
Bonjour,
Le nom d'une Feuille sélectionnée est obtenu par le code
Nom = ActiveSheet.Name
Quelle est la propriété qui donne son n° d'ordre ?
Par exemple :
Un classeur comporte 4 feuilles "B", "M", "F", "X"
Comment obtenir Numero = 3 quand "F" est sélectionnée ?
Merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #17932641
Bonjour,

x = Sheets("feuil3").Index
x = ActiveSheet.Index

JB
http://boisgontierjacques.free.fr/


On 23 nov, 14:06, LANIMAL
Bonjour,
Le nom d'une Feuille sélectionnée est obtenu par le code
        Nom = ActiveSheet.Name
Quelle est la propriété qui donne son n° d'ordre ?
Par exemple :
Un classeur comporte 4 feuilles "B", "M", "F", "X"
Comment obtenir Numero = 3 quand "F" est sélectionnée ?
Merci


michdenis
Le #17932631
ActiveSheet.Index

Mais dans ton code, il est avantageux d'utiliser la propriété
Name pour coder, car le nom de l'onglet de la feuille
peut être modifiée sans affecter l'exécution de ton code

Dans l'éditeur de code, dans ton projet VBA, les objets
de ton projet s'affiche....

Pour les feuilles :
Feuil1(toto)
Feuil1 = Propriété Name de l'objet de la feuille
(toto) = Nom de l'onglet de la feuille

Dans ton code, au lieu d'utiliser

with worksheets("toto")
'Ton code
End with

tu utilises :

With Feuil1
'Ton code
End With

En conséquence, au lieu d'utiliser : ActiveSheet.index,
tu aurais : x = Feuil1.Index par exemple.







"LANIMAL"
Bonjour,
Le nom d'une Feuille sélectionnée est obtenu par le code
Nom = ActiveSheet.Name
Quelle est la propriété qui donne son n° d'ordre ?
Par exemple :
Un classeur comporte 4 feuilles "B", "M", "F", "X"
Comment obtenir Numero = 3 quand "F" est sélectionnée ?
Merci
isabelle
Le #17932611
bonjour Lanimal,

copie cette macro sur la page code de ThisWorkBook,

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
For Each f In Sheets
x = x + 1
If Sh.Name = f.Name Then MsgBox x
Next
End Sub

isabelle

LANIMAL a écrit :

Bonjour,
Le nom d'une Feuille sélectionnée est obtenu par le code
Nom = ActiveSheet.Name
Quelle est la propriété qui donne son n° d'ordre ?
Par exemple :
Un classeur comporte 4 feuilles "B", "M", "F", "X"
Comment obtenir Numero = 3 quand "F" est sélectionnée ?
Merci


Philippe.R
Le #17932951
Bonjour,
Comme ceci :

Sub rang_feuille()
For i = 1 To ThisWorkbook.Sheets.Count
If Sheets(i).Name = ActiveSheet.Name Then
MsgBox "Cette feuille est la numéro " & i
Exit Sub
End If
Next i
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"LANIMAL" news:
Bonjour,
Le nom d'une Feuille sélectionnée est obtenu par le code
Nom = ActiveSheet.Name
Quelle est la propriété qui donne son n° d'ordre ?
Par exemple :
Un classeur comporte 4 feuilles "B", "M", "F", "X"
Comment obtenir Numero = 3 quand "F" est sélectionnée ?
Merci


Publicité
Poster une réponse
Anonyme