saisie avec un userfrom

Le
Fredy
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #4908701
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



Fredy
Le #4908521
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 -



Publicité
Poster une réponse
Anonyme