Re : Mise a jour UserForm
Bonjour tout le monde
Salut Hervé
Je te remercie pour la derniere modif le scrollbar impeccable.
Sauf que ma BDD comporte 2500 lignes et 100 clients donc comme le scrollbar demarre a la premiere fiche pas pratique,j'ai fait des modifs pour lancer UserForm a la ligne selectionee et ca marche 😕
Sauf pour le WebBrowser,il y a t'il une solution ?
Voila ce que j'ai bricolé
Private Sub UserForm_Initialize()
Me.ScrollBar1.Min = 18
Me.ScrollBar1.Max = Feuil1.Range("c65536").End(xlUp).Row
ComboBox1.RowSource = ("liste!Machine") 'remplit la combobox Machine
Dim li As Integer
li = ActiveCell.Row
TextBox1.Value = Cells(li, 1).Value
TextBox2.Value = Cells(li, 2).Value
TextBox3.Value = Cells(li, 3).Value
TextBox4.Value = Cells(li, 4).Value
TextBox5.Value = Cells(li, 5).Value
TextBox6.Value = Cells(li, 6).Value
TextBox7.Value = Cells(li, 10).Value
TextBox8.Value = Cells(li, 8).Value
ComboBox1.Value = Cells(li, 13).Value
TextBox9.Value = Cells(li, 11).Value
TextBox10.Value = Cells(li, 19).Value
'WebBrowser1 = Cells(li, 20).Value
End Sub
Par contre avec le filtre automatique alors la je viens de m'apercevoir que cela ne marche pas du tout.
Dans le filtre fiches 1,2,5, l'Userform elle 1,2,3,4,5 alors avec 2500 lignes 😱 ( Je vais essayer autre chose.Faire une autre Userform)
DUR DUR le VBA
Merci encore et bonne journée