Bonjour,
En VB j'ai créé 2 formulaires. Dans le 1er je saisis des généralités
(nom,prénom,...)
Les données sont transférées dans escel et en même temps j'accède au 2ème
formulaire dans lequel j'ai de nouveau nom et prénom + des détails.
Je voudrais éviter de ressaisir ces 2 informations (qui sont identiques au
1er formulaire).
Il y a certainement une solution mais mon expérience est encore jeune.
D'avance merci
Bonjour,
En VB j'ai créé 2 formulaires. Dans le 1er je saisis des généralités
(nom,prénom,...)
Les données sont transférées dans escel et en même temps j'accède au 2ème
formulaire dans lequel j'ai de nouveau nom et prénom + des détails.
Je voudrais éviter de ressaisir ces 2 informations (qui sont identiques au
1er formulaire).
Il y a certainement une solution mais mon expérience est encore jeune.
D'avance merci
Bonjour,
En VB j'ai créé 2 formulaires. Dans le 1er je saisis des généralités
(nom,prénom,...)
Les données sont transférées dans escel et en même temps j'accède au 2ème
formulaire dans lequel j'ai de nouveau nom et prénom + des détails.
Je voudrais éviter de ressaisir ces 2 informations (qui sont identiques au
1er formulaire).
Il y a certainement une solution mais mon expérience est encore jeune.
D'avance merci
Bonjour,
En VB j'ai créé 2 formulaires. Dans le 1er je saisis des généralités
(nom,prénom,...)
Les données sont transférées dans escel et en même temps j'accède au 2ème
formulaire dans lequel j'ai de nouveau nom et prénom + des détails.
Je voudrais éviter de ressaisir ces 2 informations (qui sont identiques au
1er formulaire).
Il y a certainement une solution mais mon expérience est encore jeune.
D'avance merci
--
Nul n''est prophète en son pays
Bonjour,
En VB j'ai créé 2 formulaires. Dans le 1er je saisis des généralités
(nom,prénom,...)
Les données sont transférées dans escel et en même temps j'accède au 2ème
formulaire dans lequel j'ai de nouveau nom et prénom + des détails.
Je voudrais éviter de ressaisir ces 2 informations (qui sont identiques au
1er formulaire).
Il y a certainement une solution mais mon expérience est encore jeune.
D'avance merci
--
Nul n''est prophète en son pays
Bonjour,
En VB j'ai créé 2 formulaires. Dans le 1er je saisis des généralités
(nom,prénom,...)
Les données sont transférées dans escel et en même temps j'accède au 2ème
formulaire dans lequel j'ai de nouveau nom et prénom + des détails.
Je voudrais éviter de ressaisir ces 2 informations (qui sont identiques au
1er formulaire).
Il y a certainement une solution mais mon expérience est encore jeune.
D'avance merci
--
Nul n''est prophète en son pays
*Bonjour Dudulle*,
Userform2.Textbox1 = Userform1.Textbox1
Userform2.Textbox2 = Userform1.Textbox2
Me.hide
Userform2.show
Ceci devrait faire ton affaire ;-)Bonjour,
En VB j'ai créé 2 formulaires. Dans le 1er je saisis des généralités
(nom,prénom,...)
Les données sont transférées dans escel et en même temps j'accède au 2ème
formulaire dans lequel j'ai de nouveau nom et prénom + des détails.
Je voudrais éviter de ressaisir ces 2 informations (qui sont identiques au
1er formulaire).
Il y a certainement une solution mais mon expérience est encore jeune.
D'avance merci
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
*Bonjour Dudulle*,
Userform2.Textbox1 = Userform1.Textbox1
Userform2.Textbox2 = Userform1.Textbox2
Me.hide
Userform2.show
Ceci devrait faire ton affaire ;-)
Bonjour,
En VB j'ai créé 2 formulaires. Dans le 1er je saisis des généralités
(nom,prénom,...)
Les données sont transférées dans escel et en même temps j'accède au 2ème
formulaire dans lequel j'ai de nouveau nom et prénom + des détails.
Je voudrais éviter de ressaisir ces 2 informations (qui sont identiques au
1er formulaire).
Il y a certainement une solution mais mon expérience est encore jeune.
D'avance merci
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
*Bonjour Dudulle*,
Userform2.Textbox1 = Userform1.Textbox1
Userform2.Textbox2 = Userform1.Textbox2
Me.hide
Userform2.show
Ceci devrait faire ton affaire ;-)Bonjour,
En VB j'ai créé 2 formulaires. Dans le 1er je saisis des généralités
(nom,prénom,...)
Les données sont transférées dans escel et en même temps j'accède au 2ème
formulaire dans lequel j'ai de nouveau nom et prénom + des détails.
Je voudrais éviter de ressaisir ces 2 informations (qui sont identiques au
1er formulaire).
Il y a certainement une solution mais mon expérience est encore jeune.
D'avance merci
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
Merci JLuc,
Quelle rapidité !
Merci, mais j'ai un petit souci : ce code je le mets où ?
Je l'avais dit, je suis débutant.
--
Nul n''''est prophète en son pays*Bonjour Dudulle*,
Userform2.Textbox1 = Userform1.Textbox1
Userform2.Textbox2 = Userform1.Textbox2
Me.hide
Userform2.show
Ceci devrait faire ton affaire ;-)Bonjour,
En VB j'ai créé 2 formulaires. Dans le 1er je saisis des généralités
(nom,prénom,...)
Les données sont transférées dans escel et en même temps j'accède au 2ème
formulaire dans lequel j'ai de nouveau nom et prénom + des détails.
Je voudrais éviter de ressaisir ces 2 informations (qui sont identiques au
1er formulaire).
Il y a certainement une solution mais mon expérience est encore jeune.
D'avance merci
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
Merci JLuc,
Quelle rapidité !
Merci, mais j'ai un petit souci : ce code je le mets où ?
Je l'avais dit, je suis débutant.
--
Nul n''''est prophète en son pays
*Bonjour Dudulle*,
Userform2.Textbox1 = Userform1.Textbox1
Userform2.Textbox2 = Userform1.Textbox2
Me.hide
Userform2.show
Ceci devrait faire ton affaire ;-)
Bonjour,
En VB j'ai créé 2 formulaires. Dans le 1er je saisis des généralités
(nom,prénom,...)
Les données sont transférées dans escel et en même temps j'accède au 2ème
formulaire dans lequel j'ai de nouveau nom et prénom + des détails.
Je voudrais éviter de ressaisir ces 2 informations (qui sont identiques au
1er formulaire).
Il y a certainement une solution mais mon expérience est encore jeune.
D'avance merci
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
Merci JLuc,
Quelle rapidité !
Merci, mais j'ai un petit souci : ce code je le mets où ?
Je l'avais dit, je suis débutant.
--
Nul n''''est prophète en son pays*Bonjour Dudulle*,
Userform2.Textbox1 = Userform1.Textbox1
Userform2.Textbox2 = Userform1.Textbox2
Me.hide
Userform2.show
Ceci devrait faire ton affaire ;-)Bonjour,
En VB j'ai créé 2 formulaires. Dans le 1er je saisis des généralités
(nom,prénom,...)
Les données sont transférées dans escel et en même temps j'accède au 2ème
formulaire dans lequel j'ai de nouveau nom et prénom + des détails.
Je voudrais éviter de ressaisir ces 2 informations (qui sont identiques au
1er formulaire).
Il y a certainement une solution mais mon expérience est encore jeune.
D'avance merci
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
Rebonsoir JLuc,
Pas d'affolement en creusant un peu j'ai trouvé.
Encore un grand merci, cela faisait des jours que je cherchais.
Vivement que je devienne spécialiste.
Bravo et à plus
--
Nul n''''est prophète en son pays
"Dudulle" wrote:Merci JLuc,
Quelle rapidité !
Merci, mais j'ai un petit souci : ce code je le mets où ?
Je l'avais dit, je suis débutant.
--
Nul n''''est prophète en son pays*Bonjour Dudulle*,
Userform2.Textbox1 = Userform1.Textbox1
Userform2.Textbox2 = Userform1.Textbox2
Me.hide
Userform2.show
Ceci devrait faire ton affaire ;-)Bonjour,
En VB j'ai créé 2 formulaires. Dans le 1er je saisis des généralités
(nom,prénom,...)
Les données sont transférées dans escel et en même temps j'accède au 2ème
formulaire dans lequel j'ai de nouveau nom et prénom + des détails.
Je voudrais éviter de ressaisir ces 2 informations (qui sont identiques au
1er formulaire).
Il y a certainement une solution mais mon expérience est encore jeune.
D'avance merci
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
Rebonsoir JLuc,
Pas d'affolement en creusant un peu j'ai trouvé.
Encore un grand merci, cela faisait des jours que je cherchais.
Vivement que je devienne spécialiste.
Bravo et à plus
--
Nul n''''est prophète en son pays
"Dudulle" wrote:
Merci JLuc,
Quelle rapidité !
Merci, mais j'ai un petit souci : ce code je le mets où ?
Je l'avais dit, je suis débutant.
--
Nul n''''est prophète en son pays
*Bonjour Dudulle*,
Userform2.Textbox1 = Userform1.Textbox1
Userform2.Textbox2 = Userform1.Textbox2
Me.hide
Userform2.show
Ceci devrait faire ton affaire ;-)
Bonjour,
En VB j'ai créé 2 formulaires. Dans le 1er je saisis des généralités
(nom,prénom,...)
Les données sont transférées dans escel et en même temps j'accède au 2ème
formulaire dans lequel j'ai de nouveau nom et prénom + des détails.
Je voudrais éviter de ressaisir ces 2 informations (qui sont identiques au
1er formulaire).
Il y a certainement une solution mais mon expérience est encore jeune.
D'avance merci
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
Rebonsoir JLuc,
Pas d'affolement en creusant un peu j'ai trouvé.
Encore un grand merci, cela faisait des jours que je cherchais.
Vivement que je devienne spécialiste.
Bravo et à plus
--
Nul n''''est prophète en son pays
"Dudulle" wrote:Merci JLuc,
Quelle rapidité !
Merci, mais j'ai un petit souci : ce code je le mets où ?
Je l'avais dit, je suis débutant.
--
Nul n''''est prophète en son pays*Bonjour Dudulle*,
Userform2.Textbox1 = Userform1.Textbox1
Userform2.Textbox2 = Userform1.Textbox2
Me.hide
Userform2.show
Ceci devrait faire ton affaire ;-)Bonjour,
En VB j'ai créé 2 formulaires. Dans le 1er je saisis des généralités
(nom,prénom,...)
Les données sont transférées dans escel et en même temps j'accède au 2ème
formulaire dans lequel j'ai de nouveau nom et prénom + des détails.
Je voudrais éviter de ressaisir ces 2 informations (qui sont identiques au
1er formulaire).
Il y a certainement une solution mais mon expérience est encore jeune.
D'avance merci
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
J'ai dit bonsoir trop vite, un dernier petit point pour fignoler mon appli :
J'ai un controle Date de naissance et un controle Age.
Comment puis-je transposer l'age dans son controle.
ci-dessous le code de Date de naissance
Private Sub DateNais_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ArrD
Dim Ladate As Date
ArrD = Split(DateNais.Text, Application.International(xlDateSeparator))
'compte le nb de "/" inclus dans la date pour éviter la saisie de dates
'incomplètes ou ambigües type 02/02
If UBound(ArrD) <> 2 Then
MsgBox ("Attention, saisir sous forme JJ/MM/AA !")
GoTo Fin
End If
If Not IsDate(DateNais.Value) Then
MsgBox ("Attention, saisir sous forme JJ/MM/AA !")
GoTo Fin
End If
DateNais.Value = Format(DateNais.Value, "dd/mm/yyyy")
Ladate = CDate(DateNais.Value)
Exit Sub
Fin:
Cancel = True 'empêche la sortie du textbox en cours
DateNais.SetFocus 'redonne le focus au textbox
DateNais.SelStart = 0 'positionne le curseur au début du textbox
DateNais.SelLength = Len(DateNais) 'sélectionne le texte déjà entré
End Sub
--
Nul n''''est prophète en son pays
"Dudulle" wrote:Rebonsoir JLuc,
Pas d'affolement en creusant un peu j'ai trouvé.
Encore un grand merci, cela faisait des jours que je cherchais.
Vivement que je devienne spécialiste.
Bravo et à plus
--
Nul n''''est prophète en son pays
"Dudulle" wrote:Merci JLuc,
Quelle rapidité !
Merci, mais j'ai un petit souci : ce code je le mets où ?
Je l'avais dit, je suis débutant.
--
Nul n''''est prophète en son pays*Bonjour Dudulle*,
Userform2.Textbox1 = Userform1.Textbox1
Userform2.Textbox2 = Userform1.Textbox2
Me.hide
Userform2.show
Ceci devrait faire ton affaire ;-)Bonjour,
En VB j'ai créé 2 formulaires. Dans le 1er je saisis des généralités
(nom,prénom,...)
Les données sont transférées dans escel et en même temps j'accède au 2ème
formulaire dans lequel j'ai de nouveau nom et prénom + des détails.
Je voudrais éviter de ressaisir ces 2 informations (qui sont identiques
au 1er formulaire).
Il y a certainement une solution mais mon expérience est encore jeune.
D'avance merci
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
J'ai dit bonsoir trop vite, un dernier petit point pour fignoler mon appli :
J'ai un controle Date de naissance et un controle Age.
Comment puis-je transposer l'age dans son controle.
ci-dessous le code de Date de naissance
Private Sub DateNais_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ArrD
Dim Ladate As Date
ArrD = Split(DateNais.Text, Application.International(xlDateSeparator))
'compte le nb de "/" inclus dans la date pour éviter la saisie de dates
'incomplètes ou ambigües type 02/02
If UBound(ArrD) <> 2 Then
MsgBox ("Attention, saisir sous forme JJ/MM/AA !")
GoTo Fin
End If
If Not IsDate(DateNais.Value) Then
MsgBox ("Attention, saisir sous forme JJ/MM/AA !")
GoTo Fin
End If
DateNais.Value = Format(DateNais.Value, "dd/mm/yyyy")
Ladate = CDate(DateNais.Value)
Exit Sub
Fin:
Cancel = True 'empêche la sortie du textbox en cours
DateNais.SetFocus 'redonne le focus au textbox
DateNais.SelStart = 0 'positionne le curseur au début du textbox
DateNais.SelLength = Len(DateNais) 'sélectionne le texte déjà entré
End Sub
--
Nul n''''est prophète en son pays
"Dudulle" wrote:
Rebonsoir JLuc,
Pas d'affolement en creusant un peu j'ai trouvé.
Encore un grand merci, cela faisait des jours que je cherchais.
Vivement que je devienne spécialiste.
Bravo et à plus
--
Nul n''''est prophète en son pays
"Dudulle" wrote:
Merci JLuc,
Quelle rapidité !
Merci, mais j'ai un petit souci : ce code je le mets où ?
Je l'avais dit, je suis débutant.
--
Nul n''''est prophète en son pays
*Bonjour Dudulle*,
Userform2.Textbox1 = Userform1.Textbox1
Userform2.Textbox2 = Userform1.Textbox2
Me.hide
Userform2.show
Ceci devrait faire ton affaire ;-)
Bonjour,
En VB j'ai créé 2 formulaires. Dans le 1er je saisis des généralités
(nom,prénom,...)
Les données sont transférées dans escel et en même temps j'accède au 2ème
formulaire dans lequel j'ai de nouveau nom et prénom + des détails.
Je voudrais éviter de ressaisir ces 2 informations (qui sont identiques
au 1er formulaire).
Il y a certainement une solution mais mon expérience est encore jeune.
D'avance merci
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
J'ai dit bonsoir trop vite, un dernier petit point pour fignoler mon appli :
J'ai un controle Date de naissance et un controle Age.
Comment puis-je transposer l'age dans son controle.
ci-dessous le code de Date de naissance
Private Sub DateNais_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ArrD
Dim Ladate As Date
ArrD = Split(DateNais.Text, Application.International(xlDateSeparator))
'compte le nb de "/" inclus dans la date pour éviter la saisie de dates
'incomplètes ou ambigües type 02/02
If UBound(ArrD) <> 2 Then
MsgBox ("Attention, saisir sous forme JJ/MM/AA !")
GoTo Fin
End If
If Not IsDate(DateNais.Value) Then
MsgBox ("Attention, saisir sous forme JJ/MM/AA !")
GoTo Fin
End If
DateNais.Value = Format(DateNais.Value, "dd/mm/yyyy")
Ladate = CDate(DateNais.Value)
Exit Sub
Fin:
Cancel = True 'empêche la sortie du textbox en cours
DateNais.SetFocus 'redonne le focus au textbox
DateNais.SelStart = 0 'positionne le curseur au début du textbox
DateNais.SelLength = Len(DateNais) 'sélectionne le texte déjà entré
End Sub
--
Nul n''''est prophète en son pays
"Dudulle" wrote:Rebonsoir JLuc,
Pas d'affolement en creusant un peu j'ai trouvé.
Encore un grand merci, cela faisait des jours que je cherchais.
Vivement que je devienne spécialiste.
Bravo et à plus
--
Nul n''''est prophète en son pays
"Dudulle" wrote:Merci JLuc,
Quelle rapidité !
Merci, mais j'ai un petit souci : ce code je le mets où ?
Je l'avais dit, je suis débutant.
--
Nul n''''est prophète en son pays*Bonjour Dudulle*,
Userform2.Textbox1 = Userform1.Textbox1
Userform2.Textbox2 = Userform1.Textbox2
Me.hide
Userform2.show
Ceci devrait faire ton affaire ;-)Bonjour,
En VB j'ai créé 2 formulaires. Dans le 1er je saisis des généralités
(nom,prénom,...)
Les données sont transférées dans escel et en même temps j'accède au 2ème
formulaire dans lequel j'ai de nouveau nom et prénom + des détails.
Je voudrais éviter de ressaisir ces 2 informations (qui sont identiques
au 1er formulaire).
Il y a certainement une solution mais mon expérience est encore jeune.
D'avance merci
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
*Bonjour Dudulle*,
Avant ton exit sub, tu ecris :
Age.Value = Year(Now) - Year(Ladate)
J'ai suppose que tu voulais mettre l'age dans un Textbox nomme "Age",
sinon, adapteJ'ai dit bonsoir trop vite, un dernier petit point pour fignoler mon appli :
J'ai un controle Date de naissance et un controle Age.
Comment puis-je transposer l'age dans son controle.
ci-dessous le code de Date de naissance
Private Sub DateNais_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ArrD
Dim Ladate As Date
ArrD = Split(DateNais.Text, Application.International(xlDateSeparator))
'compte le nb de "/" inclus dans la date pour éviter la saisie de dates
'incomplètes ou ambigües type 02/02
If UBound(ArrD) <> 2 Then
MsgBox ("Attention, saisir sous forme JJ/MM/AA !")
GoTo Fin
End If
If Not IsDate(DateNais.Value) Then
MsgBox ("Attention, saisir sous forme JJ/MM/AA !")
GoTo Fin
End If
DateNais.Value = Format(DateNais.Value, "dd/mm/yyyy")
Ladate = CDate(DateNais.Value)
Exit Sub
Fin:
Cancel = True 'empêche la sortie du textbox en cours
DateNais.SetFocus 'redonne le focus au textbox
DateNais.SelStart = 0 'positionne le curseur au début du textbox
DateNais.SelLength = Len(DateNais) 'sélectionne le texte déjà entré
End Sub
--
Nul n''''est prophète en son pays
"Dudulle" wrote:Rebonsoir JLuc,
Pas d'affolement en creusant un peu j'ai trouvé.
Encore un grand merci, cela faisait des jours que je cherchais.
Vivement que je devienne spécialiste.
Bravo et à plus
--
Nul n''''est prophète en son pays
"Dudulle" wrote:Merci JLuc,
Quelle rapidité !
Merci, mais j'ai un petit souci : ce code je le mets où ?
Je l'avais dit, je suis débutant.
--
Nul n''''est prophète en son pays*Bonjour Dudulle*,
Userform2.Textbox1 = Userform1.Textbox1
Userform2.Textbox2 = Userform1.Textbox2
Me.hide
Userform2.show
Ceci devrait faire ton affaire ;-)Bonjour,
En VB j'ai créé 2 formulaires. Dans le 1er je saisis des généralités
(nom,prénom,...)
Les données sont transférées dans escel et en même temps j'accède au 2ème
formulaire dans lequel j'ai de nouveau nom et prénom + des détails.
Je voudrais éviter de ressaisir ces 2 informations (qui sont identiques
au 1er formulaire).
Il y a certainement une solution mais mon expérience est encore jeune.
D'avance merci
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
*Bonjour Dudulle*,
Avant ton exit sub, tu ecris :
Age.Value = Year(Now) - Year(Ladate)
J'ai suppose que tu voulais mettre l'age dans un Textbox nomme "Age",
sinon, adapte
J'ai dit bonsoir trop vite, un dernier petit point pour fignoler mon appli :
J'ai un controle Date de naissance et un controle Age.
Comment puis-je transposer l'age dans son controle.
ci-dessous le code de Date de naissance
Private Sub DateNais_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ArrD
Dim Ladate As Date
ArrD = Split(DateNais.Text, Application.International(xlDateSeparator))
'compte le nb de "/" inclus dans la date pour éviter la saisie de dates
'incomplètes ou ambigües type 02/02
If UBound(ArrD) <> 2 Then
MsgBox ("Attention, saisir sous forme JJ/MM/AA !")
GoTo Fin
End If
If Not IsDate(DateNais.Value) Then
MsgBox ("Attention, saisir sous forme JJ/MM/AA !")
GoTo Fin
End If
DateNais.Value = Format(DateNais.Value, "dd/mm/yyyy")
Ladate = CDate(DateNais.Value)
Exit Sub
Fin:
Cancel = True 'empêche la sortie du textbox en cours
DateNais.SetFocus 'redonne le focus au textbox
DateNais.SelStart = 0 'positionne le curseur au début du textbox
DateNais.SelLength = Len(DateNais) 'sélectionne le texte déjà entré
End Sub
--
Nul n''''est prophète en son pays
"Dudulle" wrote:
Rebonsoir JLuc,
Pas d'affolement en creusant un peu j'ai trouvé.
Encore un grand merci, cela faisait des jours que je cherchais.
Vivement que je devienne spécialiste.
Bravo et à plus
--
Nul n''''est prophète en son pays
"Dudulle" wrote:
Merci JLuc,
Quelle rapidité !
Merci, mais j'ai un petit souci : ce code je le mets où ?
Je l'avais dit, je suis débutant.
--
Nul n''''est prophète en son pays
*Bonjour Dudulle*,
Userform2.Textbox1 = Userform1.Textbox1
Userform2.Textbox2 = Userform1.Textbox2
Me.hide
Userform2.show
Ceci devrait faire ton affaire ;-)
Bonjour,
En VB j'ai créé 2 formulaires. Dans le 1er je saisis des généralités
(nom,prénom,...)
Les données sont transférées dans escel et en même temps j'accède au 2ème
formulaire dans lequel j'ai de nouveau nom et prénom + des détails.
Je voudrais éviter de ressaisir ces 2 informations (qui sont identiques
au 1er formulaire).
Il y a certainement une solution mais mon expérience est encore jeune.
D'avance merci
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
*Bonjour Dudulle*,
Avant ton exit sub, tu ecris :
Age.Value = Year(Now) - Year(Ladate)
J'ai suppose que tu voulais mettre l'age dans un Textbox nomme "Age",
sinon, adapteJ'ai dit bonsoir trop vite, un dernier petit point pour fignoler mon appli :
J'ai un controle Date de naissance et un controle Age.
Comment puis-je transposer l'age dans son controle.
ci-dessous le code de Date de naissance
Private Sub DateNais_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ArrD
Dim Ladate As Date
ArrD = Split(DateNais.Text, Application.International(xlDateSeparator))
'compte le nb de "/" inclus dans la date pour éviter la saisie de dates
'incomplètes ou ambigües type 02/02
If UBound(ArrD) <> 2 Then
MsgBox ("Attention, saisir sous forme JJ/MM/AA !")
GoTo Fin
End If
If Not IsDate(DateNais.Value) Then
MsgBox ("Attention, saisir sous forme JJ/MM/AA !")
GoTo Fin
End If
DateNais.Value = Format(DateNais.Value, "dd/mm/yyyy")
Ladate = CDate(DateNais.Value)
Exit Sub
Fin:
Cancel = True 'empêche la sortie du textbox en cours
DateNais.SetFocus 'redonne le focus au textbox
DateNais.SelStart = 0 'positionne le curseur au début du textbox
DateNais.SelLength = Len(DateNais) 'sélectionne le texte déjà entré
End Sub
--
Nul n''''est prophète en son pays
"Dudulle" wrote:Rebonsoir JLuc,
Pas d'affolement en creusant un peu j'ai trouvé.
Encore un grand merci, cela faisait des jours que je cherchais.
Vivement que je devienne spécialiste.
Bravo et à plus
--
Nul n''''est prophète en son pays
"Dudulle" wrote:Merci JLuc,
Quelle rapidité !
Merci, mais j'ai un petit souci : ce code je le mets où ?
Je l'avais dit, je suis débutant.
--
Nul n''''est prophète en son pays*Bonjour Dudulle*,
Userform2.Textbox1 = Userform1.Textbox1
Userform2.Textbox2 = Userform1.Textbox2
Me.hide
Userform2.show
Ceci devrait faire ton affaire ;-)Bonjour,
En VB j'ai créé 2 formulaires. Dans le 1er je saisis des généralités
(nom,prénom,...)
Les données sont transférées dans escel et en même temps j'accède au 2ème
formulaire dans lequel j'ai de nouveau nom et prénom + des détails.
Je voudrais éviter de ressaisir ces 2 informations (qui sont identiques
au 1er formulaire).
Il y a certainement une solution mais mon expérience est encore jeune.
D'avance merci
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
