Remplissage lignes à partir d'1 ligne via userform

[ccharvet1]

Bonsoir,

J'aurais besoin d'une petite aide pour le remplissage d'une feuille.

Comment faire pour remplir depuis source vers destination à partir de la ligne 6, donc en A6 avec ce qui suit ?

Private Sub CmdApercu_Click()
Dim X As Long, Y As Integer, Z As Long
Dim Tablo()
    Tablo = Array("A", "B", "I", "K", "N")
    With Feuil26
        .Range("A2:N65536").ClearContents
        For X = 0 To Me.appel.ListCount - 1
            Z = Me.appel.List(X, 4)
            For Y = 0 To UBound(Tablo)
                .Cells(X + 2, Y + 1) = Feuil23.Cells(Z, Tablo(Y))
            Next
        Next
Me.Hide
.PrintPreview
Me.Show
End With
End Sub

Merci pour le coup de pouce

 

[Pierrot93]

Re : Remplissage lignes à partir d'1 ligne via userform

Bonjour,

pas tout compris moi.... et tu bloques où dans ce code ?? sans un petit fichier pour tester, pas facile de t'aider...

bonne journée
@+

 

[ccharvet1]

Re : Remplissage lignes à partir d'1 ligne via userform

Bonjour Pierrot93,

En faites, je voudrais démarrer a partir de la ligne 6 hors avec ce code je démarre sur la ligne 2. J'ai modifié comme ceci

        .Range("A2:N65536").ClearContents

par

        .Range("A6:N65536").ClearContents

ça ne fonctionne pas, le remplissage de la feuille commence en A2

Merci

 

[Pierrot93]

Re : Remplissage lignes à partir d'1 ligne via userform

Re,

peut être en modifiant cette ligne :

.Cells(X + 2, Y + 1) = Feuil23.Cells(Z, Tablo(Y))

comme ceci :

.Cells(X + 6, Y + 1) = Feuil23.Cells(Z, Tablo(Y))

 

[ccharvet1]

Re : Remplissage lignes à partir d'1 ligne via userform

re,

Merci Pierrot93, ça marche comme je le souhaite.