Zone nommée pour toute les feuilles

Bonjour

Je possède un classeur avec 35 feuilles construites à l'identique.

Dans le but de créer des graphiques sur chaque feuille j'ai voulu attribuer des noms pour mes données de graphique.

Celles ci ne sont malheureusement pas valable pour fonctionner avec chaque feuille.

Comment remédier à cela.

Pour exemple.

"Distribué" fait référence à : =decaler(feuil1!b31;nbval(feuil1!a:a)-12;0;12)

mais comment faire pour que le Feuil1 prenne le nom de la feuille ou se trouve le graph

merci

Salut Magic-dd

Avec ce petit code VBA

Sub CréatioNomsFeuilles()
  Dim Sht As Worksheet
  'Pour chaque feuille du classeur
  For Each Sht In ThisWorkbook.Sheets
    ' Si elle n'appartient pas à la liste
    If InStr(1, "Menu,Params", Sht.Name, vbTextCompare) = 0 Then
      ' Définir le nom
      Sht.Names.Add Name:="Distribué", RefersTo:="=DECALER('" & Sht.Name & "'!$B$31,NBVAL('" & Sht.Name & "'!A:A)-12,0,12)"
    End If
  Next Sht
End Sub

A+

Bonjour

A essayer

Dans le gestionnaire des noms définis le nom "Distribué" comme suit

= DECALER(INDIRECT("$B$31");NBVAL(INDIRECT("$A:$A"))-12;0;12)

Merci beaucoup pour vos reponses,

je teste lundi car mon fichier est au boulot

bonne journee