Onglet en fonction de la cellule

youky(BJ)

XLDnaute Barbatruc

• 1 Août 2010

• #2

Re : Onglet en fonction de la cellule

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

 

Pièces jointes

• onglet_cellule.zip

  15 KB · Affichages: 32

Vote positif 0 Vote négatif

A

Arpette

XLDnaute Impliqué

• 1 Août 2010

• #3

Re : Onglet en fonction de la cellule

eutrophisation à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

E

eutrophisation

XLDnaute Occasionnel

• 1 Août 2010

• #4

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.

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 1 Août 2010

• #5

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

Code:

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

 

Vote positif 0 Vote négatif