Aide a un debutant

Question

Bonjour &#224; tous, je suis debutant et j'ai un petit probleme avec vba excel.

Pour mon stage je dois entre autres creer des boutons qui appeleront des userform avec une textbox. l'utilisateur doit inscrire un commentaire et celui ci doit ce mettre dans une cellule. jusque ici tout va bien ...
Le probleme vient du fait que je dois creer plusieur boutons qui appelrons le meme userform mais le contemu de la textbox doit s'afficher dans une cellule differente en fonction du bouton cliqu&#233; ...
J'aimerais savoir si quelqun a deja ete confronter a ce genre de pbm, avec si possible une reponse.

Merci a tous

linasteph · Answer

tu pourrais utiliser une varaible globale dans laquelle tu stockerais lors du clic sur le bouton le type d'appel

ensuite lorsqu'il remplira la textbox et &#224; partir de la valeur stock&#233;e
dans la variable tu sauras dans quelle cellule mettre la valeur

ex:



dim nTyp as integer



sub bouton1_click

    ntype = 1

end sub



sub bouton1_click

    ntype = 2


end sub

....



ensuite dans la userform lorsque tu dois mettre la valeur dans la cellule tu fais le test

select case ntype

    case 1

        cellule1 = textbox

    case 2

        cellule2 = textbox

    case ....

end select

cs_ITALIA · Answer

Donnes ton Code

It@li@

chaudier37 · Answer

Bonjour,
voilà la solution que j'ai trouvé... peut être que vous allez trouver votre solution là dedans :
exemple  :
important : Il faut mettre un label dans le forumulaire et si vous ne voulez pas qu'il apparaisse vous le mettez en non visible.
Private Sub CommandButton1_Click()
UserForm1.Label1 = "1"
UserForm1.TextBox1 = ""
UserForm1.Show
End Sub


Private Sub CommandButton2_Click()
UserForm1.Label1 = "2"
UserForm1.TextBox1 = ""
UserForm1.Show
End Sub


Private Sub CommandButton3_Click()
UserForm1.Label1 = "3"
UserForm1.TextBox1 = ""
UserForm1.Show
End Sub


Private Sub CommandButton4_Click()
UserForm1.Label1 = "4"
UserForm1.TextBox1 = ""
UserForm1.Show
End Sub

et dans le userform vous mettez un bouton avec ces procédures :
Private Sub CommandButton1_Click()If UserForm1.Label1 "1" Then Range("D4") TextBox1.ValueIf UserForm1.Label1 "2" Then Range("D9") TextBox1.ValueIf UserForm1.Label1 "3" Then Range("D14") TextBox1.ValueIf UserForm1.Label1 "4" Then Range("D19") TextBox1.Value
Hide
End Sub

Aide a un debutant

3 réponses

Discussions similaires