'Essaie de placer en Label26 le n° de ligne de la fiche trouvée par l'UserForm ' par exemple 27 pour l’indication de $B$27
Private Sub ScrollBar1_Change()
On Error Resume Next
If ComboBox1 <> "" Then 'date
ScrollBar1.Max = dat.Count
With Sheets("feuil1")
Me.TextBox2.Value = .Range(dat.item(ScrollBar1.Value)).Value
For i = 3 To 12
Me.Controls("textbox" & i) = .Range(dat.item(ScrollBar1.Value)).Offset(0, i - 2).Value
Next i
Label26.Caption = dat.item(ScrollBar1.Value) 'indique par exemple $B$27
'***************************
Label26.Caption = Val(Right(dat.item(ScrollBar1.Value), Len(dat.item(ScrollBar1.Value)) - InStr("$", Replace(dat.item(ScrollBar1.Value), " ", "$", Len(dat.item(ScrollBar1.Value)) - Len(Replace(dat.item(ScrollBar1.Value), " ", ""))))))
'***************************
End With
End If
…