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

10 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
Youky
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 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
Youky
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
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
isabelle
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
Youky
Re bonjour,
Idem tout fonctionne testé sur 97 et 2003
Sinon mets un point d'arret en debut de ta macro et press ensuite F8 pour
voir ou cela bug
Youky
Avatar
robert martin
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,
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
Salut Youky

J'ai trouver une parti du problème
c'est ma date en "BD!a1" qui me cause des ennuis
dans la cellule BD!a1 j'ai écris "=AUJOURDHUI()"
sans les guillemets et ma date ce met pas a jour
mon format de cellule est a "date"
si enlève le contenu de cette cellule tout marche très bien

voit tu ou pourrais être le problème

Merci

Robert




"Youky" a écrit dans le message de news:
%2359$
Re bonjour,
Idem tout fonctionne testé sur 97 et 2003
Sinon mets un point d'arret en debut de ta macro et press ensuite F8 pour
voir ou cela bug
Youky



Avatar
isabelle
bonjour Robert,

essai avec la propriété TakeFocusOnClick de chaque bouton à False,

isabelle

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



















1 2