Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel probleme avec userform

probleme avec userform

17 réponses
Avatar
robert martin
Bonjour a tous

j'ai créer un userform avec ces quelque ligne de code attribué a un bouton

Private Sub CommandButton1_Click()

Range("a65000").End(xlUp).Offset(1, 0).Value = TextBox2

Range("b65000").End(xlUp).Offset(1, 0).Value = TextBox3

Range("c65000").End(xlUp).Offset(1, 0).Value = TextBox5

Range("d65000").End(xlUp).Offset(1, 0).Value = TextBox4

Range("e65000").End(xlUp).Offset(1, 0).Value = ComboBox1

Range("f65000").End(xlUp).Offset(1, 0).Value = TextBox6

Range("g65000").End(xlUp).Offset(1, 0).Value = ComboBox2

Range("h65000").End(xlUp).Offset(1, 0).Value = ComboBox4



End Sub



et lorsque je click sur ce bouton les donné vont dans les lignes voulu sauf
que mon fichier bug

mon bouton reste enfoncé et je ne peu plus rien faire d'autre que
ctrl-alt-del

quelqu'un peu t'il m'aider avec ce problème



Merci d'avance



Robert
Signaler un problème avec ce contenu

7 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
1 2
Avatar
robert martin
Merci a vous tous pour votre aide

le gros de mon problème étais la date

je trouve logique les correction apporté a mes lignes par cousinhub
mais est-ce normal que l'entrée de mes données vont dans la rangé 8 qui
sont occupé par les titres de mes colonnes
et la date apparaît a nul part ?????

merci de m'éclairer

Robert




"cousinhub" a écrit dans le message de news:
%
Bonjour,
ton fichier fonctionne également chez moi,
j'ai modifié quelques lignes (les cellules destinataires pouvaient être
erronées, si tu ne remplis pas toutes les cases de ton usf)
de plus, la date va se mettre automatiquement à la date d'aujourd'hui dans
l'usf
Essaye-le et dis-nous http://cjoint.com/?crqbuRK6Lt



Bonjour isabelle,

comme je l'indique au début de mon post lorsque
je click sur valider mon bouton reste enfoncer
je ne peut plus entrée de nouvelle donnée
et ma seul solution pour continuer de travailler est
Ctrl-Alt-Del

Robert



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

bonjour Robert,

j'ai testé ton fichier et rien ne bug.
peut tu préciser la nature du bug, recois tu un message d'erreur ?

a+
isabelle

Merci de t'acharner sur mon sort

j'ai suivi tes directives et rien ne marche encore
je te joint mon fichier essais de voir ce qui ne vas pas

http://cjoint.com/?crcFaV7WdT

click sur le bouton "entrée des commandes" et
ensuite sur le bouton "stratifié" et quand tu clickeras sur valider
tout vas bugger

pour les autre bouton rien ne marche car je suis a la phase
préliminaire de mon formulaire

Merci encore

Robert








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

Re bonjour,
reste plus qu'a mettre Userform1.TextBox2.Text 'idem pour les autres
ou Me.TextBox2.Text
Chose étrange TextBox3.text le mot Text est sans la
majuscule>>vérifie que textbox3 soit bien reconnu
si tu as fait un copier-coller cé par là qu'il faut commencer.
Donc mettre une apostrophe en début de ligne du textbox3
Youky
"robert martin" a écrit dans le message
de news: u$

Bonjour Youky,

Merci pour ta réponse
mais j'ai toujours le même souci
j'ai ajouté feuil1. au début et .text a chacune de mes lignes
et ma feuille de destination est bien feuil1
aurais tu une autre solution a mon problème
voici ce a quoi ressemble mes lignes

Feuil1.Range("a65000").End(xlUp).Offset(1, 0).Value = TextBox2.Text
Feuil1.Range("b65000").End(xlUp).Offset(1, 0).Value = TextBox3.text

Feuil1.Range("c65000").End(xlUp).Offset(1, 0).Value = TextBox5.Text

Feuil1.Range("d65000").End(xlUp).Offset(1, 0).Value = TextBox4.Text

Feuil1.Range("e65000").End(xlUp).Offset(1, 0).Value = ComboBox1.Text

Feuil1.Range("f65000").End(xlUp).Offset(1, 0).Value = TextBox6.Text

