XL 2010 ajout des données sans fermer formulaire

hafida_all à dit:

Bonjour
avez vous une idée pour enregistrer des données dans un tableau excel sans fermer le formulaire!

Cliquez pour agrandir...

youky(BJ) à dit:

Bonsoir,
Normalement les range(… devraient s'actualiser sans PB
Si la macro est en Module1 faut spécifier
.Range("A5").Value = Userform1.Combo1.Value
.....et la suite
Pour masquer l'userform tu peux . . . .
Userform1. hide 'masque
et pour le décharger
Unload Userform1
Bruno

Cliquez pour agrandir...

Staple1600 à dit:

Re

hafida_all
C'est bien ce que j'avais compris.
Ce qui conforte mon sentiment
Donc je repose la question du message#6 😉

Cliquez pour agrandir...

Staple1600 à dit:

Re

Allez zou, sous la couette mais avant une petite macro pour bien m'endormir

VB:

Private Sub CommandButton1_Click()
  With Sheets("info")
    .[A5] = ComboBox1.Value: .[D15:E15] = Array(TextBox7, TextBox8)
    .[B5:B10] = Application.Transpose(Array(TextBox1, TextBox2, TextBox4, TextBox3, TextBox6, TextBox5))
  End With
End Sub

Normalement, produit le même effet que la macro du message#7

NB: En prenant soin de modifier avant le nom des contrôles dans mon code VBA, le cas échéant.
(Car je les ai changé pour faire mes tests)

Cliquez pour agrandir...

Staple1600 à dit:

Re

Allez zou, sous la couette mais avant une petite macro pour bien m'endormir

VB:

Private Sub CommandButton1_Click()
  With Sheets("info")
    .[A5] = ComboBox1.Value: .[D15:E15] = Array(TextBox7, TextBox8)
    .[B5:B10] = Application.Transpose(Array(TextBox1, TextBox2, TextBox4, TextBox3, TextBox6, TextBox5))
  End With
End Sub

Normalement, produit le même effet que la macro du message#7

NB: En prenant soin de modifier avant le nom des contrôles dans mon code VBA, le cas échéant.
(Car je les ai changé pour faire mes tests)

Cliquez pour agrandir...