J'ai un user qui me permet de remplir des cellules dans le sens horizontal. Ce que je recherche, c'est qu'il remplisse dans la colonne "A".
Merci d'avance.
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
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
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
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.
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 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ée
Je reviens, car je m'aperçois que j'ouvre mon UserForm sur la page 1 et que je souhaite modifier sur la page 2, quelle serait la modificatio à apporter au code.