Macro : Nommer feuille Sheets(...) suivant information cellule

[YannC.]

Bonjour à vous tous,

Voici mon probleme :

Je souhaitais effectuer ceci

Sub mise_a_jour2()
Dim t As integer

t = Sheets("annee").Range("BH1")

For i1 = 2 To Sheets(t).Range("G65536").End(xlUp).Row
date = Sheets(t).Range("G" & i1)
....

à la place de ceci :

Sub mise_a_jour2()

For i1 = 2 To Sheets(2008).Range("G65536").End(xlUp).Row
date = Sheets(2008).Range("G" & i1)
....

Donc à la place de mettre à chaque fois 2008, 2009... je souhaitais grace à l'information qui se trouve directement dans ma feuille 'Date' en cellule 'BH1'
, creer une automatisation de la tache suivant la date.

Que plutot devoir ecrire et repeter du code ou modifier à chaque année ce code.

Mais cela ne marche pas, si vous pouviez m'aider.

Merci

 

[ledzepfred]

Re : Macro : Nommer feuille Sheets(...) suivant information cellule

Bonsoir,

Si cette valeur en BH1 représente l'année en cours, fais comme ceci:

Sub mise_a_jour2()
ANNEE= format(Year(Date), "yyyy")
For i1 = 2 To Sheets(ANNEE).Range("G65536").End(xlUp).Row
date = Sheets(ANNEE).Range("G" & i1)

maintenant si j'ai pas compris ta demande, un fichier serait utile pour t'apporter une réponse adéquate.

a+

 

[YannC.]

Re : Macro : Nommer feuille Sheets(...) suivant information cellule

Bonsoir,

Si cette valeur en BH1 représente l'année en cours, fais comme ceci:

Sub mise_a_jour2()
ANNEE= format(Year(Date), "yyyy")
For i1 = 2 To Sheets(ANNEE).Range("G65536").End(xlUp).Row
date = Sheets(ANNEE).Range("G" & i1)

maintenant si j'ai pas compris ta demande, un fichier serait utile pour t'apporter une réponse adéquate.

a+

Merci à toi c'est bien cela, mais comment tu fais pour récuperer l'année qui ce trouve en bh1 ?

 

[YannC.]

Re : Macro : Nommer feuille Sheets(...) suivant information cellule

Excuse moi, j'avais pas tous lu, elle peut correspondre à l'année en cour mais aussi une autre année suivant ce que j'y marque.

Mais je vais preparer un fichier à mettre en P.J

 

[YannC.]

Re : Macro : Nommer feuille Sheets(...) suivant information cellule

Voila le fichier en piece jointe.

Par contre en faisant deja de base l'idee de ledzepfred, et d'ailleur merci pour son aide, cela ne fonctionne pas non plus.

Si vous pouviez m'aider

merci

Rajout la piece jointe, et modification pour la piece jointe. Mais le principe est le mem

 

[YannC.]

Re : Macro : Nommer feuille Sheets(...) suivant information cellule

🙄Bonjour à tous,

Je reexplique mieux mon probleme :

Je reformule ma demande, car elle ne semblait pas très clair.
Je souhaite à partir d'une formule qui se trouve dans un module avoir

1 - Suivant Une année marquée dans une cellule d'une feuille, avoir:

L'information de cette annee qui s'integre directement dans la parti

Sheets(....)

.

Ceci m'eviterais de faire une repetition de on code pour chaque année

J'avais pensé à faire ceci, il me reconnait bien la valeur de la cellule "annee", mais me marque comme erreur

l'indice 'nappartient pas à la selection

. Et idem avec l'idee de ledzepfred.

Pourtant mes onglets existent bien.

DOnc si vous pouviez m'éclairer, merci

 

[ledzepfred]

Re : Macro : Nommer feuille Sheets(...) suivant information cellule

re...

si tu as le message "l'indice n'appartient pas à la sélection", il faut le traduire par le feuillet ANNEE n'existe pas dans ton fichier.
Il faut le créer :

sheets.add
activesheet.name= ANNEE

essayes si cela fonctionne.

A+