Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel saisie avec un userfrom

saisie avec un userfrom

2 réponses
Avatar
Fredy
Bonjour =E0 tous,
J'ai fait un user form pour faire des saisies, et miracle il
fonctionne..
Est-il possible d'integrer mon textbox2 dans mon textbox3, (qui ajoute
un commentaire)
afin d'=E9viter d,=EAtre oblige de refaire la saisie du textbox2 dans le
textbox3.

Private Sub CommandButton1_Click()
'Ranger les donn=E9es du Userform
Feuil9.Range("a65536").End(xlUp).Offset(1, 0).Value =3D
Me.TextBox1.Text
Feuil9.Range("b65536").End(xlUp).Offset(1, 0).Value =3D
Me.TextBox2.Text
Feuil9.Range("a65536").End(xlUp).Offset(0, 0).AddComment
(Me.TextBox3.Text)
Unload UserForm2
End Sub
Merci pour toutes r=E9ponses.
Fredy
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
isabelle
bonjour Fredy,

LeTexte = Me.TextBox2.Text & Me.TextBox3.Text
Feuil9.Range("a65536").End(xlUp).Offset(0, 0).AddComment(LeTexte)

isabelle


Bonjour à tous,
J'ai fait un user form pour faire des saisies, et miracle il
fonctionne..
Est-il possible d'integrer mon textbox2 dans mon textbox3, (qui ajoute
un commentaire)
afin d'éviter d,être oblige de refaire la saisie du textbox2 dans le
textbox3.

Private Sub CommandButton1_Click()
'Ranger les données du Userform
Feuil9.Range("a65536").End(xlUp).Offset(1, 0).Value > Me.TextBox1.Text
Feuil9.Range("b65536").End(xlUp).Offset(1, 0).Value > Me.TextBox2.Text
Feuil9.Range("a65536").End(xlUp).Offset(0, 0).AddComment
(Me.TextBox3.Text)
Unload UserForm2
End Sub
Merci pour toutes réponses.
Fredy



Avatar
Fredy
On 28 juin, 16:21, isabelle wrote:
Bonsoir Isabelle,
Merci pour ton aide, ça fonctione.
Et bonne soirée

bonjour Fredy,

LeTexte = Me.TextBox2.Text & Me.TextBox3.Text
Feuil9.Range("a65536").End(xlUp).Offset(0, 0).AddComment(LeTexte)

isabelle




Bonjour à tous,
J'ai fait un user form pour faire des saisies, et miracle il
fonctionne..
Est-il possible d'integrer mon textbox2 dans mon textbox3, (qui ajoute
un commentaire)
afin d'éviter d,être oblige de refaire la saisie du textbox2 dans le
textbox3.

Private Sub CommandButton1_Click()
'Ranger les données du Userform
Feuil9.Range("a65536").End(xlUp).Offset(1, 0).Value =
Me.TextBox1.Text
Feuil9.Range("b65536").End(xlUp).Offset(1, 0).Value =
Me.TextBox2.Text
Feuil9.Range("a65536").End(xlUp).Offset(0, 0).AddComment
(Me.TextBox3.Text)
Unload UserForm2
End Sub
Merci pour toutes réponses.
Fredy- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -