Faire référence à feuille à partir du texte d'un cellule

bonjour à tous

j'ai des feuilles nommées janvier février mars ......

dans une autre feuille nommée control j'ai le bouton de ma macro.

je voudrias éviter que la personne qui utilise le fichier aille modifier le vba pour changer le mois dans la partie du code si dessous

With Sheets("février")

For lig = 8 To .Cells(Rows.Count, 2).End(xlUp).Row

If .Cells(lig, 2).Interior.ColorIndex <> xlNone Then

liste(.Cells(lig, 2).Value) = ""

End If

Next lig

End With

Est possible de faire réference à la valeur de la cellule U1 dans la feuille control ou l'on renseignerait le mois

merci d'avance pour aide

philippe

Bonjour,

Oui, il est tout à fait possible de câbler la macro à une feuille de référence.

Tu peux créer une feuille, avec les paramètres de ta macro qui sont susceptibles d'êtres modifiés.

Tu pointe ta macro la-dessus.

Par exp pour le nom de la feuille :

1- Créer une feuille "Réf"

2- modifier la macro :

nom_feuille = Sheets("Réf").Range("U1") ' à adapter 
With Sheets(nom_feuille) 

etc..

bonjour Mus54

Merci pour ta répobes comme je ne comprenais pas pourquoi ca buguer

je l'ai écrit comme ca:

nom_feuille = Cells(1, 21).Value

With Sheets(nom_feuille)

ça fonctionne

merci encore pour ton aide

cordialement

philippe 87