Recherche feuille avec textbox

Bonjour à tous,

Est ce possible d'aller chercher le nom de la feuille depuis une textbox? A la place de " With Sheets("Ville_Tableau_suivi") " , qui indique directement la feuille, peut-on indiquer une textbox (cela me permettrait de choisir d'autres feuilles, ce dont j'ai besoin).

With Sheets("Ville_Tableau_suivi")

lg = .Range("B" & Rows.Count).End(xlUp).Row
For j = 2 To lg
If Me.TextBoxLien = .Range("B" & j) Then
MsgBox "Convention déja enregistrée"

Exit Sub
End If
Next j

Lgn = Application.Max(2, .Range("B" & Rows.Count).End(xlUp).Row + 1)

For I = 1 To 4

Next I

.Range("B" & Lgn).Value = Me.TextBoxLien
.Range("C" & Lgn).Value = Me.TextBoxOrganisme
.Range("D" & Lgn).Value = Me.ComboBoxObjet
.Range("E" & Lgn).Value = Me.ComboBoxEtat
.Range("F" & Lgn).Value = Me.TextBoxDate
.Range("H" & Lgn).Value = Me.TextBoxDurée
.Range("J" & Lgn).Value = Me.ComboBoxAttest

End With

Merci!

Belle journée!

EDIT Modo : merci d'utiliser les balises de codes en cliquant sur l'icone </> dans la barre de menu

Il me semble qu'il serait plus simple de mettre une combo dans le formulaire. Juste pour lancer le débat.

bonjour

je pense réponse du même type

Bonjour,

Merci pour votre aide.

J'aimerais plutôt que d'avoir la liste de toutes les feuilles présentes dans le fichier, j'aimerais ne faire apparaitre que 2 feuilles en particulier (par exemple DURTAL_TABLEAU_SUIVI et SEICHES_TABLEAU_SUIVI.

Possibilité d'indiquer dans le code le nom des feuilles (si elles changent, je changerais à la main).

Merci encore.

Je ne vous conseille pas de mettre le nom des onglets dans le dur.

Le plus simple est de charger les onglets dans la combo par leur n° d'ordre (le 1er étant à gauche). Le système ignorera le nom des onglets et ne s'occupera que de leur rang.
Dans l'exemple ci-dessous les onglets sont placés de la façon suivante :

1er : Feuil1
2e : DURTAL_TABLEAU_SUIVI
3e : Feuil2
4e : Feuil3
5e : SEICHES_TABLEAU_SUIVI
6e : Feuil4