XL 2021 Vba Userform textbox.value

MNico1862

XLDnaute Nouveau
Bonjour,

Est-il possible de créer une classe pour dire que lorsque je clique sur un bouton toutes les textbox de 1 à 15 soit copier et coller sur ma "Feuil1"

Exemple :

feuil1.range("a1").value = Textbox1.value
feuil1.range("a2").value = Textbox2.value

Dans ce style :


Public WithEvents txt As MSForms.TextBox
Private Sub txt_Change()
With UserForm1
If txt = "Non" Or txt = "non" Then
.Controls(txt.Name).BackColor = &H8080FF
Else
.Controls(txt.Name).BackColor = &HEEF00
End If
If txt = "" Then .Controls(txt.Name).BackColor = &HFFFFFF
End With
End Sub