XL 2010 ajout des données sans fermer formulaire

[hafida_all]

Bonjour
avez vous une idée pour enregistrer des données dans un tableau excel sans fermer le formulaire!
mon code est comme cela:
With Sheets("info")
.Range("A5").Value = Combo1.Value
.Range("B5").Value = Textbox1.value
.Range("B6").Value = Textbo2.value
.
.
.
end with
end sub
je ne veux pas fermer le userform,mais les données ne s'affiche pas dans le tableau,jusqu'à je ferme le userform.
puis-je continuer sans fermer?

 

[Jacky67]

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

Bonjour,
Une idée oui, mais sans la macro complète ou un classeur exemple, ce sera difficile.
Eventuellement==>Supprimer la ligne "Unload.UserForm" si elle existe.

 

[patricktoulon]

bonjour
ton userform est il modal ou pas

 

[youky(BJ)]

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

 

[patricktoulon]

re
oui un hide puis a nouveau un show si on veut le garder modal

 

[Staple1600]

Bonsoir le fil

Une question me turlupine soudainement
Pourquoi saisir des données dans un userform pour les voir s'afficher en direct dans les cellules idoines?
Alors qu'on peut simplement saisir les valeurs dans les mêmes cellules directement?

 

[hafida_all]

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

merci pour toute lez réponses,voilà ce que j'ai fait:
Private Sub CommandButton1_Click()

With Sheets("info")
Sheets("info").Range("A5").Value = Me.Combo1.Value
Sheets("info").Range("B5").Value = Me.textbox1.Value
.Range("B6").Value = Me.textbox2.Value
.Range("B8").Value = Me.textbox3.Value
.Range("B7").Value = Me.textbox4.Value
.Range("B10").Value = Me.textbox5.Value
.Range("B9").Value = Me.textbox6.Value
.Range("D15").Value = Me.textbox7.Value
.Range("E15").Value = Me.textbox8.Value
End With

End Sub
je ne veux pas faire userform1.hide, je veux tester si le formulaire reste ouvert mes les donnée s'affiche directement dans le tableau

 

[Staple1600]

Re

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

 

[Jacky67]

Re

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

Hello JM 🙂
Tant que hafida_all ne se décide pas à donner le code complet ou un classeur, la solution ne pourra pas être trouvée.

 

[Staple1600]

Bonsoir Jacky67

Bon, puisque tu es là à prendre le relais, ça va me permettre d'aller me coucher 😉

Je laisse donc ma question en suspens et m'en vais dormir du sommeil du juste.
😉

 

[Staple1600]

Re

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

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)

 

[Jacky67]

Re

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

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)

Re..
Heu!!
Moi, j'ai cru comprendre que le problème était une fermeture d'userform
Allez bonne nuit

 

[Staple1600]

Re

Peu importe, le problème, quand je peux pondre du VBA, je ponds. 😉
Soit ici la syntaxe éveillera la curiosité du demandeur (ou d'un passant dans le fil), soit ce bout de code disparaîtra dans les limbes d'XLD.
C'est pas grave 😉
Cela m'aurait permis de m'endormir en toute quiétude 😉

PS: Ma ponte du soir n'était là que pour montrer une autre syntaxe possible pour "injecter" les données d'un userform vers une feuille.
Ni plus, ni moins 😉

 

[hafida_all]

Re

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

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)

je ne sais pas comment vous remercier,votre idée est magnifique,merci à vous