Numérotation de ligne en fonction feuille

[fxpat]

Bonjour à tous, désolé de vous ennuyé avec surement une question simple. J'ai cherché dans le forum mais n'est pas trouvé un exemple compréhensible pour le novice total que je suis. Voila j'ai un classeur excel et je voudrais incrémenté un numéro de cellule en fonction du numéro de la feuille.
Par exemple pour la feuille 1 le numéro sera 1, pour la feuille 2, bin 2 😛 et ainsi de suite

Je n'ai aucune connaissance en programmation, merci de votre indulgence

 

[James007]

Re : Numérotation de ligne en fonction feuille

Bonjour,

Je ne sais pas si j'ai bien compris ta demande ...

Voir fichier test joint ...

A +
🙂

 

[fxpat]

Re : Numérotation de ligne en fonction feuille

ouais magnifique c'est ça, merci, comment je fais pour le mettre dans mon tableau excel?

 

[James007]

Re : Numérotation de ligne en fonction feuille

Bonjour,

Il te suffit de recopier la macro qui se trouve dans le module intitulé : ThisWorkbook ...

A +
🙂

 

[Victor21]

Re : Numérotation de ligne en fonction feuille

Bonjour, fxpat.

Précision , juste pour faire avancer le schmilblick :
Si vous renommez Feuil1 en "Données" par exemple.

Sh.Range("A1").Value = Right(ActiveSheet.Name, 1)

renvoie en A1 le dernier caractère du nom de la feuille (ici : renvoie s)

Sh.Range("A2").Value = Right(ActiveSheet.CodeName, 1)

renvoie le dernier caractère du numéro de la feuille (ici, renvoie 1)

mais cette dernière ligne renverra 0 pour la Feuil10, 1 pour la Feuil11.

Peut-être avec Item de Names ...

Cordialement,

 

[Pierrot93]

Re : Numérotation de ligne en fonction feuille

Bonjour,

selon l'organisation du classeur, l'onpourrait utiliser le numéro d'index des feuilles...

Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.Range("A1").Value = Sh.Index
End Sub

bonne journée
@+

 

[Dull]

Re : Numérotation de ligne en fonction feuille

Salut fxpat, James🙂, Victor, Pierrot🙂, le Forum

Pierrot a répondu plus vite que moi et en plus bien plus court Damned 😀

je met quand même le code pour - de 100 feuilles dans le Classeur

Option Explicit

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.Range("A2").Value = IIf(IsNumeric(Right(ActiveSheet.CodeName, 2)), _
Right(ActiveSheet.CodeName, 2), Right(ActiveSheet.CodeName, 1))
End Sub

Bonne Journée

 

[fxpat]

Re : Numérotation de ligne en fonction feuille

Bonjour,

Il te suffit de recopier la macro qui se trouve dans le module intitulé : ThisWorkbook ...

A +
🙂

Désolé je sais je suis pas doué, mais ou je recopie la macro, je suis franchement désolé j'y connais rien.
Je vais essayer de trouver

edit: c'est bon j'ai trouver, il faut faire clic droit editer le code et le coller dans thisworkbook
merci à tous

 

[James007]

Re : Numérotation de ligne en fonction feuille

Bonjour,

Faire Alt F11 ... et choisir le module ThisWorkbook ...

A +
🙂