OVH Cloud OVH Cloud

Textbox

5 réponses
Avatar
STEN
Bonjour =E0 tous,=20
J'ai un UserForm avec plusieurs Textbox ou je vais entrer=20
des donn=E9es de format text et date, je voudrais que ces=20
donn=E9es soit inscritent dans des cellules sur validation,=20
mais comment faire pour que les prochaines donn=E9es=20
s'inscrivent dans les cellules juste en dessous des=20
pr=E9c=E9dentes?

Merci de votre aide!

5 réponses

Avatar
isabelle
bonjour STEN,

voici un exemple,

Sheets("Feuil1").Range("A" & _
Sheets("Feuil1").Range("A65535").End(xlUp).Row + 1) userform1.Textbox1.value

isabelle


Bonjour à tous,
J'ai un UserForm avec plusieurs Textbox ou je vais entrer
des données de format text et date, je voudrais que ces
données soit inscritent dans des cellules sur validation,
mais comment faire pour que les prochaines données
s'inscrivent dans les cellules juste en dessous des
précédentes?

Merci de votre aide!


Avatar
STEN
-----Message d'origine-----
bonjour STEN,

voici un exemple,

Sheets("Feuil1").Range("A" & _
Sheets("Feuil1").Range("A65535").End(xlUp).Row + 1) =
userform1.Textbox1.value

isabelle


Bonjour à tous,
J'ai un UserForm avec plusieurs Textbox ou je vais
entrer


des données de format text et date, je voudrais que ces
données soit inscritent dans des cellules sur
validation,


mais comment faire pour que les prochaines données
s'inscrivent dans les cellules juste en dessous des
précédentes?

Merci de votre aide!
.

BONJOUR Isabelle,
Je viens d'essayer mais cela ne fonctionne pas pourtant

j'ai adapter ton code a ce que je veux, a chaque fois que
j'entre une nouvelle donnée dans mon textbox le resultat
et envoyer au moins 100 cellules plus bas ?

Voici le code que j'ai mis:
Private Sub CmdValid_Click()
Sheets("DONNEES").Range("A1" & _
Sheets("DONNEES").Range("A65535").End(xlUp).Row + 1) =
VALIDATION.Calendrier.Value

End Sub


Avatar
papou
Bonjour
Sheets("Feuil1").Range("A65536").End(xlUp)(2).Value UserForm1.TextBox1.Value
Cordialement
Pascal

"STEN" a écrit dans le message de news:
1fbe01c42774$97f4f800$

-----Message d'origine-----
bonjour STEN,

voici un exemple,

Sheets("Feuil1").Range("A" & _
Sheets("Feuil1").Range("A65535").End(xlUp).Row + 1) >userform1.Textbox1.value

isabelle


Bonjour à tous,
J'ai un UserForm avec plusieurs Textbox ou je vais
entrer


des données de format text et date, je voudrais que ces
données soit inscritent dans des cellules sur
validation,


mais comment faire pour que les prochaines données
s'inscrivent dans les cellules juste en dessous des
précédentes?

Merci de votre aide!
.

BONJOUR Isabelle,
Je viens d'essayer mais cela ne fonctionne pas pourtant

j'ai adapter ton code a ce que je veux, a chaque fois que
j'entre une nouvelle donnée dans mon textbox le resultat
et envoyer au moins 100 cellules plus bas ?

Voici le code que j'ai mis:
Private Sub CmdValid_Click()
Sheets("DONNEES").Range("A1" & _
Sheets("DONNEES").Range("A65535").End(xlUp).Row + 1) VALIDATION.Calendrier.Value

End Sub


Avatar
isabelle
bonjour Sten,

tu as mis un 1 en trop, voie sur:
Range("A" &

isabelle


-----Message d'origine-----
bonjour STEN,

voici un exemple,

Sheets("Feuil1").Range("A" & _
Sheets("Feuil1").Range("A65535").End(xlUp).Row + 1) > >userform1.Textbox1.value

isabelle


Bonjour à tous,
J'ai un UserForm avec plusieurs Textbox ou je vais
entrer


des données de format text et date, je voudrais que ces
données soit inscritent dans des cellules sur
validation,


mais comment faire pour que les prochaines données
s'inscrivent dans les cellules juste en dessous des
précédentes?

Merci de votre aide!
.

BONJOUR Isabelle,
Je viens d'essayer mais cela ne fonctionne pas pourtant

j'ai adapter ton code a ce que je veux, a chaque fois que
j'entre une nouvelle donnée dans mon textbox le resultat
et envoyer au moins 100 cellules plus bas ?

Voici le code que j'ai mis:
Private Sub CmdValid_Click()
Sheets("DONNEES").Range("A1" & _
Sheets("DONNEES").Range("A65535").End(xlUp).Row + 1) > VALIDATION.Calendrier.Value

End Sub




Avatar
STEN
-----Message d'origine-----
Bonjour
Sheets("Feuil1").Range("A65536").End(xlUp)(2).Value =
UserForm1.TextBox1.Value
Cordialement
Pascal

"STEN" a écrit dans le message de
news:

1fbe01c42774$97f4f800$

-----Message d'origine-----
bonjour STEN,

voici un exemple,

Sheets("Feuil1").Range("A" & _
Sheets("Feuil1").Range("A65535").End(xlUp).Row + 1) =
userform1.Textbox1.value

isabelle


Bonjour à tous,
J'ai un UserForm avec plusieurs Textbox ou je vais
entrer


des données de format text et date, je voudrais que
ces



données soit inscritent dans des cellules sur
validation,


mais comment faire pour que les prochaines données
s'inscrivent dans les cellules juste en dessous des
précédentes?

Merci de votre aide!
.

BONJOUR Isabelle,
Je viens d'essayer mais cela ne fonctionne pas pourtant

j'ai adapter ton code a ce que je veux, a chaque fois que
j'entre une nouvelle donnée dans mon textbox le resultat
et envoyer au moins 100 cellules plus bas ?

Voici le code que j'ai mis:
Private Sub CmdValid_Click()
Sheets("DONNEES").Range("A1" & _
Sheets("DONNEES").Range("A65535").End(xlUp).Row + 1) =
VALIDATION.Calendrier.Value

End Sub



.Merci et pardon pour la faute !!