VRAIMENT URGENT!!! Importer les données d'un formulaire dans une feuille excel

Question

bonjour &#224; tous,
j'ai cr&#233;er un formulaire d'inscription avec un UserForm,et quand je clik sur mon bouton OK ca doit importer les donn&#233;es(nom, prenom,adresse,etc..) dans la feuille CLIENT et quand je veux enregistrer un autre client ca doit l'enregistrer en dessous et ainsi de suite ms j'y arive pas,ca buggggg tjs.Kelkun a une id&#233;e svp?merci

ScSami · Answer

Ben dit comme &#231;a, comment veux-tu qu'on puisse t'aider ??? En devinant
ton code ??? En piratant ton ordi ??? Non, franchement, dit nous
comment t'aider parce que l&#224;, le probl&#232;me n'est pas celui qu'on croit!!!



Tient, moi aussi j'ai un probl&#232;me pour ceux qui auraient des facult&#233;s de voyance :

J'ai un ordinateur et j'ai fait un programme... mais voil&#224;, il bug et
je sais pas quoi faire!!! Est-ce que quelqu'un peut me dire d'o&#249; &#231;a
vient ???





Bref, pour ton truc, d&#233;j&#224;, il te faudra une routine de d&#233;tection des
&#233;lements afin de d&#233;terminer l'emplacement du dernier. Il te faudra donc
&#233;galement une variable pour stocker cette information. De plus, il
faudra pr&#233;voir le cas o&#249; l'utilisateur saisira manuellement un champ et
donc, verrifier ce champ (ou alors bloquer ce genre de manipes via un
verrouillage de feuille). Il te faudra donc, in&#233;vitablement, mettre en
place un syst&#232;me de gestion d'erreur avec des messages. Pour &#231;a, qu'un
seul conseil, cr&#233;er un modul d&#233;di&#233; &#224; ces fonctions. Il faut donc
syst&#233;matiser le traitement des erreurs en ne g&#233;rant leurs messages que
via une seule fonction (dans ce module donc) via les tableaux
optionnels de param&#232;tres... Ainsi on en aura une gestion fine jusqu'aux
boutons &#224; afficher et le r&#233;sultat &#224; renvoyer...



Voil&#224;, je ne peux absolument pas t'en dire plus avec autant
d'informations &#224; notre disposition!!! Remarque que je suis quand m&#234;me
un mec bal&#232;ze d'arriver &#224; te fournir autant d'informations sur cette
"base" (si c'est bien le bon terme &#224; employer !!!).





Enjoy, et soit plus pr&#233;cis la prochaine fois quitte &#224; mettre un peu de ton code dans ton post de forum (UN PEU J'AI DIT!!! PAS TOUT LE CODE!!!).





(Si un message vous convient, cliquez sur le bouton juste en dessous...)

jpleroisse · Answer

Bonjour,

Ce code commence &#224; placer le texte &#224; partir de la 2 &#232;me ligne(A2)

Tu peux nommer tes TexBox, sans modifier la formule d'&#233;ffacement



Private Sub CommandButton1_Click()

Dim En_Colone, En_Ligne

Range("A2").Select

En_Colone = ActiveCell.Column

En_Ligne = ActiveCell.Row + 1

While Not IsEmpty(ActiveCell.Value)

Cells(En_Ligne, En_Colone).Activate

En_Ligne = En_Ligne + 1

Wend

    ActiveCell.Offset(0, 0).Range("A1").Select

    ActiveCell.Value = TextBox1

    ActiveCell.Offset(0, 1).Range("A1").Select

    ActiveCell.Value = TextBox2

    ActiveCell.Offset(0, 2).Range("A1").Select

    ActiveCell.Value = TextBox3

    ActiveCell.Offset(0, 3).Range("A1").Select

    ActiveCell.Value = TextBox4

'Efface les textBox pour une prochaine entr&#233;e.

  Dim obj As Object

        For Each obj In Me.Controls

        If TypeName(obj) = "TextBox" Then

         obj.Text = ""

        End If

Next

End Sub



jpleroisse

VRAIMENT URGENT!!! Importer les données d'un formulaire dans une feuille excel

2 réponses

Discussions similaires