Attribuer une valeur aux TextBox d'u UF

Question

Je viens de nouveau faire appelle à vos lumières, je souhaite affecter à des TextBox dans un UserForm les valeurs d'une base de données. j'ai réduit au maximum mon programme , mais il fait toujours 350 Ko Je vous colle le code concerné Sub Recupere() Dim Ligne As Long Dim Répertoire As String Dim F2 As String Set F2 = Sheets("Liste travaux") ' varF2.Activate If Me.ComboBox3.ListIndex = -1 Then Exit Sub 'CBB =CommandBox Ligne = Me.ComboBox3.ListIndex + 1 '1er nom ligne 5 Me.ComboBox3 = Ws.Range("A" & Ligne) ' TB = TextBox Me.TextBox1 = F2.Range("B" & Ligne) Me.TextBox2 = F2.Range("C" & Ligne) ' Me.TextBox3 = F2.Range("D" & Ligne) Me.TextBox4 = F2.Range("E" & Ligne) Me.TextBox5 = F2.Range("F" & Ligne) Me.TextBox6 = F2.Range("G" & Ligne) Me.TextBox7 = F2.Range("H" & Ligne) Me.ComboBox4 = F1.Range("I" & Ligne) Me.TextBox8 = F2.Range("J" & Ligne) Me.TextBox9 = F2.Range("K" & Ligne) Me.TextBox10 = F2.Range("L" & Ligne) Me.TextBox11 = F2.Range("M" & Ligne) Me.DTPicker1 = F2.Range("N" & Ligne) Me.DTPicker2 = F2.Range("O" & Ligne) Me.ComboBox5 = F2.Range("P" & Ligne) Me.TextBox12 = F2.Range("Q" & Ligne) Me.TextBox13 = F2.Range("R" & Ligne) Me.TextBox14 = F2.Range("S" & Ligne) Me.TextBox15 = F2.Range("T" & Ligne) Me.TextBox16 = F2.Range("U" & Ligne) Me.TextBox17 = F2.Range("V" & Ligne) Me.TextBox18 = F2.Range("W" & Ligne) ' Me.TextBox1 = Ws.Range("R" & Ligne) le message qui s'affiche : Objet requis F2 et surligné en jaune "Recupere" Merci de vous penchez sur mon problème et bonne soirée à tous. Pierrot...

cousinhub · Answer

Vite fait, comme ça, mais ne vaut-il pas mieux déclarer convenablement ta variable "F2"? Tu l'as déclaré en "String", alors qu'en "WorkSheet", c'eût été plus correct, il me semble... Bon courage...