Bonjour le forum,
J'ai encore un soucis avec les listbox.
Y aurait il un bon tuto super complet ?
Voila j'ai une technique avec les Additem qui va tres bien.
J'aimerais maintenant avoir mes heads pour chaque colonne.
J'utilise donc la technique Row, ça marche très bien pour un tableau cimplet mais ca ne va pas pour un ajout de ligne à ligne.
QQ peut m'aider ?
voici le code :
Merci
J'ai encore un soucis avec les listbox.
Y aurait il un bon tuto super complet ?
Voila j'ai une technique avec les Additem qui va tres bien.
J'aimerais maintenant avoir mes heads pour chaque colonne.
J'utilise donc la technique Row, ça marche très bien pour un tableau cimplet mais ca ne va pas pour un ajout de ligne à ligne.
QQ peut m'aider ?
voici le code :
Code:
If CGT2.Value <> "" Then
LST3.RowSource = Range(Sheets("MAT").Cells(1, 1), Sheets("MAT").Cells(1, 12)).Address
For i = 2 To 200
If CGT2.Value = Sheets("MAT").Cells(i, 6).Value Then
'LST3.RowSource = Range(Sheets("MAT").Cells(i, 1), Sheets("MAT").Cells(i, 12)).Address
LastInputRow = Cells(i, 1).End(xlDown).Row
End If
Next i
Else
If CGT2.Value = "" Then
Range(Sheets("MAT").Cells(2, 1), Sheets("MAT").Cells(2, 12)).Select
Range(Selection, Selection.End(xlDown)).Select
LST3.RowSource = Range(Selection, Selection.End(xlDown)).Address
Else
MsgBox "Sélection un groupe école ou prof"
End If
End If