Insérer du texte dans une cellule depuis un userform

Bonjour, je souhaite créer un petit outil qui indiquerait dans une cellule le texte que je rentre dans un userform. Etant débutant en VB, le code que j'ai écrit retourne une erreur ( erreur 13). Quelqu'un sait où ca plante ???

Merci d'avance

Gametexx

Public montest As String

Sub test()

UserForm1.Show

End Sub

Sub test2()

Dim montest As String

montest = UserForm1.TextBox1.Value

Sheets(Feuil2).Cells(A1).Value = montest

End Sub

Bonjour,

Il n'est pas utile de passer par une variable :

Sheets("Feuil2").Cells(1,1)= Me.TextBox1 'suffit amplement dans les cas les plus courants

Si tu veux utiliser la notation A1 il faut utiliser l'objet Range :

montest = UserForm1.TextBox1.Value
Sheets("Feuil2").Range("A1").Value = montest

Dans les 2 cas ne pas oublier les guillemets.

Nota : Merci d'encadrer tout ce qui est VBA dans le forum avec la balise code </>

A+

Merci pour ta réponse

J'ai une autre question : si au lieu de passer par une textbox, on sélectionne un élément parmi une liste déroulante, comment sera modifié le code ? Mon fichier paramètre est dans une autre feuille et je ne comprends pas d'où vient l'erreur

Private Sub BtnOK_Click()

Dim Rep%, i%

For i = 0 To ListeEnergies.ListCount - 1

If Sheets("Paramétrages").ListEnergies.Selected(i) = True Then

Sheets("Feuil8").Range("L24").Value = Sheets("Paramétrages").ListEnergies.Selected(i)

End If

Next i

Bonjour,

Si tu ne dis pas ce qu'est ListEnergies... !

ListBox ou ComboBox à multisélection dans la feuille ?