contenu d'une cellule en fonction du nom de la feuille

[alfazoulou]

Bonjour,
voilà mon probleme:
comment écrire dans ma celulle G66 le texte "Page 2" si ma feuille se nomme
feuille 2 et "Page 3" si ma feuille se nomme feuille 3, je sais le faire,

If Me.Name = ("feuille 2") Then
Range("G66").Value = "Page 2"
If Me.Name = ("feuille 3") Then
Range("G66").Value = "Page 3"

mais comment tenir comte uniquement de la fin du nom de la feuille à savoir 2,3,etc...
sans se soucier du début c'est à dire feuille puisque ce début peut varier?

merçi pour vos réponses

 

[Papou-net]

Re : contenu d'une cellule en fonction du nom de la feuille

Bonjour alfazoulou,

Une 1ère solution, si tes feuilles sont créées dans un ordre numérique :

Range("G66").Value = "Page " & ActiveSheet.Index

2ème solution, mais qui ne fonctionnera que pour un nombre de feuilles inférieur à 10 :

ActiveCell = "Page " & Right(ActiveSheet.Name, 1)

Espérant t'avoir aidé.

Cordialement.

 

[mromain]

Re : contenu d'une cellule en fonction du nom de la feuille

bonjour alfazoulou, Papou-net

grillé par Papou-net

 

[Hervé]

Re : contenu d'une cellule en fonction du nom de la feuille

bonjour

pour les supérieur à 10 :

ActiveCell = "Page " & StrReverse(Val(StrReverse(ActiveSheet.Name)))

salut

 

[Papou-net]

Re : contenu d'une cellule en fonction du nom de la feuille

Merci Hervé,

Ta solution, que je n'ai jamais utilisée, est astucieuse.
De plus, elle m'évite de continuer à chercher davantage.

Cordialement.

 

[alfazoulou]

Re : contenu d'une cellule en fonction du nom de la feuille

Merci à tous pour vos réponses.

Le probleme c'est que les noms de mes feuilles se nomment sont constitués d'une suite de chiffres qui en fait correspondent à la date de leur création + le n° correspondant à la page de 1 à 10

ex: 2703091,2703092 etc.. pour la date d'aujourd'hui.

Range("G66").Value = "Page " & ActiveSheet.Index ne convient pas car elle me donne le n° d'ordre de la feuille

Range("G66").Value = "Page " & Right(ActiveSheet.Name, 1) fonctionne sauf pour la feuille 10 (page 0)

Range("G66").Value = "Page " & StrReverse(Val(StrReverse(ActiveSheet.Name)))
fonctionne sauf pour la feuille 10 (Page 2703091)

avez vous la solution ?

 

[alfazoulou]

Re : contenu d'une cellule en fonction du nom de la feuille

j'arrive à contourner le probleme avec
If Range("G66").Value = "Page 0" Then
Range("G66").Value = "Page 10"
mais bon...

 

[Papou-net]

Re : contenu d'une cellule en fonction du nom de la feuille

Dans ce cas, alfazoulou, je te propose de modifier l'appellation de tes feuilles de cette manière :

27030902, 27030902 etc..

puis de modifier ta ligne de code ainsi :

[CODE]

Range("G66").Value = "Page " & Right(ActiveSheet.Name, 2)

[/CODE]
Tu as ainsi la possibilité d'utiliser 99 pages.

Cordialement.

 

[alfazoulou]

Re : contenu d'une cellule en fonction du nom de la feuille

Dans ce cas, alfazoulou, je te propose de modifier l'appellation de tes feuilles de cette manière :

27030902, 27030902 etc..

puis de modifier ta ligne de code ainsi :

[CODE]

Range("G66").Value = "Page " & Right(ActiveSheet.Name, 2)

[/CODE]
Tu as ainsi la possibilité d'utiliser 99 pages.

Cordialement.

oui, c'est bon pour la page 10 mais les autres par contre deviennent
page 01, page 02, etc...

 

[alfazoulou]

Re : contenu d'une cellule en fonction du nom de la feuille

en fait on peut adapter ta solution en inserant un espace dans le nom des feuilles
270309 2, 270309 3 etc.. et pour la feuille 10...... 270309 10

merci Papou-net

 

[alfazoulou]

Re : contenu d'une cellule en fonction du nom de la feuille

en fait j'ai une autre question qui se rapporte au sujet.
comment faire référence à la page précédente?
merci.

 

[Papou-net]

Re : contenu d'une cellule en fonction du nom de la feuille

en fait j'ai une autre question qui se rapporte au sujet.
comment faire référence à la page précédente?
merci.

Bonjour alfazoulou,

Désolé pour cette réponse tardive, mais tu peux essayer de faire appel à l'onglet précédent en utilisant les index de feuilles.

Ex :

Sheets(Sheets("Page " & Right(ActiveSheet.Name, 2)).Index - 1).Select

Cordialement.

 

[alfazoulou]

Re : contenu d'une cellule en fonction du nom de la feuille

Bonjour alfazoulou,

Désolé pour cette réponse tardive, mais tu peux essayer de faire appel à l'onglet précédent en utilisant les index de feuilles.

Ex :

Sheets(Sheets("Page " & Right(ActiveSheet.Name, 2)).Index - 1).Select

Cordialement.

Désolé Papou-net pour ce remerciement plus que tardif.😉

 

[vbacrumble]

Re : contenu d'une cellule en fonction du nom de la feuille

Bonjour tous

Un petit exemple (pour sélectionner la page suivante ou la page précédente par rapport à la feuille active )

Sub test()
tests = InputBox("page suivante=1, page précédente = 0")
Select Case tests
Case 0
ActiveSheet.Previous.Select
Case 1
ActiveSheet.Next.Select
End Select
End Sub