Re Bonjour,
Oui t'as raison...
Mais cela tombe bien, peux-tu m'expliquer un peu tes lignes de code ? car si je fais encore des modifs et si je ne comprends pas, je vais etre obliger de te solliciter une nouvelle fois..
A+ Merci!
Hervé
li = .Range("A" & Rows.Count).End(3).Row 'A' ' End(3)?
If Cbxtransport.ListIndex <> -1 Then
Set cel = Feuil4.Columns(1).Find(Cbxtransport, , , xlWhole) ' Feuil 4 ?base chiffrage ?
If Not cel Is Nothing Then lig = cel.Row Else Exit Sub
End If
If Cbxtypetransport.ListIndex <> -1 Then
Set cel = Feuil4.Rows(99).Find(Cbxtypetransport, , , xlWhole) 'Rows(99)?
If Not cel Is Nothing Then col = cel.Column Else Exit Sub
End If
.Cells(li, 19) = Feuil4.Cells(lig, col) ' colonne 19 Feuil4 ? base chiffrage ?
Private Sub UserForm_Initialize()
Dim aa, i&
aa = Feuil4.Range("A23:B33") ' base chiffrage ?
For i = 1 To UBound(aa)
aa(i, 1) = Format(aa(i, 1), "0.00%")
Next i
Cbxpreparation.List = aa
Cbxpreparation.ListRows = 20 ' 20 ?