Feuil1.Range("g65000").End(xlUp).Offset(1, 0).Value = ComboBox2.Text

Feuil1.Range("h65000").End(xlUp).Offset(1, 0).Value = ComboBox4.Text



Merci d'aavnce

Robert




"Youky" a écrit dans le message de
news: %23oG9z%

En partant d'un Userform il faut indiquer le nom de la page
de préférence Feuil1 plutot que le nom de l'onglet si la page est
renommée
ceci est visible en fenetre des projets à gauche Feuil1
(Donnée)
ensuite aussi indiquer ".Text" aussi bien pour les textbox que les
combobox
exemple
Feuil1.Range("a65000").End(xlUp).Offset(1, 0).Value = TextBox2.Text
Youky

"robert martin" a écrit dans le message
de news: e$

Bonjour a tous

j'ai créer un userform avec ces quelque ligne de code attribué a un
bouton

Private Sub CommandButton1_Click()

Range("a65000").End(xlUp).Offset(1, 0).Value = TextBox2

Range("b65000").End(xlUp).Offset(1, 0).Value = TextBox3

Range("c65000").End(xlUp).Offset(1, 0).Value = TextBox5

Range("d65000").End(xlUp).Offset(1, 0).Value = TextBox4

Range("e65000").End(xlUp).Offset(1, 0).Value = ComboBox1

Range("f65000").End(xlUp).Offset(1, 0).Value = TextBox6

Range("g65000").End(xlUp).Offset(1, 0).Value = ComboBox2

Range("h65000").End(xlUp).Offset(1, 0).Value = ComboBox4



End Sub



et lorsque je click sur ce bouton les donné vont dans les lignes
voulu sauf que mon fichier bug

mon bouton reste enfoncé et je ne peu plus rien faire d'autre que
ctrl-alt-del

quelqu'un peu t'il m'aider avec ce problème



Merci d'avance



Robert




















Avatar
cousinhub
Bonsoir,
Quel fichier utilises-tu (le mien ou le tien)?
Si tu as modifié le tien, est-ce que tu as bien laissé le offset(1, 0)
pour la première recherche de cellule :
Feuil1.Range("a65000").End(xlUp).Offset(1, 0).Value = uf_strat.TextBox2.Text
Bonne soirée

Merci a vous tous pour votre aide

le gros de mon problème étais la date

je trouve logique les correction apporté a mes lignes par cousinhub
mais est-ce normal que l'entrée de mes données vont dans la rangé 8 qui
sont occupé par les titres de mes colonnes
et la date apparaît a nul part ?????

merci de m'éclairer

Robert




"cousinhub" a écrit dans le message de news:
%
Bonjour,
ton fichier fonctionne également chez moi,
j'ai modifié quelques lignes (les cellules destinataires pouvaient être
erronées, si tu ne remplis pas toutes les cases de ton usf)
de plus, la date va se mettre automatiquement à la date d'aujourd'hui dans
l'usf
Essaye-le et dis-nous http://cjoint.com/?crqbuRK6Lt



Bonjour isabelle,

comme je l'indique au début de mon post lorsque
je click sur valider mon bouton reste enfoncer
je ne peut plus entrée de nouvelle donnée
et ma seul solution pour continuer de travailler est
Ctrl-Alt-Del

Robert



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

bonjour Robert,

j'ai testé ton fichier et rien ne bug.
peut tu préciser la nature du bug, recois tu un message d'erreur ?

a+
isabelle

Merci de t'acharner sur mon sort

j'ai suivi tes directives et rien ne marche encore
je te joint mon fichier essais de voir ce qui ne vas pas

http://cjoint.com/?crcFaV7WdT

click sur le bouton "entrée des commandes" et
ensuite sur le bouton "stratifié" et quand tu clickeras sur valider
tout vas bugger

pour les autre bouton rien ne marche car je suis a la phase
préliminaire de mon formulaire

Merci encore

Robert








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

Re bonjour,
reste plus qu'a mettre Userform1.TextBox2.Text 'idem pour les autres
ou Me.TextBox2.Text
Chose étrange TextBox3.text le mot Text est sans la
majuscule>>vérifie que textbox3 soit bien reconnu
si tu as fait un copier-coller cé par là qu'il faut commencer.
Donc mettre une apostrophe en début de ligne du textbox3
Youky
"robert martin" a écrit dans le message
de news: u$

