Prb pour entrée valeur text box

Question

Re bonjour a tous.

Encore un coup de main svp.

j'ai un userform avec une textbox que j'active en faisan clik droit sur une des cellule ("A17:A220").

Mon UF s'affiche, jusque la no prob.

Je voudrai que lorsque Mon userform avec ma Text box s'affiche , la valeur de la cellule que j'ai selectionner, et pouvoir la modifer et valider par un command button.

Voici mon debut de code

code dans ma feuil1 pour affiche mon UF

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("A17:A221")) Is Nothing Then
UserForm1.Show
End If
End Sub

Ensuite code pour que affiche le contenu de ma cellule dans ma TB ( qui s'affiche uniquement si je click dessus

Private Sub TextBox17_Change()
  TextBox17.Value = ActiveCell.Text
End Sub

et ensuite, code pour valider copier le 'nouveau' contenu de ma TB dans la cellule selectionner.

Private Sub CommandButton17_Click()
ActiveCell = TextBox17.Value
End Sub

Mon UF s'affiche, le contenue de ma cellule s'affiche ( uniquement si je rentre dedans) mais je n'arrive pas a modifier le contenu de ma TB.

Quelle est la solution????

Merci bien a bientot.

Theze · Answer

La valeur de la TextBox est entrée automatiquement à l'ouverture de la Form : Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Not Application.Intersect(Target, Range("A17:A221")) Is Nothing Then 'charge la Form en mémoire Load UserForm1 'inscrit la valeur de la cellule dans la TextBox UserForm1.TextBox1.Text = Target.Value 'puis affiche la Form UserForm1.Show End If End Sub A la fermeture de la Form ou à la sélection d'un autre contrôle, la valeur entrée dans le TexBox est inscrite dans la cellule active : Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) ActiveCell.Value = TextBox1.Text End Sub Hervé...