re le forum , paritec
J'ai vraiment besoin d'aide pour ne pas faire apparaître les 2 dernières colonnes dans L1
With Feuil4
aa = .Range("A3:S" & .Range("A" & Rows.Count).End(3).Row)
End With
For i = 1 To UBound(aa)
aa(i, UBound(aa, 2)) = i + 2
Next i
y = 1
ReDim bb(1 To UBound(aa, 2), 1 To y)
If ref <> "" Then
For i = 1 To UBound(aa)
If aa(i, 2) = ref Then
ReDim Preserve bb(1 To UBound(aa, 2), 1 To y)
For a = 3 To UBound(aa, 2)
bb(a - 2, y) = aa(i, a)
Next a
y = y + 1
End If
Next i
If y = 1 Then Exit Sub
If y = 2 Then
ReDim cc(1 To 1, 1 To UBound(aa, 2) - 2)
For a = 1 To UBound(cc, 2)
cc(1, a) = bb(a, 1)
Next a
L1.List = cc
Else
L1.List = Application.Transpose(bb)
End If
End If
L1.ColumnCount = 15
voila le code concerné et je me demandais aussi pourquoi , " L1.ColumnCount = 15" c'est pas 14 et si je commence avec un zero c'est 13.
Et serieux je comprends rien dans ce code !!!
et autre chose pour envoyer mon total HT dans BD_Devis je fait comment ?