Bonjour Youky,

Merci pour ta réponse
mais j'ai toujours le même souci
j'ai ajouté feuil1. au début et .text a chacune de mes lignes
et ma feuille de destination est bien feuil1
aurais tu une autre solution a mon problème
voici ce a quoi ressemble mes lignes

Feuil1.Range("a65000").End(xlUp).Offset(1, 0).Value = TextBox2.Text
Feuil1.Range("b65000").End(xlUp).Offset(1, 0).Value = TextBox3.text

Feuil1.Range("c65000").End(xlUp).Offset(1, 0).Value = TextBox5.Text

Feuil1.Range("d65000").End(xlUp).Offset(1, 0).Value = TextBox4.Text

Feuil1.Range("e65000").End(xlUp).Offset(1, 0).Value = ComboBox1.Text

Feuil1.Range("f65000").End(xlUp).Offset(1, 0).Value = TextBox6.Text

Feuil1.Range("g65000").End(xlUp).Offset(1, 0).Value = ComboBox2.Text

Feuil1.Range("h65000").End(xlUp).Offset(1, 0).Value = ComboBox4.Text



Merci d'aavnce

Robert




"Youky" a écrit dans le message de
news: %23oG9z%

En partant d'un Userform il faut indiquer le nom de la page
de préférence Feuil1 plutot que le nom de l'onglet si la page est
renommée
ceci est visible en fenetre des projets à gauche Feuil1
(Donnée)
ensuite aussi indiquer ".Text" aussi bien pour les textbox que les
combobox
exemple
Feuil1.Range("a65000").End(xlUp).Offset(1, 0).Value = TextBox2.Text
Youky

"robert martin" a écrit dans le message
de news: e$

Bonjour a tous

j'ai créer un userform avec ces quelque ligne de code attribué a un
bouton

Private Sub CommandButton1_Click()

Range("a65000").End(xlUp).Offset(1, 0).Value = TextBox2

Range("b65000").End(xlUp).Offset(1, 0).Value = TextBox3

Range("c65000").End(xlUp).Offset(1, 0).Value = TextBox5

Range("d65000").End(xlUp).Offset(1, 0).Value = TextBox4

Range("e65000").End(xlUp).Offset(1, 0).Value = ComboBox1

Range("f65000").End(xlUp).Offset(1, 0).Value = TextBox6

Range("g65000").End(xlUp).Offset(1, 0).Value = ComboBox2

Range("h65000").End(xlUp).Offset(1, 0).Value = ComboBox4



End Sub



et lorsque je click sur ce bouton les donné vont dans les lignes
voulu sauf que mon fichier bug

mon bouton reste enfoncé et je ne peu plus rien faire d'autre que
ctrl-alt-del

quelqu'un peu t'il m'aider avec ce problème



Merci d'avance



Robert






















Avatar
robert martin
rebonjour cousinhub

j'utilise ton fichier mais j'ai un problème de date
tout est causé par la date
cette ligne de code ne veut pas s'appliquer
au Textbox2

TextBox2.Value = Format(Now, "dd/mm/yyyy")

mon Textbox2 reste vide il n'y a pas de date qui apparaît
et quand je fait VALIDER, ma cellule A1 reste vide par ce que le contenu du
Textbox2 est vide, et mes référence du décalage est basé sur ma cellule A1
c'est pour cela que tout dérape

pourquoi la date apparaît pas dans mon Textbox2 ??
est-ce un problème de format de date ??
chez toi est ce que tout ce passe bien ??

merci de ton aide

Robert





"cousinhub" a écrit dans le message de news:
%
Bonsoir,
Quel fichier utilises-tu (le mien ou le tien)?
Si tu as modifié le tien, est-ce que tu as bien laissé le offset(1, 0)
pour la première recherche de cellule :
Feuil1.Range("a65000").End(xlUp).Offset(1, 0).Value =
uf_strat.TextBox2.Text
Bonne soirée

Merci a vous tous pour votre aide

le gros de mon problème étais la date

