Bonsoir Le Forum,
J'en appelle aux spécialistes pour m'extraire en Label26 le n° de la ligne dans la Feuil1 pour la fiche trouvée par l'UserForm dans le fichier ci-joint.
Ma tentative de formule intégrée dans la partie ci-après n'aboutit à rien.
Je suppose qu'il doit y avoir une solution bien plus simple.
Comme l'UserForm1 est en ShowModal=False, y-a-t'il une solution dans les codes vba pour sélectionner et faire paraître au milieu d'écran la ligne sélectionnée par l'Userform :
- si Label26 affiche 27 - et non plus $B$27 - ce sera la ligne 27 de Feuil1 qui sera sélectionnée.
Merci pour votre précieuse aide.
Cordialement
Webperegrino
J'en appelle aux spécialistes pour m'extraire en Label26 le n° de la ligne dans la Feuil1 pour la fiche trouvée par l'UserForm dans le fichier ci-joint.
Ma tentative de formule intégrée dans la partie ci-après n'aboutit à rien.
Je suppose qu'il doit y avoir une solution bien plus simple.
Comme l'UserForm1 est en ShowModal=False, y-a-t'il une solution dans les codes vba pour sélectionner et faire paraître au milieu d'écran la ligne sélectionnée par l'Userform :
- si Label26 affiche 27 - et non plus $B$27 - ce sera la ligne 27 de Feuil1 qui sera sélectionnée.
Merci pour votre précieuse aide.
Cordialement
Webperegrino
VB:
'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
…
Pièces jointes
Dernière édition: