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 ?
Merci pour le coup de pouce
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 ?
Code:
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
Dernière édition: