Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

N° de ActiveSheet ?

4 réponses
Avatar
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

4 réponses

Avatar
JB
Bonjour,

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

JB
http://boisgontierjacques.free.fr/


On 23 nov, 14:06, LANIMAL wrote:
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


Avatar
michdenis
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" a écrit dans le message de 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
Avatar
isabelle
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


Avatar
Philippe.R
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" a écrit dans le message de
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