Définir une variable

Salut le forum,

dans ce code :

Sub InsérerFeuille()

Dim nomval As String

nomval = tbonom.Text

If Range("Employés!S1").Value <> 0 Then

MsgBox "Vous avez choisit un nom de feuille existant. Veuillez en choisir un nouveau!"

Exit Sub

Else

Sheets("Feuille_de_temps").Select

Sheets("Feuille_de_temps").Copy after:=Worksheets(Worksheets.Count)

Sheets("Feuille_de_temps (2)").Name = nomval

End If

End Sub

la ligne en rouge me renvoit l'erreur : Variable not define pour tbonom

Il s'agit ici d'un textbox. J'ai essayé de le définir par la ligne Dim tbonom as object mais rien n'y fait.

Qu'est-ce que j'ai manqué?

Merci pour votre aide.

Bonsoir,

essaie avec ceci :

Dim nomval As String
nomval = Sheets("Feuil1").tbonom.Text

Je vais essayer mais tbonom est dans un userform.

Super felix, ça fonctionne.

Merci beaucoup.

Re-,

j'aurais peut-être pu le deviner?

Toujours est-il qu'un Textbox (et tous les contrôles) doivent être "rattachés" à un objet (sheets ou userform)

De plus, si tu fermes ton usf, la valeur ne sera plus disponible, il te faut donc déclarer ta variable : nomval = tbonom.Text dans le code de l'usf, et le déclarer en Public, afin de pouvoir le réutiliser par la suite :

Public nomval As String

mais ceci, dans un module standard

En effet, je dois prendre l'habitude de déclarer mes variables et de le faire au bon endroit.

Merci beaucoup.