XL 2019 Remplir dans une ligne

[Yann71]

Bonjour le forum.

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.

 

[Rouge]

Bonjour,

Remplacez la macro "Private Sub f_b_ok_Click()", par celle-ci:

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

 

[Hasco]

Bonjour,

Un 'user' est un utilisateur pas un UserForm.

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

 

[Yann71]

Bonjour,

Remplacez la macro "Private Sub f_b_ok_Click()", par celle-ci:

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 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.

 

[Yann71]

Bonjour,

Un 'user' est un utilisateur pas un UserForm.

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

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

 

[Yann71]

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.

 

[ChTi160]

Bonjour Yann
Il te suffit de cible la page source

Ex Set Ws=Worksheet("NomdetaPage")
For i = 1 To 8
        Me("txt" & i) =Ws.Cells(i, 1) 
    Next
End with

bonne fin de Journée
jean marie