Ann = InputBox Mess

bonjour
comment je peux svp récupérer la valeur de l’année

Code:

---

1 2 3 4 5 6

'Année Dim Mess, Tit, Ann, Déf Mess = "Wich year ?" Tit = "Year of the calendar" Déf = Year(Now) Ann = InputBox(Mess, Tit, Déf)

---

est la mettre dans le code de la feuille svp

Code:

---

With Sheets("?")

---

problème pour moi cordialement s' il a une déclaration à faire dite le moi svp

C'est quoi le code de la feuille ? Le nom ? Comprends pas ta question

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

'Année Dim Mess, Tit, Ann, Déf Mess = "Wich year ?" Tit = "Year of the calendar" Déf = Year(Now) Ann = InputBox(Mess, Tit, Déf)   'Pour le nom d'une feuille précise Sheets("blabla").name = Ann 'Pour le nom de la feuille active Activesheet.name = Ann 'Pour le mettre dans une case d'une feuille précise Sheets("blabla").range("A1") = Ann 'Pour le mettre dans une case de la feuille active Activesheet.range("A1") = Ann 'Pour utiliser le nom de feuille Ann Sheets(Ann).range("A1") = "toto"

---

comment je peux svp récupérer la valeur un Input-box pour la mettre dans le code de la feuille cette valeur est changeante
et quelle sont svp la déclaration s' il y lieu merci

With Sheets("?")

Salut,
Simplement ainsi :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub test() Dim Mess, Tit, Ann, Déf Mess = "Wich year ?" Tit = "Year of the calendar" Déf = Year(Now) Ann = InputBox(Mess, Tit, Déf)   If Ann <> "" Then ActiveSheet.Name = Ann End If End Sub

---

bonjour et merci de proposer quelque chose

dans le code de la feuille si je mets

Code:

---

With Sheets("ann")

---

cela fonctionne pas car ann c'est une valeur changeante

ne pas confondre le nom de la variable et son contenu

Code:

---

1 2 3

With Sheets(ann)   end with

---

dans ce cas comment je déclare stp ann variant string

en string bien sûr car c'est ce qui est attendu dans le nom de ta feuille.

mais ceci fonctionne aussi

Code:

---

dim ann

---

merci à tous!:ccool: