Discussion :

[mugsy]

Bonjour,
Je cherche à déterminer par le programme (et pour le programme) le nom
et l'index de la feuille courante
(et non pas la feuille active)
dans le but de rendre générique une fonction se trouvant dans toutes les
procédures WorksheetChange(ByVal Target As Range)

Merci de votre aide.

[ouskel'n'or]

Pour moi, la feuille "courante" correspond à la feuille "active".
Donc, si tu opposes "courante" à "Active", tu veux autre chose...
Si c'est le nom de la feuille que tu quittes, lors d'un changement de feuille, précise-le.
Pour connaître à coup sûr l'index d'une feuille, je ne connais qu'un moyen : Passer par une boucle. Mais peut-être en existe-t-il un autre. A défaut, voici toujours

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
sub test()
    for i = 1 To Activeworkbook.Worksheets.count
         if sheets(i).name = "Feuil4" then exit for
    next
    Lindex = i
    msgbox sheets(Lindex).name 'vérif (!)
end Sub

[mugsy]

1/ en premier lieu : merci à toi.
2/ ceci résout mon pb car dans le cas qui m' occupe, la feuille
courante est la feuille active ( puisque la fonction que j' ecris
se trouve dans WorksheetChange()
3/ pour la clarté :
rien à redire sur le code que tu proposes.Ceci étant, la feuille
courante peut etre differente de la feuille active : exemple :
boucle de lecture de plusieurs feuilles d' un classeur en passant
le nom ou l' index de la feuille en parametre; celle-ci sera
dans ce cas la feuille " courante". ( un code analogue fera
donc l' affaire)

encore merci.

[ouskel'n'or]

dans une boucle for next, l'ordre des feuilles est le même qu'avec la boucle for i ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub test()
for each LaFeuille In activeWorkbook.worksheets
    i = i + 1
    msgbox sheets(i).name & "  " & Lafeuille.name
next
end sub

[AlainTech]

Il est d'usage, ici, lorsqu'on a trouvé ou reçu réponse à son problème, de cliquer sur le bouton , en bas de discussion.

Merci