Voilà mon probleme, si quelqu'un pouvais m'aider ca serait sympas
Lorsque je valide mon formulaire j'ai envie que mes données s'inscrivent
dans 2 classeurs differents
1er classeur "clients.xls" feuille "identite"
2eme classeur clientsbis.xls feuille "identite"
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
Daniel
Bonsoir. Pour un userform avec deux textboxes : Dans un module :
Public Ligne As Long
Dans le code du bouton de validation :
Private Sub CommandButton1_Click() Ligne = Ligne + 1 Workbooks("clients.xls").Sheets("identite").Range("A" & Ligne) = TextBox1.Value Workbooks("clients.xls").Sheets("identite").Range("B" & Ligne) = TextBox2.Value Workbooks("clientsbis.xls").Sheets("identite").Range("A" & Ligne) = TextBox1.Value Workbooks("clientsbis.xls").Sheets("identite").Range("B" & Ligne) = TextBox2.Value End Sub
Cordialement. Daniel "Patrick" a écrit dans le message de news: 436a684f$0$25969$
Bonjour,
Voilà mon probleme, si quelqu'un pouvais m'aider ca serait sympas
Lorsque je valide mon formulaire j'ai envie que mes données s'inscrivent dans 2 classeurs differents 1er classeur "clients.xls" feuille "identite" 2eme classeur clientsbis.xls feuille "identite"
Merci
Bonsoir.
Pour un userform avec deux textboxes :
Dans un module :
Public Ligne As Long
Dans le code du bouton de validation :
Private Sub CommandButton1_Click()
Ligne = Ligne + 1
Workbooks("clients.xls").Sheets("identite").Range("A" & Ligne) =
TextBox1.Value
Workbooks("clients.xls").Sheets("identite").Range("B" & Ligne) =
TextBox2.Value
Workbooks("clientsbis.xls").Sheets("identite").Range("A" & Ligne) =
TextBox1.Value
Workbooks("clientsbis.xls").Sheets("identite").Range("B" & Ligne) =
TextBox2.Value
End Sub
Cordialement.
Daniel
"Patrick" <kros1@caramail.com> a écrit dans le message de news:
436a684f$0$25969$7a628cd7@news.club-internet.fr...
Bonjour,
Voilà mon probleme, si quelqu'un pouvais m'aider ca serait sympas
Lorsque je valide mon formulaire j'ai envie que mes données s'inscrivent
dans 2 classeurs differents
1er classeur "clients.xls" feuille "identite"
2eme classeur clientsbis.xls feuille "identite"
Bonsoir. Pour un userform avec deux textboxes : Dans un module :
Public Ligne As Long
Dans le code du bouton de validation :
Private Sub CommandButton1_Click() Ligne = Ligne + 1 Workbooks("clients.xls").Sheets("identite").Range("A" & Ligne) = TextBox1.Value Workbooks("clients.xls").Sheets("identite").Range("B" & Ligne) = TextBox2.Value Workbooks("clientsbis.xls").Sheets("identite").Range("A" & Ligne) = TextBox1.Value Workbooks("clientsbis.xls").Sheets("identite").Range("B" & Ligne) = TextBox2.Value End Sub
Cordialement. Daniel "Patrick" a écrit dans le message de news: 436a684f$0$25969$
Bonjour,
Voilà mon probleme, si quelqu'un pouvais m'aider ca serait sympas
Lorsque je valide mon formulaire j'ai envie que mes données s'inscrivent dans 2 classeurs differents 1er classeur "clients.xls" feuille "identite" 2eme classeur clientsbis.xls feuille "identite"
Merci
JLuc
*Bonjour Daniel*, et pou plus de controles :
Public Ligne As Long
Dans le code du bouton de validation :
Private Sub CommandButton1_Click()
dim classeur(2) classeur(1)="client.xls" classeur(2)="clientbis.xls" Ligne = Ligne + 1 for x = 1 to 2 Workbooks(classeur(x)).Sheets("identite").Range("A" & Ligne) = TextBox1.Value Workbooks(classeur(x)).Sheets("identite").Range("B" & Ligne) = TextBox2.Value Workbooks(classeur(x)).Sheets("identite").Range("C" & Ligne) = TextBox1.Value Workbooks(classeur(x)).Sheets("identite").Range("D" & Ligne) = TextBox2.Value ... next End Sub
Cordialement. Daniel "Patrick" a écrit dans le message de news: 436a684f$0$25969$
Bonjour,
Voilà mon probleme, si quelqu'un pouvais m'aider ca serait sympas
Lorsque je valide mon formulaire j'ai envie que mes données s'inscrivent dans 2 classeurs differents 1er classeur "clients.xls" feuille "identite" 2eme classeur clientsbis.xls feuille "identite"
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 Daniel*,
et pou plus de controles :
Public Ligne As Long
Dans le code du bouton de validation :
Private Sub CommandButton1_Click()
dim classeur(2)
classeur(1)="client.xls"
classeur(2)="clientbis.xls"
Ligne = Ligne + 1
for x = 1 to 2
Workbooks(classeur(x)).Sheets("identite").Range("A" & Ligne) =
TextBox1.Value
Workbooks(classeur(x)).Sheets("identite").Range("B" & Ligne) =
TextBox2.Value
Workbooks(classeur(x)).Sheets("identite").Range("C" & Ligne) =
TextBox1.Value
Workbooks(classeur(x)).Sheets("identite").Range("D" & Ligne) =
TextBox2.Value
...
next
End Sub
Cordialement.
Daniel
"Patrick" <kros1@caramail.com> a écrit dans le message de news:
436a684f$0$25969$7a628cd7@news.club-internet.fr...
Bonjour,
Voilà mon probleme, si quelqu'un pouvais m'aider ca serait sympas
Lorsque je valide mon formulaire j'ai envie que mes données s'inscrivent
dans 2 classeurs differents
1er classeur "clients.xls" feuille "identite"
2eme classeur clientsbis.xls feuille "identite"
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
dim classeur(2) classeur(1)="client.xls" classeur(2)="clientbis.xls" Ligne = Ligne + 1 for x = 1 to 2 Workbooks(classeur(x)).Sheets("identite").Range("A" & Ligne) = TextBox1.Value Workbooks(classeur(x)).Sheets("identite").Range("B" & Ligne) = TextBox2.Value Workbooks(classeur(x)).Sheets("identite").Range("C" & Ligne) = TextBox1.Value Workbooks(classeur(x)).Sheets("identite").Range("D" & Ligne) = TextBox2.Value ... next End Sub
Cordialement. Daniel "Patrick" a écrit dans le message de news: 436a684f$0$25969$
Bonjour,
Voilà mon probleme, si quelqu'un pouvais m'aider ca serait sympas
Lorsque je valide mon formulaire j'ai envie que mes données s'inscrivent dans 2 classeurs differents 1er classeur "clients.xls" feuille "identite" 2eme classeur clientsbis.xls feuille "identite"
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
Daniel
Bonsoir. Peur-être TextBox3 et TextBox4 alors, en colonne C et D ? Sacré copier / coller ! Cordialement. Daniel "JLuc" a écrit dans le message de news:
*Bonjour Daniel*, et pou plus de controles :
Public Ligne As Long
Dans le code du bouton de validation :
Private Sub CommandButton1_Click()
dim classeur(2) classeur(1)="client.xls" classeur(2)="clientbis.xls" Ligne = Ligne + 1 for x = 1 to 2 Workbooks(classeur(x)).Sheets("identite").Range("A" & Ligne) = TextBox1.Value Workbooks(classeur(x)).Sheets("identite").Range("B" & Ligne) = TextBox2.Value Workbooks(classeur(x)).Sheets("identite").Range("C" & Ligne) = TextBox1.Value Workbooks(classeur(x)).Sheets("identite").Range("D" & Ligne) = TextBox2.Value ... next End Sub
Cordialement. Daniel "Patrick" a écrit dans le message de news: 436a684f$0$25969$
Bonjour,
Voilà mon probleme, si quelqu'un pouvais m'aider ca serait sympas
Lorsque je valide mon formulaire j'ai envie que mes données s'inscrivent dans 2 classeurs differents 1er classeur "clients.xls" feuille "identite" 2eme classeur clientsbis.xls feuille "identite"
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
Bonsoir.
Peur-être TextBox3 et TextBox4 alors, en colonne C et D ?
Sacré copier / coller !
Cordialement.
Daniel
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.1d297d5b48a03587.40692@free.fr.ns...
*Bonjour Daniel*,
et pou plus de controles :
Public Ligne As Long
Dans le code du bouton de validation :
Private Sub CommandButton1_Click()
dim classeur(2)
classeur(1)="client.xls"
classeur(2)="clientbis.xls"
Ligne = Ligne + 1
for x = 1 to 2
Workbooks(classeur(x)).Sheets("identite").Range("A" & Ligne) =
TextBox1.Value
Workbooks(classeur(x)).Sheets("identite").Range("B" & Ligne) =
TextBox2.Value
Workbooks(classeur(x)).Sheets("identite").Range("C" & Ligne) =
TextBox1.Value
Workbooks(classeur(x)).Sheets("identite").Range("D" & Ligne) =
TextBox2.Value
...
next
End Sub
Cordialement.
Daniel
"Patrick" <kros1@caramail.com> a écrit dans le message de news:
436a684f$0$25969$7a628cd7@news.club-internet.fr...
Bonjour,
Voilà mon probleme, si quelqu'un pouvais m'aider ca serait sympas
Lorsque je valide mon formulaire j'ai envie que mes données
s'inscrivent dans 2 classeurs differents
1er classeur "clients.xls" feuille "identite"
2eme classeur clientsbis.xls feuille "identite"
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
Bonsoir. Peur-être TextBox3 et TextBox4 alors, en colonne C et D ? Sacré copier / coller ! Cordialement. Daniel "JLuc" a écrit dans le message de news:
*Bonjour Daniel*, et pou plus de controles :
Public Ligne As Long
Dans le code du bouton de validation :
Private Sub CommandButton1_Click()
dim classeur(2) classeur(1)="client.xls" classeur(2)="clientbis.xls" Ligne = Ligne + 1 for x = 1 to 2 Workbooks(classeur(x)).Sheets("identite").Range("A" & Ligne) = TextBox1.Value Workbooks(classeur(x)).Sheets("identite").Range("B" & Ligne) = TextBox2.Value Workbooks(classeur(x)).Sheets("identite").Range("C" & Ligne) = TextBox1.Value Workbooks(classeur(x)).Sheets("identite").Range("D" & Ligne) = TextBox2.Value ... next End Sub
Cordialement. Daniel "Patrick" a écrit dans le message de news: 436a684f$0$25969$
Bonjour,
Voilà mon probleme, si quelqu'un pouvais m'aider ca serait sympas
Lorsque je valide mon formulaire j'ai envie que mes données s'inscrivent dans 2 classeurs differents 1er classeur "clients.xls" feuille "identite" 2eme classeur clientsbis.xls feuille "identite"
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
Patrick
merci
cordialement
"Daniel" a écrit dans le message de news:
Bonsoir. Peur-être TextBox3 et TextBox4 alors, en colonne C et D ? Sacré copier / coller ! Cordialement. Daniel "JLuc" a écrit dans le message de news:
*Bonjour Daniel*, et pou plus de controles :
Public Ligne As Long
Dans le code du bouton de validation :
Private Sub CommandButton1_Click()
dim classeur(2) classeur(1)="client.xls" classeur(2)="clientbis.xls" Ligne = Ligne + 1 for x = 1 to 2 Workbooks(classeur(x)).Sheets("identite").Range("A" & Ligne) = TextBox1.Value Workbooks(classeur(x)).Sheets("identite").Range("B" & Ligne) = TextBox2.Value Workbooks(classeur(x)).Sheets("identite").Range("C" & Ligne) = TextBox1.Value Workbooks(classeur(x)).Sheets("identite").Range("D" & Ligne) = TextBox2.Value ... next End Sub
Cordialement. Daniel "Patrick" a écrit dans le message de news: 436a684f$0$25969$
Bonjour,
Voilà mon probleme, si quelqu'un pouvais m'aider ca serait sympas
Lorsque je valide mon formulaire j'ai envie que mes données s'inscrivent dans 2 classeurs differents 1er classeur "clients.xls" feuille "identite" 2eme classeur clientsbis.xls feuille "identite"
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
cordialement
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OIlpMwL4FHA.2524@TK2MSFTNGP10.phx.gbl...
Bonsoir.
Peur-être TextBox3 et TextBox4 alors, en colonne C et D ?
Sacré copier / coller !
Cordialement.
Daniel
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.1d297d5b48a03587.40692@free.fr.ns...
*Bonjour Daniel*,
et pou plus de controles :
Public Ligne As Long
Dans le code du bouton de validation :
Private Sub CommandButton1_Click()
dim classeur(2)
classeur(1)="client.xls"
classeur(2)="clientbis.xls"
Ligne = Ligne + 1
for x = 1 to 2
Workbooks(classeur(x)).Sheets("identite").Range("A" & Ligne) =
TextBox1.Value
Workbooks(classeur(x)).Sheets("identite").Range("B" & Ligne) =
TextBox2.Value
Workbooks(classeur(x)).Sheets("identite").Range("C" & Ligne) =
TextBox1.Value
Workbooks(classeur(x)).Sheets("identite").Range("D" & Ligne) =
TextBox2.Value
...
next
End Sub
Cordialement.
Daniel
"Patrick" <kros1@caramail.com> a écrit dans le message de news:
436a684f$0$25969$7a628cd7@news.club-internet.fr...
Bonjour,
Voilà mon probleme, si quelqu'un pouvais m'aider ca serait sympas
Lorsque je valide mon formulaire j'ai envie que mes données
s'inscrivent dans 2 classeurs differents
1er classeur "clients.xls" feuille "identite"
2eme classeur clientsbis.xls feuille "identite"
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
Bonsoir. Peur-être TextBox3 et TextBox4 alors, en colonne C et D ? Sacré copier / coller ! Cordialement. Daniel "JLuc" a écrit dans le message de news:
*Bonjour Daniel*, et pou plus de controles :
Public Ligne As Long
Dans le code du bouton de validation :
Private Sub CommandButton1_Click()
dim classeur(2) classeur(1)="client.xls" classeur(2)="clientbis.xls" Ligne = Ligne + 1 for x = 1 to 2 Workbooks(classeur(x)).Sheets("identite").Range("A" & Ligne) = TextBox1.Value Workbooks(classeur(x)).Sheets("identite").Range("B" & Ligne) = TextBox2.Value Workbooks(classeur(x)).Sheets("identite").Range("C" & Ligne) = TextBox1.Value Workbooks(classeur(x)).Sheets("identite").Range("D" & Ligne) = TextBox2.Value ... next End Sub
Cordialement. Daniel "Patrick" a écrit dans le message de news: 436a684f$0$25969$
Bonjour,
Voilà mon probleme, si quelqu'un pouvais m'aider ca serait sympas
Lorsque je valide mon formulaire j'ai envie que mes données s'inscrivent dans 2 classeurs differents 1er classeur "clients.xls" feuille "identite" 2eme classeur clientsbis.xls feuille "identite"
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
*Bonjour Daniel*, T'as raison, j'ai supprimer le cotage pour reprendre ton code et c'est vrai, j'ai oublie les textbox... Pourras tu,un jour, me pardonner ma paresse ? :')
Cordialement. itou lol
Bonsoir. Peur-être TextBox3 et TextBox4 alors, en colonne C et D ? Sacré copier / coller ! Cordialement. Daniel "JLuc" a écrit dans le message de news:
*Bonjour Daniel*, et pou plus de controles :
Public Ligne As Long
Dans le code du bouton de validation :
Private Sub CommandButton1_Click()
dim classeur(2) classeur(1)="client.xls" classeur(2)="clientbis.xls" Ligne = Ligne + 1 for x = 1 to 2 Workbooks(classeur(x)).Sheets("identite").Range("A" & Ligne) = TextBox1.Value Workbooks(classeur(x)).Sheets("identite").Range("B" & Ligne) = TextBox2.Value Workbooks(classeur(x)).Sheets("identite").Range("C" & Ligne) = TextBox1.Value Workbooks(classeur(x)).Sheets("identite").Range("D" & Ligne) = TextBox2.Value ... next End Sub
Cordialement. Daniel "Patrick" a écrit dans le message de news: 436a684f$0$25969$
Bonjour,
Voilà mon probleme, si quelqu'un pouvais m'aider ca serait sympas
Lorsque je valide mon formulaire j'ai envie que mes données s'inscrivent dans 2 classeurs differents 1er classeur "clients.xls" feuille "identite" 2eme classeur clientsbis.xls feuille "identite"
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 Daniel*,
T'as raison, j'ai supprimer le cotage pour reprendre ton code et c'est
vrai, j'ai oublie les textbox...
Pourras tu,un jour, me pardonner ma paresse ? :')
Cordialement.
itou lol
Bonsoir.
Peur-être TextBox3 et TextBox4 alors, en colonne C et D ?
Sacré copier / coller !
Cordialement.
Daniel
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.1d297d5b48a03587.40692@free.fr.ns...
*Bonjour Daniel*,
et pou plus de controles :
Public Ligne As Long
Dans le code du bouton de validation :
Private Sub CommandButton1_Click()
dim classeur(2)
classeur(1)="client.xls"
classeur(2)="clientbis.xls"
Ligne = Ligne + 1
for x = 1 to 2
Workbooks(classeur(x)).Sheets("identite").Range("A" & Ligne) =
TextBox1.Value
Workbooks(classeur(x)).Sheets("identite").Range("B" & Ligne) =
TextBox2.Value
Workbooks(classeur(x)).Sheets("identite").Range("C" & Ligne) =
TextBox1.Value
Workbooks(classeur(x)).Sheets("identite").Range("D" & Ligne) =
TextBox2.Value
...
next
End Sub
Cordialement.
Daniel
"Patrick" <kros1@caramail.com> a écrit dans le message de news:
436a684f$0$25969$7a628cd7@news.club-internet.fr...
Bonjour,
Voilà mon probleme, si quelqu'un pouvais m'aider ca serait sympas
Lorsque je valide mon formulaire j'ai envie que mes données s'inscrivent
dans 2 classeurs differents
1er classeur "clients.xls" feuille "identite"
2eme classeur clientsbis.xls feuille "identite"
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 Daniel*, T'as raison, j'ai supprimer le cotage pour reprendre ton code et c'est vrai, j'ai oublie les textbox... Pourras tu,un jour, me pardonner ma paresse ? :')
Cordialement. itou lol
Bonsoir. Peur-être TextBox3 et TextBox4 alors, en colonne C et D ? Sacré copier / coller ! Cordialement. Daniel "JLuc" a écrit dans le message de news:
*Bonjour Daniel*, et pou plus de controles :
Public Ligne As Long
Dans le code du bouton de validation :
Private Sub CommandButton1_Click()
dim classeur(2) classeur(1)="client.xls" classeur(2)="clientbis.xls" Ligne = Ligne + 1 for x = 1 to 2 Workbooks(classeur(x)).Sheets("identite").Range("A" & Ligne) = TextBox1.Value Workbooks(classeur(x)).Sheets("identite").Range("B" & Ligne) = TextBox2.Value Workbooks(classeur(x)).Sheets("identite").Range("C" & Ligne) = TextBox1.Value Workbooks(classeur(x)).Sheets("identite").Range("D" & Ligne) = TextBox2.Value ... next End Sub
Cordialement. Daniel "Patrick" a écrit dans le message de news: 436a684f$0$25969$
Bonjour,
Voilà mon probleme, si quelqu'un pouvais m'aider ca serait sympas
Lorsque je valide mon formulaire j'ai envie que mes données s'inscrivent dans 2 classeurs differents 1er classeur "clients.xls" feuille "identite" 2eme classeur clientsbis.xls feuille "identite"
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
