VBA
david
-
David -
David -
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
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
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
David
Merci, mais j'ai tout de même un problème L4 avec le .Range il me dit que c'est une référence incorrect !!
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
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
