Discussion :

[pilounet54]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

With Sheets("?")

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

[EngueEngue]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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"

[pilounet54]

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("?")

[Oliv-]

Salut,
Simplement ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pilounet54]

bonjour et merci de proposer quelque chose

dans le code de la feuille si je mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

With Sheets("ann")

cela fonctionne pas car ann c'est une valeur changeante

[Oliv-]

ne pas confondre le nom de la variable et son contenu

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With Sheets(ann)
 
end with