je trouve logique les correction apporté a mes lignes par cousinhub
mais est-ce normal que l'entrée de mes données vont dans la rangé 8 qui
sont occupé par les titres de mes colonnes
et la date apparaît a nul part ?????

merci de m'éclairer

Robert




"cousinhub" a écrit dans le message de news:
%
Bonjour,
ton fichier fonctionne également chez moi,
j'ai modifié quelques lignes (les cellules destinataires pouvaient être
erronées, si tu ne remplis pas toutes les cases de ton usf)
de plus, la date va se mettre automatiquement à la date d'aujourd'hui
dans l'usf
Essaye-le et dis-nous http://cjoint.com/?crqbuRK6Lt



Bonjour isabelle,

comme je l'indique au début de mon post lorsque
je click sur valider mon bouton reste enfoncer
je ne peut plus entrée de nouvelle donnée
et ma seul solution pour continuer de travailler est
Ctrl-Alt-Del

Robert



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

bonjour Robert,

j'ai testé ton fichier et rien ne bug.
peut tu préciser la nature du bug, recois tu un message d'erreur ?

a+
isabelle

Merci de t'acharner sur mon sort

j'ai suivi tes directives et rien ne marche encore
je te joint mon fichier essais de voir ce qui ne vas pas

http://cjoint.com/?crcFaV7WdT

click sur le bouton "entrée des commandes" et
ensuite sur le bouton "stratifié" et quand tu clickeras sur valider
tout vas bugger

pour les autre bouton rien ne marche car je suis a la phase
préliminaire de mon formulaire

Merci encore

Robert








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

Re bonjour,
reste plus qu'a mettre Userform1.TextBox2.Text 'idem pour les autres
ou Me.TextBox2.Text
Chose étrange TextBox3.text le mot Text est sans la
majuscule>>vérifie que textbox3 soit bien reconnu
si tu as fait un copier-coller cé par là qu'il faut commencer.
Donc mettre une apostrophe en début de ligne du textbox3
Youky
"robert martin" a écrit dans le message
de news: u$

Bonjour Youky,

Merci pour ta réponse
mais j'ai toujours le même souci
j'ai ajouté feuil1. au début et .text a chacune de mes lignes
et ma feuille de destination est bien feuil1
aurais tu une autre solution a mon problème
voici ce a quoi ressemble mes lignes

Feuil1.Range("a65000").End(xlUp).Offset(1, 0).Value = TextBox2.Text
Feuil1.Range("b65000").End(xlUp).Offset(1, 0).Value = TextBox3.text

Feuil1.Range("c65000").End(xlUp).Offset(1, 0).Value = TextBox5.Text

Feuil1.Range("d65000").End(xlUp).Offset(1, 0).Value = TextBox4.Text

Feuil1.Range("e65000").End(xlUp).Offset(1, 0).Value =
ComboBox1.Text

Feuil1.Range("f65000").End(xlUp).Offset(1, 0).Value = TextBox6.Text

Feuil1.Range("g65000").End(xlUp).Offset(1, 0).Value =
ComboBox2.Text

Feuil1.Range("h65000").End(xlUp).Offset(1, 0).Value =
ComboBox4.Text



Merci d'aavnce

Robert




"Youky" a écrit dans le message de
news: %23oG9z%

En partant d'un Userform il faut indiquer le nom de la page
de préférence Feuil1 plutot que le nom de l'onglet si la page est
renommée
ceci est visible en fenetre des projets à gauche Feuil1
(Donnée)
ensuite aussi indiquer ".Text" aussi bien pour les textbox que les
combobox
exemple
Feuil1.Range("a65000").End(xlUp).Offset(1, 0).Value =
TextBox2.Text
Youky

"robert martin" a écrit dans le
message de news: e$

Bonjour a tous

j'ai créer un userform avec ces quelque ligne de code attribué a
un bouton

Private Sub CommandButton1_Click()

Range("a65000").End(xlUp).Offset(1, 0).Value = TextBox2

Range("b65000").End(xlUp).Offset(1, 0).Value = TextBox3

Range("c65000").End(xlUp).Offset(1, 0).Value = TextBox5

Range("d65000").End(xlUp).Offset(1, 0).Value = TextBox4

Range("e65000").End(xlUp).Offset(1, 0).Value = ComboBox1

