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
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
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
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
On 28 juin, 16:21, isabelle wrote: Bonsoir Isabelle, Merci pour ton aide, ça fonctione. Et bonne soirée
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 -
On 28 juin, 16:21, isabelle <i@v> wrote:
Bonsoir Isabelle,
Merci pour ton aide, ça fonctione.
Et bonne soirée
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 -
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 -