VBA
Bonjour,
voila, je débute totalement en VBA, et je ne sais pas faire grand chose. J'ai un projet, c'est à dire, un userform avec dessus des textbox, combobox. Et j'aimerai qu'en écrivant dans la textbox cela envoi le texte ou la valeur dans ma feuille de calcul excel, quant a la combobox, j'aimerai sélectionner une liste de choix déja opérationnelle.
Comment faire ?
Merci
voila, je débute totalement en VBA, et je ne sais pas faire grand chose. J'ai un projet, c'est à dire, un userform avec dessus des textbox, combobox. Et j'aimerai qu'en écrivant dans la textbox cela envoi le texte ou la valeur dans ma feuille de calcul excel, quant a la combobox, j'aimerai sélectionner une liste de choix déja opérationnelle.
Comment faire ?
Merci
Configuration: Windows Vista Firefox 3.0.15
3 réponses
-
salut mec,
Private Sub lenomdetonbouton_Click()
Dim iRow As Long
With Sheets("lenomdetafeuil")
iRow = .Range("A65536").End(xlUp).Offset(1, 0).Row
.Cells(iRow, 1).Value = Me.lenomdetontextbox.Value
End With
iRow = .Range("A65536").End(xlUp).Offset(1, 0).Row
.Cells(iRow, 1).Value = Me.lenomdetontextbox.Value
End Sub
Private Sub UserForm_Initialize()
lenomdetoncombobox.List() = Range("lenomdelapalge").Value
End Sub -
désolé mec il yavait répétion de ligne.
Private Sub lenomdetonbouton_Click()
Dim iRow As Long
With Sheets("lenomdetafeuil")
iRow = .Range("A65536").End(xlUp).Offset(1, 0).Row
.Cells(iRow, 1).Value = Me.lenomdetontextbox.Value
End With
End Sub
Private Sub UserForm_Initialize()
lenomdetoncombobox.List() = Range("lenomdelapalge").Value
End Sub -
Pourrais-tu m'expliquer un peut ta démarche stp !!
le range("AX") c'est pour la colonne avec la ligne mais la suite je ne comprends pas
