Bonjour à tous,
Bonjour ,
Merci ça marche très bien
mais l'onglet liste qui se crée la ligne du du bas ne se copie pas pourtant elle existe dans la l'onglet autorisation .
Pour avoir la ligne du bas...
Un correction mineur dans :
Private Sub UserForm_Initialize()
Dim i&, lig&, col&, fin&
With Feuil3
fin = .Range("A" & Rows.Count).End(3).Row
For i = 9 To fin Step 51
L1.AddItem .Cells(i, 3): L1.List(L1.ListCount - 1, 1) = .Cells(i + 3, 6)
L1.List(L1.ListCount - 1, 2) = i - 7
L1.List(L1.ListCount - 1, 3) = i + 45 ' << 45 au lieu de 43 pour avoir la ligne du bas
Next i
End With
L1.ColumnCount = 2
End Sub
ric