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?
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.
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
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?
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
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)
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)
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
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)