Range("f65000").End(xlUp).Offset(1, 0).Value = TextBox6

Range("g65000").End(xlUp).Offset(1, 0).Value = ComboBox2

Range("h65000").End(xlUp).Offset(1, 0).Value = ComboBox4



End Sub



et lorsque je click sur ce bouton les donné vont dans les lignes
voulu sauf que mon fichier bug

mon bouton reste enfoncé et je ne peu plus rien faire d'autre que
ctrl-alt-del

quelqu'un peu t'il m'aider avec ce problème



Merci d'avance



Robert























Avatar
cousinhub
Bonjour,
chez moi, cela fonctionne bien, mais tu peux essayer également ce code
dans l'initialisation de l'usf :
TextBox2.Value = Date
dis-nous si cela fonctionne, ou reposte le fichier ici
Bon courage

rebonjour cousinhub

j'utilise ton fichier mais j'ai un problème de date
tout est causé par la date
cette ligne de code ne veut pas s'appliquer
au Textbox2

TextBox2.Value = Format(Now, "dd/mm/yyyy")

mon Textbox2 reste vide il n'y a pas de date qui apparaît
et quand je fait VALIDER, ma cellule A1 reste vide par ce que le contenu du
Textbox2 est vide, et mes référence du décalage est basé sur ma cellule A1
c'est pour cela que tout dérape

pourquoi la date apparaît pas dans mon Textbox2 ??
est-ce un problème de format de date ??
chez toi est ce que tout ce passe bien ??

merci de ton aide

Robert





"cousinhub" a écrit dans le message de news:
%
Bonsoir,
Quel fichier utilises-tu (le mien ou le tien)?
Si tu as modifié le tien, est-ce que tu as bien laissé le offset(1, 0)
pour la première recherche de cellule :
Feuil1.Range("a65000").End(xlUp).Offset(1, 0).Value =
uf_strat.TextBox2.Text
Bonne soirée

Merci a vous tous pour votre aide

le gros de mon problème étais la date

je trouve logique les correction apporté a mes lignes par cousinhub
mais est-ce normal que l'entrée de mes données vont dans la rangé 8 qui
sont occupé par les titres de mes colonnes
et la date apparaît a nul part ?????

merci de m'éclairer

Robert




"cousinhub" a écrit dans le message de news:
%
Bonjour,
ton fichier fonctionne également chez moi,
j'ai modifié quelques lignes (les cellules destinataires pouvaient être
erronées, si tu ne remplis pas toutes les cases de ton usf)
de plus, la date va se mettre automatiquement à la date d'aujourd'hui
dans l'usf
Essaye-le et dis-nous http://cjoint.com/?crqbuRK6Lt



Bonjour isabelle,

comme je l'indique au début de mon post lorsque
je click sur valider mon bouton reste enfoncer
je ne peut plus entrée de nouvelle donnée
et ma seul solution pour continuer de travailler est
Ctrl-Alt-Del

Robert



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

bonjour Robert,

j'ai testé ton fichier et rien ne bug.
peut tu préciser la nature du bug, recois tu un message d'erreur ?

a+
isabelle

Merci de t'acharner sur mon sort

j'ai suivi tes directives et rien ne marche encore
je te joint mon fichier essais de voir ce qui ne vas pas

http://cjoint.com/?crcFaV7WdT

click sur le bouton "entrée des commandes" et
ensuite sur le bouton "stratifié" et quand tu clickeras sur valider
tout vas bugger

pour les autre bouton rien ne marche car je suis a la phase
préliminaire de mon formulaire

Merci encore

Robert








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

Re bonjour,
reste plus qu'a mettre Userform1.TextBox2.Text 'idem pour les autres
ou Me.TextBox2.Text
Chose étrange TextBox3.text le mot Text est sans la
majuscule>>vérifie que textbox3 soit bien reconnu
si tu as fait un copier-coller cé par là qu'il faut commencer.
Donc mettre une apostrophe en début de ligne du textbox3
Youky
"robert martin" a écrit dans le message
de news: u$

Bonjour Youky,

Merci pour ta réponse
mais j'ai toujours le même souci
j'ai ajouté feuil1. au début et .text a chacune de mes lignes
et ma feuille de destination est bien feuil1
aurais tu une autre solution a mon problème
voici ce a quoi ressemble mes lignes

