Userform ... Boutton validation

Re : Userform ... Boutton validation

Qu'est ce que vous avez mis dans le Redim au lieu de 19 ?
Notez que vous pourriez le replacer par LbxSélect.ColumnCount - 1 si vous avez pris soin de mettre ce ColumnCount à 7 dans la fenêtre de propriété.

Re : Userform ... Boutton validation

J'ai mis 8 car ca fait 8 renseignement non ? 1, 2, 3, 4, 15, 17, 18, 19

Re : Userform ... Boutton validation

L'erreur bloque si le code Ts(Ls, C) = Te(Le, Choose(C + 1, 2, 3, 4, 15, 17, 18, 19)) ou il met toujours erreur d'excécution 94

Re : Userform ... Boutton validation

Mettez On Error Resume Next devant, vous comprendrez peut être mieux en voyant ce qui vient ou pas dans la ListBox…
Avec le dernier code du poste #108, où vous n'avez pas prévu en premier la colonne 1, il faut 6 comme UBound(Ts, 2) et pas plus, car il n'y a que 7 numéros de colonnes spécifiés, le premier étant 2, derrière l'index C + 1 désiré. Donc ça plante pour C = 7 parce que 7 + 1 = 8.
[TABLE="class: grid, width: 600"]
[TR]
[TD="align: right"]0[/TD]
[TD="align: left"]C + 1 = 1[/TD]
[TD="align: left"]Choose(1, 2, 3, 4, 15, 17, 18, 19) = 2[/TD]
[TD="align: left"]Ts(Ls, 0) = Te(Le, 2)[/TD]
[/TR]
[TR]
[TD="align: right"]1[/TD]
[TD="align: left"]C + 1 = 2[/TD]
[TD="align: left"]Choose(2, 2, 3, 4, 15, 17, 18, 19) = 3[/TD]
[TD="align: left"]Ts(Ls, 1) = Te(Le, 3)[/TD]
[/TR]
[TR]
[TD="align: right"]2[/TD]
[TD="align: left"]C + 1 = 3[/TD]
[TD="align: left"]Choose(3, 2, 3, 4, 15, 17, 18, 19) = 4[/TD]
[TD="align: left"]Ts(Ls, 2) = Te(Le, 4)[/TD]
[/TR]
[TR]
[TD="align: right"]3[/TD]
[TD="align: left"]C + 1 = 4[/TD]
[TD="align: left"]Choose(4, 2, 3, 4, 15, 17, 18, 19) = 15[/TD]
[TD="align: left"]Ts(Ls, 3) = Te(Le, 15)[/TD]
[/TR]
[TR]
[TD="align: right"]4[/TD]
[TD="align: left"]C + 1 = 5[/TD]
[TD="align: left"]Choose(5, 2, 3, 4, 15, 17, 18, 19) = 17[/TD]
[TD="align: left"]Ts(Ls, 4) = Te(Le, 17)[/TD]
[/TR]
[TR]
[TD="align: right"]5[/TD]
[TD="align: left"]C + 1 = 6[/TD]
[TD="align: left"]Choose(6, 2, 3, 4, 15, 17, 18, 19) = 18[/TD]
[TD="align: left"]Ts(Ls, 5) = Te(Le, 18)[/TD]
[/TR]
[TR]
[TD="align: right"]6[/TD]
[TD="align: left"]C + 1 = 7[/TD]
[TD="align: left"]Choose(7, 2, 3, 4, 15, 17, 18, 19) = 19[/TD]
[TD="align: left"]Ts(Ls, 6) = Te(Le, 19)[/TD]
[/TR]
[TR]
[TD="align: right"]7[/TD]
[TD="align: left"]C + 1 = 8[/TD]
[TD="align: left"]Choose(8, 2, 3, 4, 15, 17, 18, 19) = Null[/TD]
[TD="align: left"]Plantage[/TD]
[/TR]
[/TABLE]
Finalement vous y arriverez peut être plus facilement avec une demi douzaine d'affectations individuelles telles qu'elles figurent dans la dernière colonne du tableau ci dessus. J'ai eu tort de croire que ça vous serait plus simple d'indiquer la liste des colonnes qu'il vous fallait à partir du second paramètre d'un Choose (vu que le premier c'est simplement l'index).

Re : Userform ... Boutton validation

Bonjour,

Merci pour votre aide ...

Je vais essayer ..

Du coup on peut reprendre le meme schema pour les resultats a affiché sur la feuille exel si je ne veux pas les 15 premier valeurs de la colonne mais plutot choisir comme on le fait pour la listbox ?

Cordialement,

Re : Userform ... Boutton validation

Je remet en piece joint l'exel est le code pour voir si vous trouvez l'erreur qui se produit ...

Merci,

Cordialement,

Re : Userform ... Boutton validation

Bonjour.
Il n'y a pas de '(C)' à mettre à la fin. Ça ce serait avec Array pas Choose. C'est soit Array(…)(C) soit Choose(C+1,…)
Ensuite ça plante en essayant de récupérer Te(Le, 15) alors que vous n'en avez initalisé que 8 colonnes à partir de la plage CL.PlgTablo ! J'ai vraiment l'impressiopn que vous ne chercher pas tu tout à réfléchir à la cohérence de ce que vous faites !

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

Re : Userform ... Boutton validation

Mais non, vous ne pouvez pas employer le Choose comme ça voyons !
Faites comme dans la CL_Résultat, sauf qu'il faut prendre Array(…)(C - 1). En effet la borne inférieure des dimensions des tableaux définis par Array c'est 0, comme pour les lignes et colonnes de début des propriétés List des ListBox et ComboBox, contrairement à ceux correspondant aux Value des Range, lesquels commencent à 1. Ou alors prenez Choose(C,… pour cette procédure, là c'est bon.