B
basma
Guest
Bonsoir le Forum !
Heureusement que pour des débutants comme moi, vous êtes là !
oh, zut ! Voilà encore avec une question de basma !!
J'ai un UserForm qui contient des TextBox, ComboBox et Label et dont les données garnissent une Sheet ( 'Sheet1') Excel.
----------
Private Sub CommandButton1_Click()
'Date d'entrée de la requête'
Sheets('sheet1').Range('E2').Value = TextBox1.Value
TextBox1.Value = Format(Date, 'dd/mm/yyyy')
'Nom de la requête'
Sheets('sheet1').Range('A2').Value = TextBox10.Value
'Description requête'
Sheets('sheet1').Range('F2').Value = TextBox3.Value
'Eléments des Listes déroulantes'
'Départements impliqués 1'
ComboBox7.ColumnCount = 15
ComboBox7.RowSource = 'o110'
Sheets('sheet1').Range('D2').Value = ComboBox7.Value
'Personne de contact'
ComboBox8.ColumnCount = 14
ComboBox8.RowSource = 'n1:n10'
Sheets('sheet1').Range('C2').Value = ComboBox8.Value
-------------
==>> Je voudrais que ces données aillent directement dans une Table Access (' Table1'), en cliquant sur le CommanButton1, au lieu d'aller sur la Sheet Excel.
Est-ce possible ?
==>> quid pour mettre le formulaire en plein écran pour les utilisateurs ? dans ' ThisWorkbook ' ??
Encore merci de vos réponses toujours excellentes !!!!
Bonne soirée
Heureusement que pour des débutants comme moi, vous êtes là !
oh, zut ! Voilà encore avec une question de basma !!
J'ai un UserForm qui contient des TextBox, ComboBox et Label et dont les données garnissent une Sheet ( 'Sheet1') Excel.
----------
Private Sub CommandButton1_Click()
'Date d'entrée de la requête'
Sheets('sheet1').Range('E2').Value = TextBox1.Value
TextBox1.Value = Format(Date, 'dd/mm/yyyy')
'Nom de la requête'
Sheets('sheet1').Range('A2').Value = TextBox10.Value
'Description requête'
Sheets('sheet1').Range('F2').Value = TextBox3.Value
'Eléments des Listes déroulantes'
'Départements impliqués 1'
ComboBox7.ColumnCount = 15
ComboBox7.RowSource = 'o110'
Sheets('sheet1').Range('D2').Value = ComboBox7.Value
'Personne de contact'
ComboBox8.ColumnCount = 14
ComboBox8.RowSource = 'n1:n10'
Sheets('sheet1').Range('C2').Value = ComboBox8.Value
-------------
==>> Je voudrais que ces données aillent directement dans une Table Access (' Table1'), en cliquant sur le CommanButton1, au lieu d'aller sur la Sheet Excel.
Est-ce possible ?
==>> quid pour mettre le formulaire en plein écran pour les utilisateurs ? dans ' ThisWorkbook ' ??
Encore merci de vos réponses toujours excellentes !!!!
Bonne soirée