Feuil1.Range("a65000").End(xlUp).Offset(1, 0).Value = TextBox2.Text
Feuil1.Range("b65000").End(xlUp).Offset(1, 0).Value = TextBox3.text

Feuil1.Range("c65000").End(xlUp).Offset(1, 0).Value = TextBox5.Text

Feuil1.Range("d65000").End(xlUp).Offset(1, 0).Value = TextBox4.Text

Feuil1.Range("e65000").End(xlUp).Offset(1, 0).Value =
ComboBox1.Text

Feuil1.Range("f65000").End(xlUp).Offset(1, 0).Value = TextBox6.Text

Feuil1.Range("g65000").End(xlUp).Offset(1, 0).Value =
ComboBox2.Text

Feuil1.Range("h65000").End(xlUp).Offset(1, 0).Value =
ComboBox4.Text



Merci d'aavnce

Robert




"Youky" a écrit dans le message de
news: %23oG9z%

En partant d'un Userform il faut indiquer le nom de la page
de préférence Feuil1 plutot que le nom de l'onglet si la page est
renommée
ceci est visible en fenetre des projets à gauche Feuil1
(Donnée)
ensuite aussi indiquer ".Text" aussi bien pour les textbox que les
combobox
exemple
Feuil1.Range("a65000").End(xlUp).Offset(1, 0).Value =
TextBox2.Text
Youky

"robert martin" a écrit dans le
message de news: e$

Bonjour a tous

j'ai créer un userform avec ces quelque ligne de code attribué a
un bouton

Private Sub CommandButton1_Click()

Range("a65000").End(xlUp).Offset(1, 0).Value = TextBox2

Range("b65000").End(xlUp).Offset(1, 0).Value = TextBox3

Range("c65000").End(xlUp).Offset(1, 0).Value = TextBox5

Range("d65000").End(xlUp).Offset(1, 0).Value = TextBox4

Range("e65000").End(xlUp).Offset(1, 0).Value = ComboBox1

Range("f65000").End(xlUp).Offset(1, 0).Value = TextBox6

Range("g65000").End(xlUp).Offset(1, 0).Value = ComboBox2

Range("h65000").End(xlUp).Offset(1, 0).Value = ComboBox4



End Sub



et lorsque je click sur ce bouton les donné vont dans les lignes
voulu sauf que mon fichier bug

mon bouton reste enfoncé et je ne peu plus rien faire d'autre que
ctrl-alt-del

quelqu'un peu t'il m'aider avec ce problème



Merci d'avance



Robert

























Avatar
robert martin
Bonjour cousinhub

J'ai essayer mon Usf. en mettant date au lieu de
format(now, "dd/mm/yyyy")
et j'ai toujours le même problème

j'ai même créer un nouveau fichier test avec un TextBox
tout neuf je lui est attribué cette ligne

TextBox1.Value = Format(Now, "dd/mm/yyyy")

et toujours rien dans mon TextBox
j'ai tester ton fichier sur 2 autre machine et j'ai toujours le même
problème

serais-ce un problème de format de date ??
de version d'excel ??
est-ce un problème de langue français anglais

je travail avec excel 2002 français

je te joint le fichier que tu m'a modifié quelque ligne

merci de ton aide et du temps que tu me consacre

Robert

http://cjoint.com/?cubcoLBOwi






"cousinhub" a écrit dans le message de news:
%
Bonjour,
chez moi, cela fonctionne bien, mais tu peux essayer également ce code
dans l'initialisation de l'usf :
TextBox2.Value = Date
dis-nous si cela fonctionne, ou reposte le fichier ici
Bon courage

rebonjour cousinhub

j'utilise ton fichier mais j'ai un problème de date
tout est causé par la date
cette ligne de code ne veut pas s'appliquer
au Textbox2

TextBox2.Value = Format(Now, "dd/mm/yyyy")

mon Textbox2 reste vide il n'y a pas de date qui apparaît
et quand je fait VALIDER, ma cellule A1 reste vide par ce que le contenu
du
Textbox2 est vide, et mes référence du décalage est basé sur ma cellule
A1
c'est pour cela que tout dérape

