Private Sub f_b_ok_Click()
Dim i As Long, Lig As Long
Columns(1).ClearContents
Lig = 1
For i = 1 To 8
If Me("txt" & i) <> "" Then
Cells(Lig, 1) = Me("txt" & i)
Lig = Lig + 1
End If
Next
Unload Me
End Sub
Private Sub f_b_ok_Click()
Dim i
For i = 1 To 8
Cells(i, 1) = Me("txt" & i)
Next
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim i
For i = 1 To 8
Me("txt" & i) = Cells(i, 1)
Next
End Sub
Bonjour Rouge merci pour ton intervention, j'ai toutefois pris le code de Roblochon, car lorsque j'ouvre mon Userform il affiche le contenu de mes celules dansn chaque TextBox. Encore merci de ton aide cela m'aide à comprendre un peut plus le VBA.Bonjour,
Remplacez la macro "Private Sub f_b_ok_Click()", par celle-ci:
VB:Private Sub f_b_ok_Click() Dim i As Long, Lig As Long Columns(1).ClearContents Lig = 1 For i = 1 To 8 If Me("txt" & i) <> "" Then Cells(Lig, 1) = Me("txt" & i) Lig = Lig + 1 End If Next Unload Me End Sub
Cdlt
Bonjour Roblochon, merci pour ton aide. Dsl pour l' " User ", mais je pensais que je pouvais écrire en abréviation, mais il est vrai qu'en y pensant maintenant celui-ci signifie utilisateur rien à voir. Bonne journéeBonjour,
Un 'user' est un utilisateur pas un UserForm.
VB:Private Sub f_b_ok_Click() Dim i For i = 1 To 8 Cells(i, 1) = Me("txt" & i) Next Unload Me End Sub Private Sub UserForm_Initialize() Dim i For i = 1 To 8 Me("txt" & i) = Cells(i, 1) Next End Sub
Bonne journée
Ex Set Ws=Worksheet("NomdetaPage")
For i = 1 To 8
Me("txt" & i) =Ws.Cells(i, 1)
Next
End with