range

[KNETUS]

Bonsoir

je me permet de vous poser une question qui me prend la tete depuis un moment !
j'ai beau chercher et chercher et je perd patience!

voila mon problème :

Worksheets("Adresse").Activate
Worksheets("Adresse").Cells(ListBox1.ListIndex, 2).Select
TextBox1.Value = la case selectionner

ce code est dans USerForm.Activate
TextBox1 est ans USerForm
listbox est dans une feuille nommée Facturation

et ca me produit une erreur 424 'objet requis'

merci pour votre aide

 

[kjin]

Re : range

bonsoir,

Private Sub UserForm_Activate()
SList = Sheets("Facturation").ListBox1.ListIndex + 1
TextBox1 = Sheets("Adresse").Cells(SList, 2).Value

End Sub

A+
kjin

 

[KNETUS]

Re : range

merci pour cette reponse rapide et valide !!
bonne journée!