pourquoi la date apparaît pas dans mon Textbox2 ??
est-ce un problème de format de date ??
chez toi est ce que tout ce passe bien ??

merci de ton aide

Robert





"cousinhub" a écrit dans le message de news:
%
Bonsoir,
Quel fichier utilises-tu (le mien ou le tien)?
Si tu as modifié le tien, est-ce que tu as bien laissé le offset(1, 0)
pour la première recherche de cellule :
Feuil1.Range("a65000").End(xlUp).Offset(1, 0).Value =
uf_strat.TextBox2.Text
Bonne soirée

Merci a vous tous pour votre aide

le gros de mon problème étais la date

je trouve logique les correction apporté a mes lignes par cousinhub
mais est-ce normal que l'entrée de mes données vont dans la rangé 8
qui sont occupé par les titres de mes colonnes
et la date apparaît a nul part ?????

merci de m'éclairer

Robert




"cousinhub" a écrit dans le message de news:
%
Bonjour,
ton fichier fonctionne également chez moi,
j'ai modifié quelques lignes (les cellules destinataires pouvaient
être erronées, si tu ne remplis pas toutes les cases de ton usf)
de plus, la date va se mettre automatiquement à la date d'aujourd'hui
dans l'usf
Essaye-le et dis-nous http://cjoint.com/?crqbuRK6Lt



Bonjour isabelle,

comme je l'indique au début de mon post lorsque
je click sur valider mon bouton reste enfoncer
je ne peut plus entrée de nouvelle donnée
et ma seul solution pour continuer de travailler est
Ctrl-Alt-Del

Robert



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

bonjour Robert,

j'ai testé ton fichier et rien ne bug.
peut tu préciser la nature du bug, recois tu un message d'erreur ?

a+
isabelle

Merci de t'acharner sur mon sort

j'ai suivi tes directives et rien ne marche encore
je te joint mon fichier essais de voir ce qui ne vas pas

http://cjoint.com/?crcFaV7WdT

click sur le bouton "entrée des commandes" et
ensuite sur le bouton "stratifié" et quand tu clickeras sur valider
tout vas bugger

pour les autre bouton rien ne marche car je suis a la phase
préliminaire de mon formulaire

Merci encore

Robert








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

Re bonjour,
reste plus qu'a mettre Userform1.TextBox2.Text 'idem pour les
autres ou Me.TextBox2.Text
Chose étrange TextBox3.text le mot Text est sans la
majuscule>>vérifie que textbox3 soit bien reconnu
si tu as fait un copier-coller cé par là qu'il faut commencer.
Donc mettre une apostrophe en début de ligne du textbox3
Youky
"robert martin" a écrit dans le
message de news: u$

Bonjour Youky,

Merci pour ta réponse
mais j'ai toujours le même souci
j'ai ajouté feuil1. au début et .text a chacune de mes lignes
et ma feuille de destination est bien feuil1
aurais tu une autre solution a mon problème
voici ce a quoi ressemble mes lignes

Feuil1.Range("a65000").End(xlUp).Offset(1, 0).Value =
TextBox2.Text
Feuil1.Range("b65000").End(xlUp).Offset(1, 0).Value =
TextBox3.text

Feuil1.Range("c65000").End(xlUp).Offset(1, 0).Value =
TextBox5.Text

Feuil1.Range("d65000").End(xlUp).Offset(1, 0).Value =
TextBox4.Text

Feuil1.Range("e65000").End(xlUp).Offset(1, 0).Value =
ComboBox1.Text

Feuil1.Range("f65000").End(xlUp).Offset(1, 0).Value =
TextBox6.Text

Feuil1.Range("g65000").End(xlUp).Offset(1, 0).Value =
ComboBox2.Text

Feuil1.Range("h65000").End(xlUp).Offset(1, 0).Value =
ComboBox4.Text



Merci d'aavnce

Robert




"Youky" a écrit dans le message
de news: %23oG9z%

En partant d'un Userform il faut indiquer le nom de la page
de préférence Feuil1 plutot que le nom de l'onglet si la page
est renommée
ceci est visible en fenetre des projets à gauche Feuil1
(Donnée)
ensuite aussi indiquer ".Text" aussi bien pour les textbox que
les combobox
exemple
Feuil1.Range("a65000").End(xlUp).Offset(1, 0).Value =
TextBox2.Text
Youky

