Re : Userform ... Boutton validation
Desole c'est moi j''ai envoye un mauvais dossier !!!
rivate Sub CL_Résultat(Lignes() As Long)
Dim Te(), Le&, Ts(), Ls&, C&
TLgn = Lignes
Te = CL.PlgTablo.Resize(, 19).Value
ReDim Ts(0 To UBound(TLgn) - 1, 0 To 7)
For Ls = 0 To UBound(Ts, 1)
Le = Lignes(Ls + 1)
For C = 0 To UBound(Ts, 2)
Ts(Ls, C) = Te(Le, Array(1, 2, 3, 4, 13, 15, 16, 17)(C))
Next C, Ls
Me.LbxSélect.List = Ts
CommandButton1.Enabled = False
End Sub
Mon code etant celui ci pour la liste box celui ci marche !!
Mais pour le resultat il ne marche pas :
Private Sub CommandButton1_Click()
Dim Te(), Le&, Ts(), Ls&, C&, N&, Cible As Range
Te = CL.PlgTablo.Resize(, 19).Value
ReDim Ts(1 To 500, 1 To Choose(1, 2, 3, 4, 13, 15, 16, 17))
For N = 0 To LbxSélect.ListCount - 1
If LbxSélect.Selected(N) Then
Le = TLgn(N + 1): Ls = Ls + 1
For C = 1 To Choose(1, 2, 3, 4, 13, 15, 16, 17): Ts(Ls, C) = Te(Le, C): Next C
End If: Next N
Set Cible = PlgUti(Feuil1.[A1])
Cible.Offset(Cible.Rows.Count).Resize(Ls, 8).Value = Ts
End Sub
Car sur la feuille exel il me marque bien les deux premiere colonne mais pour la suite il me mets #N/A