Onglet en fonction de la cellule

[eutrophisation]

Bonsoir

Je viens par le present post vous exposer mon probleme. J'ai un fichier de base de données constituées d'une feuille nommée "données".Quant à la presence des autres feuilles dans le fichier dependront de la sélection de l'année.
J'ai joint un fichier
Merci d'avance

 

[youky(BJ)]

Re : Onglet en fonction de la cellule

Bonjour Eutrophisation,
En retour ton fichier avec la macro.
Bruno

 

[Arpette]

Re : Onglet en fonction de la cellule

Bonsoir

Je viens par le present post vous exposer mon probleme. J'ai un fichier de base de données constituées d'une feuille nommée "données".Quant à la presence des autres feuilles dans le fichier dependront de la sélection de l'année.
J'ai joint un fichier
Merci d'avance

Salut, je ne comprends pas ce que tu veux, ta feuille données est vide
@+

 

[eutrophisation]

Re : Onglet en fonction de la cellule

Je te remercie pour la reponse c'est ce que je cherchais seulement je ne souhaite pas non seulement l'année en cours et mais aussi celles qui viennent apres cette derniere.Est il possible d'avoir dans les onglets les denominations qualité suivi de l'année. Voir les noms des feuilles de la maniere suivante "qualité_année" par exemple.

 

[youky(BJ)]

Re : Onglet en fonction de la cellule

Re,
je suis pas sur d'avoir pigé ta demande, cette nouvelle macro écrit sur chaque onglet
"Qualité suivi de l'année " & l'année
exemple.... sur l'onglet 2009 en A1 tu auras "Qualité suivi de l'année 2009"
Bruno

Sub onglet()
For k = 2 To 6
Sheets(k).Name = "Feuil" & k
Sheets(k).[A1] = ""
Next
an = Cells([B1] + 2, "G")
For k = 2 To 6
If an <> Year(Date) Then
Sheets(k).Name = an
Sheets(k).[A1] = "Qualité suivi de l'année " & an
End If
an = an + 1
Next
End Sub