Nommée un sheets via textbox

Bonjour à tous,

je voudrais savoir s'il est possible de nommé un sheets via une textbox, je m explique...

Sheets("Journée").Range("T65536").End(xlUp).Offset(1, 0).Value = TextBox20.Value

c est mon code de départ, mais je voulais savoir si c'était possible de faire quelque chose du style

Sheets("textbox23").Range("R65536").End(xlUp).Offset(1, 0).Value = TextBox18.Value

car je fait une recherche afin de mettre mes encodage sur une feuille par année, et pour ce jutilise

Dim F As Worksheet
'.....
For Each F In Sheets
    If UCase(F.Name) Like TextBox23.Value Then
        'traitement ou F.activate
        MsgBox "ok"
        Else
        Sheets.Add
    ActiveSheet.Name = TextBox23.Value
        Exit For
    End If
Next F

merci à vous

Bonsoir,

Je comprend pas tout, mais test

a= textbox23.value

Sheets(a).Range("R" & Rows.Count).End(xlUp).Row + 1.value = TextBox18.Value

Cordialement

bonsoir merci pour ta reponse je pense que c est ce que je cherchais mais il me dit que la variable est non definie, et je ne me souviens plus comment la definir...

ce que je voudrais c'est qu'il choisse le sheets, de l'année a encoder 2018, pour le moment puis 2019, ect.. en gros

Dim a as integer

et si la valeur de a n'est pas la bonne essaye

a = &"&textbox23.value&"&

Bonne nuit

j allais justement te dire qu'au final j avais trouvé merci beaucoup pour ta reponse bonne nuit