Bonjour,
J'ai une UserForm qui doir me servir à entrer des données sur une
Feuilles( 5 données à chaque fois)
Mon problème est le suivant, une fois les données entrées j'aimerais
qu'elles soient copier automatiquement à la fin de ma feuille sans éffacer
les données déjà existantes et sachant que la feuille pour avoir plusieurs
milliers de lignes????
-----Message d'origine----- Bonjour, J'ai une UserForm qui doir me servir à entrer des données sur une
Feuilles( 5 données à chaque fois) Mon problème est le suivant, une fois les données entrées j'aimerais
qu'elles soient copier automatiquement à la fin de ma feuille sans éffacer
les données déjà existantes et sachant que la feuille pour avoir plusieurs
milliers de lignes????
C'est possible Merci
Pascal
.
pabd
Ok Merci,
Ca marche mais je l'ai fait avec: Sheets("Toto").Rows("2:2").Insert Shift:=xlDown Maintenant j'ai un PB avec un Format numérique. J'ai une TextBox qui réçoit des données numériques, mais sur ma feuille de destination, Xl me renvoit un message d'erreur "Nombre stocké sous forme de texte " Hors comme j'ai des TCD qui reprennent ces données, cela ne calcule pas ou plante.
Comment je peux forcer le format? TextBox2 = Format(TextBox2, "????????")
Merci
Pascal
"Ellimac" a écrit dans le message de news:086701c3df54$3062bcd0$ Bonjour,
Sur clic d'un bouton OK par exemple et avec 5 TextBox :
-----Message d'origine----- Bonjour, J'ai une UserForm qui doir me servir à entrer des données sur une
Feuilles( 5 données à chaque fois) Mon problème est le suivant, une fois les données entrées j'aimerais
qu'elles soient copier automatiquement à la fin de ma feuille sans éffacer
les données déjà existantes et sachant que la feuille pour avoir plusieurs
milliers de lignes????
C'est possible Merci
Pascal
.
Ok Merci,
Ca marche mais je l'ai fait avec:
Sheets("Toto").Rows("2:2").Insert Shift:=xlDown
Maintenant j'ai un PB avec un Format numérique.
J'ai une TextBox qui réçoit des données numériques,
mais sur ma feuille de destination, Xl me renvoit un message d'erreur
"Nombre stocké sous forme de texte "
Hors comme j'ai des TCD qui reprennent ces données, cela ne calcule pas ou
plante.
Comment je peux forcer le format?
TextBox2 = Format(TextBox2, "????????")
Merci
Pascal
"Ellimac" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:086701c3df54$3062bcd0$a301280a@phx.gbl...
Bonjour,
Sur clic d'un bouton OK par exemple et avec 5 TextBox :
Ca marche mais je l'ai fait avec: Sheets("Toto").Rows("2:2").Insert Shift:=xlDown Maintenant j'ai un PB avec un Format numérique. J'ai une TextBox qui réçoit des données numériques, mais sur ma feuille de destination, Xl me renvoit un message d'erreur "Nombre stocké sous forme de texte " Hors comme j'ai des TCD qui reprennent ces données, cela ne calcule pas ou plante.
Comment je peux forcer le format? TextBox2 = Format(TextBox2, "????????")
Merci
Pascal
"Ellimac" a écrit dans le message de news:086701c3df54$3062bcd0$ Bonjour,
Sur clic d'un bouton OK par exemple et avec 5 TextBox :
-----Message d'origine----- Bonjour, J'ai une UserForm qui doir me servir à entrer des données sur une
Feuilles( 5 données à chaque fois) Mon problème est le suivant, une fois les données entrées j'aimerais
qu'elles soient copier automatiquement à la fin de ma feuille sans éffacer
les données déjà existantes et sachant que la feuille pour avoir plusieurs
milliers de lignes????
C'est possible Merci
Pascal
.
Frédéric Sigonneau
Bonsoir,
Par exemple :
Sheets("Toto").Rows("2:2").Range("C1").Value = textbox3.Value * 1 ou Sheets("Toto").Rows("2:2").Range("C1").Value = CLng(textbox3.Value)
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Ok Merci,
Ca marche mais je l'ai fait avec: Sheets("Toto").Rows("2:2").Insert Shift:=xlDown Maintenant j'ai un PB avec un Format numérique. J'ai une TextBox qui réçoit des données numériques, mais sur ma feuille de destination, Xl me renvoit un message d'erreur "Nombre stocké sous forme de texte " Hors comme j'ai des TCD qui reprennent ces données, cela ne calcule pas ou plante.
Comment je peux forcer le format? TextBox2 = Format(TextBox2, "????????")
Merci
Pascal
"Ellimac" a écrit dans le message de news:086701c3df54$3062bcd0$ Bonjour,
Sur clic d'un bouton OK par exemple et avec 5 TextBox :
-----Message d'origine----- Bonjour, J'ai une UserForm qui doir me servir à entrer des données sur une
Feuilles( 5 données à chaque fois) Mon problème est le suivant, une fois les données entrées j'aimerais
qu'elles soient copier automatiquement à la fin de ma feuille sans éffacer
les données déjà existantes et sachant que la feuille pour avoir plusieurs
milliers de lignes????
C'est possible Merci
Pascal
.
Bonsoir,
Par exemple :
Sheets("Toto").Rows("2:2").Range("C1").Value = textbox3.Value * 1
ou
Sheets("Toto").Rows("2:2").Range("C1").Value = CLng(textbox3.Value)
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Ok Merci,
Ca marche mais je l'ai fait avec:
Sheets("Toto").Rows("2:2").Insert Shift:=xlDown
Maintenant j'ai un PB avec un Format numérique.
J'ai une TextBox qui réçoit des données numériques,
mais sur ma feuille de destination, Xl me renvoit un message d'erreur
"Nombre stocké sous forme de texte "
Hors comme j'ai des TCD qui reprennent ces données, cela ne calcule pas ou
plante.
Comment je peux forcer le format?
TextBox2 = Format(TextBox2, "????????")
Merci
Pascal
"Ellimac" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:086701c3df54$3062bcd0$a301280a@phx.gbl...
Bonjour,
Sur clic d'un bouton OK par exemple et avec 5 TextBox :
Sheets("Toto").Rows("2:2").Range("C1").Value = textbox3.Value * 1 ou Sheets("Toto").Rows("2:2").Range("C1").Value = CLng(textbox3.Value)
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Ok Merci,
Ca marche mais je l'ai fait avec: Sheets("Toto").Rows("2:2").Insert Shift:=xlDown Maintenant j'ai un PB avec un Format numérique. J'ai une TextBox qui réçoit des données numériques, mais sur ma feuille de destination, Xl me renvoit un message d'erreur "Nombre stocké sous forme de texte " Hors comme j'ai des TCD qui reprennent ces données, cela ne calcule pas ou plante.
Comment je peux forcer le format? TextBox2 = Format(TextBox2, "????????")
Merci
Pascal
"Ellimac" a écrit dans le message de news:086701c3df54$3062bcd0$ Bonjour,
Sur clic d'un bouton OK par exemple et avec 5 TextBox :
