Transfert des données d'un userform

Dull

XLDnaute Barbatruc

• 8 Juin 2006

• #2

Salut Mathou, le Forum

Inspire toi du fichier ci-joint [file name=Mathou.zip size=10587]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Mathou.zip[/file]

 

Pièces jointes

• Mathou.zip

  10.3 KB · Affichages: 90

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 8 Juin 2006

• #3

Bonjour

En complément avec Dull

Alimente tes 30 cell A1 à A30 de tes 30 textbox

Dim a
For a = 1 To 30
Range('A' & a).Value = Me.Controls('textbox' & a).Value
Next

A+

Temjeh


Message édité par: temjeh, à: 08/06/2006 12:23

 

Vote positif 0 Vote négatif

JC de Lorient

XLDnaute Impliqué

• 8 Juin 2006

• #4

Bonjour a tous
autre méthode pour afficher les lignes les unes en dessous des autres
Feuille1 et démarrage en colonne A

Private Sub CommandButton1_Click()
Dim a, b As Integer
a = Sheets('Feuil1').Range('A65536').End(xlUp).Row + 1
For b = 1 To 30
Cells(a, b) = Controls('TextBox' & b).Value
Next
Unload Me
End Sub

 

Vote positif 0 Vote négatif

M

Mathou

Guest

• 8 Juin 2006

• #5

Merci beaucoup pour vos réponses, cela fonctionne très bien!
En revanche un autre problème,
J'ai 3 combobox pour faire une date, ainsi pour mettre le résultat de ces 3 combobox dans une cellule, j'applique la formule suivante:
Range('Q' & num).Value = DateSerial(ComboBox3, ComboBox4, ComboBox5)

Or cela ne fonctionne pas...Quel est le problème?

Merci

 

Vote positif 0 Vote négatif

M

Mathou

Guest

• 8 Juin 2006

• #6

De même apres avoir rempli les cellules a partir d'un userform, comment faire l'opération inverse, c'est a dire a partir du moment ou on a sélectionné la cellule 'Bx' dans une combobox, faire apparaitre dans les autres textbox les renseignements de la ligne x?

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 8 Juin 2006

• #7

Re Mathou,

essaye ça

Code:

Range('Q' & num).Value = DateSerial(ComboBox3.Value & ' ' & ComboBox4.Value & ' ' & ComboBox5.Value)

 

Vote positif 0 Vote négatif

M

Mathou

Guest

• 8 Juin 2006

• #8

Merci Dull, mais en esayant ta formule, un MsgBox m'indique Erreur de compilation argument non facultatif, et me souligne DateSerial.
Comment faire?

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 8 Juin 2006

• #9

Re Mathou,

Peux tu nous faire parvenir un exemple de ton fichier sans données confidentiels?

Plus pratique 😱

 

Vote positif 0 Vote négatif

M

Mathou

Guest

• 8 Juin 2006

• #10

Voilà mon fichier, il fait 60Ko, j'espère que ça va passer!
Mais par contre il y a plusieurs choses qui ne fonctionnent pas.

 

Vote positif 0 Vote négatif

M

Mathou

Guest

• 8 Juin 2006

• #11

Ca passe pas, j'essaye de réduire et je vous le renvoie.
Merci

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 8 Juin 2006

• #12

Re Mathou,

Trop gros :whistle: fait un régime de 10 Ko et ça devrai aller. Sinon met la procedure où le code est incriminé

Code:

Private Sub Tamacro()
...
End sub

 

Vote positif 0 Vote négatif

M

Mathou

Guest

• 8 Juin 2006

• #13

Voilà j'ai réduit au maximum,
Merci pour votre aide, ça va beaucoup m'aider [file name=Exemple_Mat.zip size=45824]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Exemple_Mat.zip[/file]

 

Pièces jointes

• Exemple_Mat.zip

  44.8 KB · Affichages: 63
• Exemple_Mat.zip

  44.8 KB · Affichages: 65
• Exemple_Mat.zip

  44.8 KB · Affichages: 65

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 8 Juin 2006

• #14

Re Mathou,

Pour une UàG s'en est une 😛inch:

Ecoute, je te promet rien. Je vais voir ce que je peut faire mais il faudrait revoir la structure de tes UserForms. A tu vraiment besoin de toutes ces Combobox pour pratiquement la même chose?

Enfin on va voir


PS: j'en profite pour Saluer Temjeh et JC 😱

 

Vote positif 0 Vote négatif

M

Mathou

Guest

• 8 Juin 2006

• #15

:woohoo:
Merci puissance 100000,
Si tu arrives à faire fonctionner ce petit programme, je ne sais pas comment je pourrai te remercier, en tout cas je te promet que tu vas me rendre un immense service!!!!!
Est ce que je peux te contacter par Message privé?

 

Vote positif 0 Vote négatif