XL 2021 Vba Userform textbox.value

[MNico1862]

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

 

[patricktoulon]

bonjour @MNico1862
je crois tu confond un peu tou là
ton besoins c'est quoi
retranscrire les valeurs de tes 15 textboxs dans la feuille ?
si c'est cela ce n'est pas une classe qui te faut

 

[job75]

Bonsoir,

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"

Dim i
For i = 1 to 15
    Feuil1.Range("A" & i) = Controls("Textbox" & i)
Next

Pas compris "Dans ce style".

A+

 

[MNico1862]

Bonsoir,

Dim i
For i = 1 to 15
    Feuil1.Range("A" & i) = Controls("Textbox" & i)
Next

Pas compris "Dans ce style".

A+

J'essaye ce soir merci