"robert martin" a écrit dans le
message de news: e$

Bonjour a tous

j'ai créer un userform avec ces quelque ligne de code attribué
a un bouton

Private Sub CommandButton1_Click()

Range("a65000").End(xlUp).Offset(1, 0).Value = TextBox2

Range("b65000").End(xlUp).Offset(1, 0).Value = TextBox3

Range("c65000").End(xlUp).Offset(1, 0).Value = TextBox5

Range("d65000").End(xlUp).Offset(1, 0).Value = TextBox4

Range("e65000").End(xlUp).Offset(1, 0).Value = ComboBox1

Range("f65000").End(xlUp).Offset(1, 0).Value = TextBox6

Range("g65000").End(xlUp).Offset(1, 0).Value = ComboBox2

Range("h65000").End(xlUp).Offset(1, 0).Value = ComboBox4



End Sub



et lorsque je click sur ce bouton les donné vont dans les
lignes voulu sauf que mon fichier bug

mon bouton reste enfoncé et je ne peu plus rien faire d'autre
que ctrl-alt-del

quelqu'un peu t'il m'aider avec ce problème



Merci d'avance



Robert



























Avatar
cousinhub
Bonjour,
Le souci provenait de l'initialisation du TextBox2,
tu avais remplacé UserForm_Initialize () par ton nom d'userform.
Je t'ai modifié le principe, et inséré un calendrier. Dès que tu cliques
dans le TextBox2, tu sélectionnes ta date, et ça roule....
http://cjoint.com/?cuk4zA1ybI

Reviens si tu as un problème
Bon courage

Bonjour cousinhub

J'ai essayer mon Usf. en mettant date au lieu de
format(now, "dd/mm/yyyy")
et j'ai toujours le même problème

j'ai même créer un nouveau fichier test avec un TextBox
tout neuf je lui est attribué cette ligne

TextBox1.Value = Format(Now, "dd/mm/yyyy")

et toujours rien dans mon TextBox
j'ai tester ton fichier sur 2 autre machine et j'ai toujours le même
problème

serais-ce un problème de format de date ??
de version d'excel ??
est-ce un problème de langue français anglais

je travail avec excel 2002 français

je te joint le fichier que tu m'a modifié quelque ligne

merci de ton aide et du temps que tu me consacre

Robert

http://cjoint.com/?cubcoLBOwi


Avatar
robert martin
Bonjour cousinhub

mille fois Merci cette fois sa marche

seul hic quand j'ai ouvert le fichier j'étais incapable d'ouvrir
le userform stratifié ??????????????

je l'ai ouvert sur une autre machine, sur le coup la date n'apparaissais
pas dans le TextBox2, j'ai enlevé la référence qui avais dans le
controlsource
du TextBox2 qui étais db!A1 "aujourdhui()" par la suite la date est apparu
comme par enchantement j'ai sauvegardé le fichier avec un nouveau nom et
maintenant tout va bien

merci encore pour ton temps
Bonne soirée

Robert





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

Bonjour,
Le souci provenait de l'initialisation du TextBox2,
tu avais remplacé UserForm_Initialize () par ton nom d'userform.
Je t'ai modifié le principe, et inséré un calendrier. Dès que tu cliques
dans le TextBox2, tu sélectionnes ta date, et ça roule....
http://cjoint.com/?cuk4zA1ybI

Reviens si tu as un problème
Bon courage

Bonjour cousinhub

J'ai essayer mon Usf. en mettant date au lieu de
format(now, "dd/mm/yyyy")
et j'ai toujours le même problème

j'ai même créer un nouveau fichier test avec un TextBox
tout neuf je lui est attribué cette ligne

TextBox1.Value = Format(Now, "dd/mm/yyyy")

et toujours rien dans mon TextBox
j'ai tester ton fichier sur 2 autre machine et j'ai toujours le même
problème

serais-ce un problème de format de date ??
de version d'excel ??
est-ce un problème de langue français anglais

je travail avec excel 2002 français

je te joint le fichier que tu m'a modifié quelque ligne

merci de ton aide et du temps que tu me consacre

Robert

http://cjoint.com/?cubcoLBOwi




1 2