bonjours
j'ai besoin d'un userform qui recupere des donnees dela
feuille de calcul (ex en a1 il y a la valeur 10 en a2
valeurs 20) comment faire afficher c'est valeurs dans mon
userform) sachant que c'est valeurs sont aleatoire selon
la macros lancer auparavant.
cette formule ne fonctionne pas
(Private Sub UserForm_Initialize()
TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range
("A1").Value
End Sub)
bonjour ptifred je crois que ta proc n'est pas bien écrite (pas de parenthèse après End Sub) ; essaie plutôt en faisant attention au retour de ligne intempestif de la messagerie:
(Private Sub UserForm_Initialize() TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range("A1").Value End Sub
HTH jps
et ça devrait marcher (j'ai testé avec la seule Textbox) "PTIFRED" a écrit dans le message de news:712a01c475f3$b09c42f0$
bonjours j'ai besoin d'un userform qui recupere des donnees dela feuille de calcul (ex en a1 il y a la valeur 10 en a2 valeurs 20) comment faire afficher c'est valeurs dans mon userform) sachant que c'est valeurs sont aleatoire selon la macros lancer auparavant. cette formule ne fonctionne pas (Private Sub UserForm_Initialize() TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range ("A1").Value End Sub)
par avance merci
bonjour ptifred
je crois que ta proc n'est pas bien écrite (pas de parenthèse après End Sub)
; essaie plutôt en faisant attention au retour de ligne intempestif de la
messagerie:
(Private Sub UserForm_Initialize()
TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range("A1").Value
End Sub
HTH
jps
et ça devrait marcher (j'ai testé avec la seule Textbox)
"PTIFRED" <frederick.lefebvre@tele2.fr> a écrit dans le message de
news:712a01c475f3$b09c42f0$a501280a@phx.gbl...
bonjours
j'ai besoin d'un userform qui recupere des donnees dela
feuille de calcul (ex en a1 il y a la valeur 10 en a2
valeurs 20) comment faire afficher c'est valeurs dans mon
userform) sachant que c'est valeurs sont aleatoire selon
la macros lancer auparavant.
cette formule ne fonctionne pas
(Private Sub UserForm_Initialize()
TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range
("A1").Value
End Sub)
bonjour ptifred je crois que ta proc n'est pas bien écrite (pas de parenthèse après End Sub) ; essaie plutôt en faisant attention au retour de ligne intempestif de la messagerie:
(Private Sub UserForm_Initialize() TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range("A1").Value End Sub
HTH jps
et ça devrait marcher (j'ai testé avec la seule Textbox) "PTIFRED" a écrit dans le message de news:712a01c475f3$b09c42f0$
bonjours j'ai besoin d'un userform qui recupere des donnees dela feuille de calcul (ex en a1 il y a la valeur 10 en a2 valeurs 20) comment faire afficher c'est valeurs dans mon userform) sachant que c'est valeurs sont aleatoire selon la macros lancer auparavant. cette formule ne fonctionne pas (Private Sub UserForm_Initialize() TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range ("A1").Value End Sub)
par avance merci
papou
Bonjour Et supprime aussi la 1ère parenthèse ouvrante de la 1ère ligne : Private Sub UserForm_Initialize() TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range("A1").Value End Sub
Cordialement Pascal
"sabatier" a écrit dans le message de news:%
bonjour ptifred je crois que ta proc n'est pas bien écrite (pas de parenthèse après End Sub)
; essaie plutôt en faisant attention au retour de ligne intempestif de la messagerie:
(Private Sub UserForm_Initialize() TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range("A1").Value End Sub
HTH jps
et ça devrait marcher (j'ai testé avec la seule Textbox) "PTIFRED" a écrit dans le message de news:712a01c475f3$b09c42f0$
bonjours j'ai besoin d'un userform qui recupere des donnees dela feuille de calcul (ex en a1 il y a la valeur 10 en a2 valeurs 20) comment faire afficher c'est valeurs dans mon userform) sachant que c'est valeurs sont aleatoire selon la macros lancer auparavant. cette formule ne fonctionne pas (Private Sub UserForm_Initialize() TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range ("A1").Value End Sub)
par avance merci
Bonjour
Et supprime aussi la 1ère parenthèse ouvrante de la 1ère ligne :
Private Sub UserForm_Initialize()
TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range("A1").Value
End Sub
Cordialement
Pascal
"sabatier" <biscotteUnScudJpsabatdelaile@wanadoo.fr> a écrit dans le message
de news:%23CD3cafdEHA.1952@TK2MSFTNGP11.phx.gbl...
bonjour ptifred
je crois que ta proc n'est pas bien écrite (pas de parenthèse après End
Sub)
; essaie plutôt en faisant attention au retour de ligne intempestif de la
messagerie:
(Private Sub UserForm_Initialize()
TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range("A1").Value
End Sub
HTH
jps
et ça devrait marcher (j'ai testé avec la seule Textbox)
"PTIFRED" <frederick.lefebvre@tele2.fr> a écrit dans le message de
news:712a01c475f3$b09c42f0$a501280a@phx.gbl...
bonjours
j'ai besoin d'un userform qui recupere des donnees dela
feuille de calcul (ex en a1 il y a la valeur 10 en a2
valeurs 20) comment faire afficher c'est valeurs dans mon
userform) sachant que c'est valeurs sont aleatoire selon
la macros lancer auparavant.
cette formule ne fonctionne pas
(Private Sub UserForm_Initialize()
TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range
("A1").Value
End Sub)
Bonjour Et supprime aussi la 1ère parenthèse ouvrante de la 1ère ligne : Private Sub UserForm_Initialize() TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range("A1").Value End Sub
Cordialement Pascal
"sabatier" a écrit dans le message de news:%
bonjour ptifred je crois que ta proc n'est pas bien écrite (pas de parenthèse après End Sub)
; essaie plutôt en faisant attention au retour de ligne intempestif de la messagerie:
(Private Sub UserForm_Initialize() TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range("A1").Value End Sub
HTH jps
et ça devrait marcher (j'ai testé avec la seule Textbox) "PTIFRED" a écrit dans le message de news:712a01c475f3$b09c42f0$
bonjours j'ai besoin d'un userform qui recupere des donnees dela feuille de calcul (ex en a1 il y a la valeur 10 en a2 valeurs 20) comment faire afficher c'est valeurs dans mon userform) sachant que c'est valeurs sont aleatoire selon la macros lancer auparavant. cette formule ne fonctionne pas (Private Sub UserForm_Initialize() TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range ("A1").Value End Sub)
par avance merci
sabatier
bien vu papou... heureusement qu'il y en a encore deux de permanence... jps
"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de news:%
Bonjour Et supprime aussi la 1ère parenthèse ouvrante de la 1ère ligne : Private Sub UserForm_Initialize() TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range("A1").Value End Sub
Cordialement Pascal
"sabatier" a écrit dans le message
de news:%
bonjour ptifred je crois que ta proc n'est pas bien écrite (pas de parenthèse après End Sub)
; essaie plutôt en faisant attention au retour de ligne intempestif de la
messagerie:
(Private Sub UserForm_Initialize() TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range("A1").Value End Sub
HTH jps
et ça devrait marcher (j'ai testé avec la seule Textbox) "PTIFRED" a écrit dans le message de news:712a01c475f3$b09c42f0$
bonjours j'ai besoin d'un userform qui recupere des donnees dela feuille de calcul (ex en a1 il y a la valeur 10 en a2 valeurs 20) comment faire afficher c'est valeurs dans mon userform) sachant que c'est valeurs sont aleatoire selon la macros lancer auparavant. cette formule ne fonctionne pas (Private Sub UserForm_Initialize() TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range ("A1").Value End Sub)
par avance merci
bien vu papou...
heureusement qu'il y en a encore deux de permanence...
jps
"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de
news:%230NlPkfdEHA.3704@TK2MSFTNGP09.phx.gbl...
Bonjour
Et supprime aussi la 1ère parenthèse ouvrante de la 1ère ligne :
Private Sub UserForm_Initialize()
TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range("A1").Value
End Sub
Cordialement
Pascal
"sabatier" <biscotteUnScudJpsabatdelaile@wanadoo.fr> a écrit dans le
message
de news:%23CD3cafdEHA.1952@TK2MSFTNGP11.phx.gbl...
bonjour ptifred
je crois que ta proc n'est pas bien écrite (pas de parenthèse après End
Sub)
; essaie plutôt en faisant attention au retour de ligne intempestif de
la
messagerie:
(Private Sub UserForm_Initialize()
TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range("A1").Value
End Sub
HTH
jps
et ça devrait marcher (j'ai testé avec la seule Textbox)
"PTIFRED" <frederick.lefebvre@tele2.fr> a écrit dans le message de
news:712a01c475f3$b09c42f0$a501280a@phx.gbl...
bonjours
j'ai besoin d'un userform qui recupere des donnees dela
feuille de calcul (ex en a1 il y a la valeur 10 en a2
valeurs 20) comment faire afficher c'est valeurs dans mon
userform) sachant que c'est valeurs sont aleatoire selon
la macros lancer auparavant.
cette formule ne fonctionne pas
(Private Sub UserForm_Initialize()
TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range
("A1").Value
End Sub)
bien vu papou... heureusement qu'il y en a encore deux de permanence... jps
"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de news:%
Bonjour Et supprime aussi la 1ère parenthèse ouvrante de la 1ère ligne : Private Sub UserForm_Initialize() TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range("A1").Value End Sub
Cordialement Pascal
"sabatier" a écrit dans le message
de news:%
bonjour ptifred je crois que ta proc n'est pas bien écrite (pas de parenthèse après End Sub)
; essaie plutôt en faisant attention au retour de ligne intempestif de la
messagerie:
(Private Sub UserForm_Initialize() TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range("A1").Value End Sub
HTH jps
et ça devrait marcher (j'ai testé avec la seule Textbox) "PTIFRED" a écrit dans le message de news:712a01c475f3$b09c42f0$
bonjours j'ai besoin d'un userform qui recupere des donnees dela feuille de calcul (ex en a1 il y a la valeur 10 en a2 valeurs 20) comment faire afficher c'est valeurs dans mon userform) sachant que c'est valeurs sont aleatoire selon la macros lancer auparavant. cette formule ne fonctionne pas (Private Sub UserForm_Initialize() TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range ("A1").Value End Sub)
par avance merci
RaMA
Bonjour
Place avant l'appel de USF
UserForm1.TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").[A1] UserForm1.Show RaMa -- . "PTIFRED" a écrit dans le message de news:712a01c475f3$b09c42f0$
bonjours j'ai besoin d'un userform qui recupere des donnees dela feuille de calcul (ex en a1 il y a la valeur 10 en a2 valeurs 20) comment faire afficher c'est valeurs dans mon userform) sachant que c'est valeurs sont aleatoire selon la macros lancer auparavant. cette formule ne fonctionne pas (Private Sub UserForm_Initialize() TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range ("A1").Value End Sub)
par avance merci
Bonjour
Place avant l'appel de USF
UserForm1.TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").[A1]
UserForm1.Show
RaMa
--
.
"PTIFRED" <frederick.lefebvre@tele2.fr> a écrit dans le message de
news:712a01c475f3$b09c42f0$a501280a@phx.gbl...
bonjours
j'ai besoin d'un userform qui recupere des donnees dela
feuille de calcul (ex en a1 il y a la valeur 10 en a2
valeurs 20) comment faire afficher c'est valeurs dans mon
userform) sachant que c'est valeurs sont aleatoire selon
la macros lancer auparavant.
cette formule ne fonctionne pas
(Private Sub UserForm_Initialize()
TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range
("A1").Value
End Sub)
UserForm1.TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").[A1] UserForm1.Show RaMa -- . "PTIFRED" a écrit dans le message de news:712a01c475f3$b09c42f0$
bonjours j'ai besoin d'un userform qui recupere des donnees dela feuille de calcul (ex en a1 il y a la valeur 10 en a2 valeurs 20) comment faire afficher c'est valeurs dans mon userform) sachant que c'est valeurs sont aleatoire selon la macros lancer auparavant. cette formule ne fonctionne pas (Private Sub UserForm_Initialize() TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range ("A1").Value End Sub)
par avance merci
papou
Bonjour sabatier oui bof ! ;-) Ce que je ne comprend pas c'est comment sont venues ces parenthèses parce qu'elles n'y étaient pas dans l'exemple que j'avais fourni à PTIFRED hier (M'enfin ?) Cordialement Pascal
"sabatier" a écrit dans le message de news:
bien vu papou... heureusement qu'il y en a encore deux de permanence... jps
"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de news:%
Bonjour Et supprime aussi la 1ère parenthèse ouvrante de la 1ère ligne : Private Sub UserForm_Initialize() TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range("A1").Value End Sub
Cordialement Pascal
"sabatier" a écrit dans le message
de news:%
bonjour ptifred je crois que ta proc n'est pas bien écrite (pas de parenthèse après End
Sub)
; essaie plutôt en faisant attention au retour de ligne intempestif de la
messagerie:
(Private Sub UserForm_Initialize() TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range("A1").Value End Sub
HTH jps
et ça devrait marcher (j'ai testé avec la seule Textbox) "PTIFRED" a écrit dans le message de news:712a01c475f3$b09c42f0$
bonjours j'ai besoin d'un userform qui recupere des donnees dela feuille de calcul (ex en a1 il y a la valeur 10 en a2 valeurs 20) comment faire afficher c'est valeurs dans mon userform) sachant que c'est valeurs sont aleatoire selon la macros lancer auparavant. cette formule ne fonctionne pas (Private Sub UserForm_Initialize() TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range ("A1").Value End Sub)
par avance merci
Bonjour sabatier
oui bof ! ;-)
Ce que je ne comprend pas c'est comment sont venues ces parenthèses parce
qu'elles n'y étaient pas dans l'exemple que j'avais fourni à PTIFRED hier
(M'enfin ?)
Cordialement
Pascal
"sabatier" <biscotteUnScudJpsabatdelaile@wanadoo.fr> a écrit dans le message
de news:u7AVDxfdEHA.1396@TK2MSFTNGP10.phx.gbl...
bien vu papou...
heureusement qu'il y en a encore deux de permanence...
jps
"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de
news:%230NlPkfdEHA.3704@TK2MSFTNGP09.phx.gbl...
Bonjour
Et supprime aussi la 1ère parenthèse ouvrante de la 1ère ligne :
Private Sub UserForm_Initialize()
TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range("A1").Value
End Sub
Cordialement
Pascal
"sabatier" <biscotteUnScudJpsabatdelaile@wanadoo.fr> a écrit dans le
message
de news:%23CD3cafdEHA.1952@TK2MSFTNGP11.phx.gbl...
bonjour ptifred
je crois que ta proc n'est pas bien écrite (pas de parenthèse après
End
Sub)
; essaie plutôt en faisant attention au retour de ligne intempestif de
la
messagerie:
(Private Sub UserForm_Initialize()
TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range("A1").Value
End Sub
HTH
jps
et ça devrait marcher (j'ai testé avec la seule Textbox)
"PTIFRED" <frederick.lefebvre@tele2.fr> a écrit dans le message de
news:712a01c475f3$b09c42f0$a501280a@phx.gbl...
bonjours
j'ai besoin d'un userform qui recupere des donnees dela
feuille de calcul (ex en a1 il y a la valeur 10 en a2
valeurs 20) comment faire afficher c'est valeurs dans mon
userform) sachant que c'est valeurs sont aleatoire selon
la macros lancer auparavant.
cette formule ne fonctionne pas
(Private Sub UserForm_Initialize()
TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range
("A1").Value
End Sub)
Bonjour sabatier oui bof ! ;-) Ce que je ne comprend pas c'est comment sont venues ces parenthèses parce qu'elles n'y étaient pas dans l'exemple que j'avais fourni à PTIFRED hier (M'enfin ?) Cordialement Pascal
"sabatier" a écrit dans le message de news:
bien vu papou... heureusement qu'il y en a encore deux de permanence... jps
"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de news:%
Bonjour Et supprime aussi la 1ère parenthèse ouvrante de la 1ère ligne : Private Sub UserForm_Initialize() TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range("A1").Value End Sub
Cordialement Pascal
"sabatier" a écrit dans le message
de news:%
bonjour ptifred je crois que ta proc n'est pas bien écrite (pas de parenthèse après End
Sub)
; essaie plutôt en faisant attention au retour de ligne intempestif de la
messagerie:
(Private Sub UserForm_Initialize() TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range("A1").Value End Sub
HTH jps
et ça devrait marcher (j'ai testé avec la seule Textbox) "PTIFRED" a écrit dans le message de news:712a01c475f3$b09c42f0$
bonjours j'ai besoin d'un userform qui recupere des donnees dela feuille de calcul (ex en a1 il y a la valeur 10 en a2 valeurs 20) comment faire afficher c'est valeurs dans mon userform) sachant que c'est valeurs sont aleatoire selon la macros lancer auparavant. cette formule ne fonctionne pas (Private Sub UserForm_Initialize() TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range ("A1").Value End Sub)
par avance merci
papou
Re Par contre la réponse de RaMa me fait penser à quelque chose : Le code est à placer dans le code du Userform et pour que cela fonctionne il est évident (en tout cas pour moi), qu'il faut ensuite utiliser une macro qui charge le formulaire à l'écran. Donc : Sub Macro1() Load Userform1 Userform1.Show End Sub
Et clic droit sur l'objet Userform dans l'éditeur VB, visualiser le code et placer ceci Private Sub UserForm_Initialize() TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range("A1").Value End Sub
Avec ça je pense que nous avons fait le tour.
Cordialement Pascal
"PTIFRED" a écrit dans le message de news:712a01c475f3$b09c42f0$
bonjours j'ai besoin d'un userform qui recupere des donnees dela feuille de calcul (ex en a1 il y a la valeur 10 en a2 valeurs 20) comment faire afficher c'est valeurs dans mon userform) sachant que c'est valeurs sont aleatoire selon la macros lancer auparavant. cette formule ne fonctionne pas (Private Sub UserForm_Initialize() TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range ("A1").Value End Sub)
par avance merci
Re
Par contre la réponse de RaMa me fait penser à quelque chose :
Le code est à placer dans le code du Userform et pour que cela fonctionne il
est évident (en tout cas pour moi), qu'il faut ensuite utiliser une macro
qui charge le formulaire à l'écran.
Donc :
Sub Macro1()
Load Userform1
Userform1.Show
End Sub
Et clic droit sur l'objet Userform dans l'éditeur VB, visualiser le code et
placer ceci
Private Sub UserForm_Initialize()
TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range("A1").Value
End Sub
Avec ça je pense que nous avons fait le tour.
Cordialement
Pascal
"PTIFRED" <frederick.lefebvre@tele2.fr> a écrit dans le message de
news:712a01c475f3$b09c42f0$a501280a@phx.gbl...
bonjours
j'ai besoin d'un userform qui recupere des donnees dela
feuille de calcul (ex en a1 il y a la valeur 10 en a2
valeurs 20) comment faire afficher c'est valeurs dans mon
userform) sachant que c'est valeurs sont aleatoire selon
la macros lancer auparavant.
cette formule ne fonctionne pas
(Private Sub UserForm_Initialize()
TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range
("A1").Value
End Sub)
Re Par contre la réponse de RaMa me fait penser à quelque chose : Le code est à placer dans le code du Userform et pour que cela fonctionne il est évident (en tout cas pour moi), qu'il faut ensuite utiliser une macro qui charge le formulaire à l'écran. Donc : Sub Macro1() Load Userform1 Userform1.Show End Sub
Et clic droit sur l'objet Userform dans l'éditeur VB, visualiser le code et placer ceci Private Sub UserForm_Initialize() TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range("A1").Value End Sub
Avec ça je pense que nous avons fait le tour.
Cordialement Pascal
"PTIFRED" a écrit dans le message de news:712a01c475f3$b09c42f0$
bonjours j'ai besoin d'un userform qui recupere des donnees dela feuille de calcul (ex en a1 il y a la valeur 10 en a2 valeurs 20) comment faire afficher c'est valeurs dans mon userform) sachant que c'est valeurs sont aleatoire selon la macros lancer auparavant. cette formule ne fonctionne pas (Private Sub UserForm_Initialize() TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range ("A1").Value End Sub)
par avance merci
RaMA
Bonjour papou Load Userform1 est inutile le show le fait implicitement salutations RaMa -- . "papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de news:%23%
Re Par contre la réponse de RaMa me fait penser à quelque chose : Le code est à placer dans le code du Userform et pour que cela fonctionne il
est évident (en tout cas pour moi), qu'il faut ensuite utiliser une macro qui charge le formulaire à l'écran. Donc : Sub Macro1() Load Userform1 Userform1.Show End Sub
Et clic droit sur l'objet Userform dans l'éditeur VB, visualiser le code et
placer ceci Private Sub UserForm_Initialize() TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range("A1").Value End Sub
Avec ça je pense que nous avons fait le tour.
Cordialement Pascal
"PTIFRED" a écrit dans le message de news:712a01c475f3$b09c42f0$
bonjours j'ai besoin d'un userform qui recupere des donnees dela feuille de calcul (ex en a1 il y a la valeur 10 en a2 valeurs 20) comment faire afficher c'est valeurs dans mon userform) sachant que c'est valeurs sont aleatoire selon la macros lancer auparavant. cette formule ne fonctionne pas (Private Sub UserForm_Initialize() TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range ("A1").Value End Sub)
par avance merci
Bonjour papou
Load Userform1 est inutile le show le fait implicitement
salutations
RaMa
--
.
"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de
news:%23%23XTHCgdEHA.2504@TK2MSFTNGP12.phx.gbl...
Re
Par contre la réponse de RaMa me fait penser à quelque chose :
Le code est à placer dans le code du Userform et pour que cela fonctionne
il
est évident (en tout cas pour moi), qu'il faut ensuite utiliser une macro
qui charge le formulaire à l'écran.
Donc :
Sub Macro1()
Load Userform1
Userform1.Show
End Sub
Et clic droit sur l'objet Userform dans l'éditeur VB, visualiser le code
et
placer ceci
Private Sub UserForm_Initialize()
TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range("A1").Value
End Sub
Avec ça je pense que nous avons fait le tour.
Cordialement
Pascal
"PTIFRED" <frederick.lefebvre@tele2.fr> a écrit dans le message de
news:712a01c475f3$b09c42f0$a501280a@phx.gbl...
bonjours
j'ai besoin d'un userform qui recupere des donnees dela
feuille de calcul (ex en a1 il y a la valeur 10 en a2
valeurs 20) comment faire afficher c'est valeurs dans mon
userform) sachant que c'est valeurs sont aleatoire selon
la macros lancer auparavant.
cette formule ne fonctionne pas
(Private Sub UserForm_Initialize()
TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range
("A1").Value
End Sub)
Bonjour papou Load Userform1 est inutile le show le fait implicitement salutations RaMa -- . "papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de news:%23%
Re Par contre la réponse de RaMa me fait penser à quelque chose : Le code est à placer dans le code du Userform et pour que cela fonctionne il
est évident (en tout cas pour moi), qu'il faut ensuite utiliser une macro qui charge le formulaire à l'écran. Donc : Sub Macro1() Load Userform1 Userform1.Show End Sub
Et clic droit sur l'objet Userform dans l'éditeur VB, visualiser le code et
placer ceci Private Sub UserForm_Initialize() TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range("A1").Value End Sub
Avec ça je pense que nous avons fait le tour.
Cordialement Pascal
"PTIFRED" a écrit dans le message de news:712a01c475f3$b09c42f0$
bonjours j'ai besoin d'un userform qui recupere des donnees dela feuille de calcul (ex en a1 il y a la valeur 10 en a2 valeurs 20) comment faire afficher c'est valeurs dans mon userform) sachant que c'est valeurs sont aleatoire selon la macros lancer auparavant. cette formule ne fonctionne pas (Private Sub UserForm_Initialize() TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range ("A1").Value End Sub)
par avance merci
papou
Bonjour Oui je sais, mais cette indication peut s'avérer parfois utile lors de l'utilisation de Userform et c'est donc pour quoi j'ai ajouté la méthode Load d'autant qu'il y a un évènement Initialize associé au Userform. Cordialement Pascal
"RaMA" a écrit dans le message de news:
Bonjour papou Load Userform1 est inutile le show le fait implicitement salutations RaMa -- . "papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de news:%23%
Re Par contre la réponse de RaMa me fait penser à quelque chose : Le code est à placer dans le code du Userform et pour que cela fonctionne
il
est évident (en tout cas pour moi), qu'il faut ensuite utiliser une macro
qui charge le formulaire à l'écran. Donc : Sub Macro1() Load Userform1 Userform1.Show End Sub
Et clic droit sur l'objet Userform dans l'éditeur VB, visualiser le code et
placer ceci Private Sub UserForm_Initialize() TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range("A1").Value End Sub
Avec ça je pense que nous avons fait le tour.
Cordialement Pascal
"PTIFRED" a écrit dans le message de news:712a01c475f3$b09c42f0$
bonjours j'ai besoin d'un userform qui recupere des donnees dela feuille de calcul (ex en a1 il y a la valeur 10 en a2 valeurs 20) comment faire afficher c'est valeurs dans mon userform) sachant que c'est valeurs sont aleatoire selon la macros lancer auparavant. cette formule ne fonctionne pas (Private Sub UserForm_Initialize() TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range ("A1").Value End Sub)
par avance merci
Bonjour
Oui je sais, mais cette indication peut s'avérer parfois utile lors de
l'utilisation de Userform et c'est donc pour quoi j'ai ajouté la méthode
Load d'autant qu'il y a un évènement Initialize associé au Userform.
Cordialement
Pascal
"RaMA" <rmarceauPas2Spam@free.fr> a écrit dans le message de
news:eBedEFgdEHA.384@TK2MSFTNGP10.phx.gbl...
Bonjour papou
Load Userform1 est inutile le show le fait implicitement
salutations
RaMa
--
.
"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de
news:%23%23XTHCgdEHA.2504@TK2MSFTNGP12.phx.gbl...
Re
Par contre la réponse de RaMa me fait penser à quelque chose :
Le code est à placer dans le code du Userform et pour que cela
fonctionne
il
est évident (en tout cas pour moi), qu'il faut ensuite utiliser une
macro
qui charge le formulaire à l'écran.
Donc :
Sub Macro1()
Load Userform1
Userform1.Show
End Sub
Et clic droit sur l'objet Userform dans l'éditeur VB, visualiser le code
et
placer ceci
Private Sub UserForm_Initialize()
TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range("A1").Value
End Sub
Avec ça je pense que nous avons fait le tour.
Cordialement
Pascal
"PTIFRED" <frederick.lefebvre@tele2.fr> a écrit dans le message de
news:712a01c475f3$b09c42f0$a501280a@phx.gbl...
bonjours
j'ai besoin d'un userform qui recupere des donnees dela
feuille de calcul (ex en a1 il y a la valeur 10 en a2
valeurs 20) comment faire afficher c'est valeurs dans mon
userform) sachant que c'est valeurs sont aleatoire selon
la macros lancer auparavant.
cette formule ne fonctionne pas
(Private Sub UserForm_Initialize()
TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range
("A1").Value
End Sub)
Bonjour Oui je sais, mais cette indication peut s'avérer parfois utile lors de l'utilisation de Userform et c'est donc pour quoi j'ai ajouté la méthode Load d'autant qu'il y a un évènement Initialize associé au Userform. Cordialement Pascal
"RaMA" a écrit dans le message de news:
Bonjour papou Load Userform1 est inutile le show le fait implicitement salutations RaMa -- . "papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de news:%23%
Re Par contre la réponse de RaMa me fait penser à quelque chose : Le code est à placer dans le code du Userform et pour que cela fonctionne
il
est évident (en tout cas pour moi), qu'il faut ensuite utiliser une macro
qui charge le formulaire à l'écran. Donc : Sub Macro1() Load Userform1 Userform1.Show End Sub
Et clic droit sur l'objet Userform dans l'éditeur VB, visualiser le code et
placer ceci Private Sub UserForm_Initialize() TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range("A1").Value End Sub
Avec ça je pense que nous avons fait le tour.
Cordialement Pascal
"PTIFRED" a écrit dans le message de news:712a01c475f3$b09c42f0$
bonjours j'ai besoin d'un userform qui recupere des donnees dela feuille de calcul (ex en a1 il y a la valeur 10 en a2 valeurs 20) comment faire afficher c'est valeurs dans mon userform) sachant que c'est valeurs sont aleatoire selon la macros lancer auparavant. cette formule ne fonctionne pas (Private Sub UserForm_Initialize() TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").Range ("A1").Value End Sub)
par avance merci
Gilgamesh
Bonjour papou Load Userform1 est inutile le show le fait implicitement salutations RaMa
Bonjour RaMa
je suis absolutly novice : où faut il le placer dans un VBA project pour que cela charge "implicitement" (c-a-d j'imagine, à l'ouverture du classeur ?)...
Microsoft Excel Object -Feuill1 -Feuill2 -etc
ThisWorkbook
Feuilles -Useform1
Modules -Module1 -Module2 etc
C'est pour comprendre la "philosophie" de l'objet.
merci
==
Bonjour papou
Load Userform1 est inutile le show le fait implicitement
salutations
RaMa
Bonjour RaMa
je suis absolutly novice : où faut il le placer dans un VBA project pour
que cela charge "implicitement" (c-a-d j'imagine, à l'ouverture du
classeur ?)...
Microsoft Excel Object
-Feuill1
-Feuill2
-etc
ThisWorkbook
Feuilles
-Useform1
Modules
-Module1
-Module2
etc
C'est pour comprendre la "philosophie" de l'objet.
Bonjour papou Load Userform1 est inutile le show le fait implicitement salutations RaMa
Bonjour RaMa
je suis absolutly novice : où faut il le placer dans un VBA project pour que cela charge "implicitement" (c-a-d j'imagine, à l'ouverture du classeur ?)...
Microsoft Excel Object -Feuill1 -Feuill2 -etc
ThisWorkbook
Feuilles -Useform1
Modules -Module1 -Module2 etc
C'est pour comprendre la "philosophie" de l'objet.
merci
==
RaMa
Bonjour Gilgamesh
Tout dépend de l'évènement qui déclenche l'appel de UsF: 1)ex: si c'est un button ou click ou activate ou...ça peut être la proc de la feuil1 Private Sub CommandButton1_Click() UserForm1.TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").[A1] userform1.show End Sub
2)ex: si c'est un évènement workbook (activate, beforeclose, ....) alors c'est la proc de thisworkbook Private Sub Workbook_Open() UserForm1.TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").[A1] userform1.show End Sub
3)et bien sûr ça peut être un module Public Sub JeLanceUsF() userform1.TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").[A1] userform1.Show End Sub
On aurait pu aussi en utilisant le cas numero 3 de façon générale ne mettre dans les cas 1et2 que l'appel de JeLanceUsF (ou call JeLanceUsF)
Salutations RaMa
"Gilgamesh" a écrit dans le message de news:
Bonjour papou Load Userform1 est inutile le show le fait implicitement salutations RaMa
Bonjour RaMa
je suis absolutly novice : où faut il le placer dans un VBA project pour que cela charge "implicitement" (c-a-d j'imagine, à l'ouverture du classeur ?)...
Microsoft Excel Object -Feuill1 -Feuill2 -etc
ThisWorkbook
Feuilles -Useform1
Modules -Module1 -Module2 etc
C'est pour comprendre la "philosophie" de l'objet.
merci
==
Bonjour Gilgamesh
Tout dépend de l'évènement qui déclenche l'appel de UsF:
1)ex: si c'est un button ou click ou activate ou...ça peut être la proc de
la feuil1
Private Sub CommandButton1_Click()
UserForm1.TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").[A1]
userform1.show
End Sub
2)ex: si c'est un évènement workbook (activate, beforeclose, ....) alors
c'est la proc de thisworkbook
Private Sub Workbook_Open()
UserForm1.TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").[A1]
userform1.show
End Sub
3)et bien sûr ça peut être un module
Public Sub JeLanceUsF()
userform1.TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").[A1]
userform1.Show
End Sub
On aurait pu aussi en utilisant le cas numero 3 de façon générale
ne mettre dans les cas 1et2 que l'appel de
JeLanceUsF (ou call JeLanceUsF)
Salutations
RaMa
"Gilgamesh" <hsemaglig@uruk.com> a écrit dans le message de
news:O3tfpogdEHA.592@TK2MSFTNGP11.phx.gbl...
Bonjour papou
Load Userform1 est inutile le show le fait implicitement
salutations
RaMa
Bonjour RaMa
je suis absolutly novice : où faut il le placer dans un VBA project pour
que cela charge "implicitement" (c-a-d j'imagine, à l'ouverture du
classeur ?)...
Microsoft Excel Object
-Feuill1
-Feuill2
-etc
ThisWorkbook
Feuilles
-Useform1
Modules
-Module1
-Module2
etc
C'est pour comprendre la "philosophie" de l'objet.
Tout dépend de l'évènement qui déclenche l'appel de UsF: 1)ex: si c'est un button ou click ou activate ou...ça peut être la proc de la feuil1 Private Sub CommandButton1_Click() UserForm1.TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").[A1] userform1.show End Sub
2)ex: si c'est un évènement workbook (activate, beforeclose, ....) alors c'est la proc de thisworkbook Private Sub Workbook_Open() UserForm1.TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").[A1] userform1.show End Sub
3)et bien sûr ça peut être un module Public Sub JeLanceUsF() userform1.TextBox1.Value = ThisWorkbook.Worksheets("Feuil1").[A1] userform1.Show End Sub
On aurait pu aussi en utilisant le cas numero 3 de façon générale ne mettre dans les cas 1et2 que l'appel de JeLanceUsF (ou call JeLanceUsF)
Salutations RaMa
"Gilgamesh" a écrit dans le message de news:
Bonjour papou Load Userform1 est inutile le show le fait implicitement salutations RaMa
Bonjour RaMa
je suis absolutly novice : où faut il le placer dans un VBA project pour que cela charge "implicitement" (c-a-d j'imagine, à l'ouverture du classeur ?)...
Microsoft Excel Object -Feuill1 -Feuill2 -etc
ThisWorkbook
Feuilles -Useform1
Modules -Module1 -Module2 etc
C'est pour comprendre la "philosophie" de l'objet.
