VBA
Résolu
Usgpa
-
Gord21 Messages postés 918 Date d'inscription Statut Membre Dernière intervention -
Gord21 Messages postés 918 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je souhaiterais savoir si vous trouvez l'erreur dans cette procédure :
Private Sub UserForm_Initialize()
TextBox1 = UserForm5.ComboBox1.Value
Dim q As Integer
Dim cherche As Long
cherche = TextBox1.Value
q = Sheets("Archive Cessions").Cells.Find(what:=cherche, LookIn:=xlValues, Lookat:=xlWhole, searchorder:=xlNext).Row
TextBox2 = Sheets("Archive Cessions").Range("D", q)
TextBox3 = Sheets("Archive Cessions").Range("B", q)
TextBox4 = Sheets("Archive Cessions").Range("H", q)
TextBox5 = Sheets("Archive Cessions").Range("F", q)
L'userform en question refuse de s'afficher pour une erreur .
Merci d'avance..
Je souhaiterais savoir si vous trouvez l'erreur dans cette procédure :
Private Sub UserForm_Initialize()
TextBox1 = UserForm5.ComboBox1.Value
Dim q As Integer
Dim cherche As Long
cherche = TextBox1.Value
q = Sheets("Archive Cessions").Cells.Find(what:=cherche, LookIn:=xlValues, Lookat:=xlWhole, searchorder:=xlNext).Row
TextBox2 = Sheets("Archive Cessions").Range("D", q)
TextBox3 = Sheets("Archive Cessions").Range("B", q)
TextBox4 = Sheets("Archive Cessions").Range("H", q)
TextBox5 = Sheets("Archive Cessions").Range("F", q)
L'userform en question refuse de s'afficher pour une erreur .
Merci d'avance..