Bonjour,

Il s'agit de réaliser une action toute bête pour lequel je planche depuis un moment et je n'obtient que des erreurs.

Pour comprendre j'ai un form dans lequel la saisi d'un textbox ne se fait que par une liste . J'appuie sur un bouton qui génère ce code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub boutmodca_Click()
 
deb = 5
fin = Sheets("ca").Range("f3").Value + 5
 
Load AJOUTER
 
AJOUTER.titre.Caption = "SELECTION DU CHARGES D AFFAIRES"
AJOUTER.ListBox1.RowSource = ("ca!a" & deb & ":b" & fin)
AJOUTER.boutajout.Visible = False
 
AJOUTER.Show vbModal
 
DOSSIER.saisica.Value = AJOUTER.ListBox1.List(ListBox1.ListIndex, 0) & " " & AJOUTER.ListBox1.List(ListBox1.ListIndex, 1)
Unload AJOUTER
 
End Sub
Le but pour ce textbox est de saisir nom + espace + prénom de la listbox dans un autre form . Dans la listbox le nom est en colonne 1 et le prénom en colonne 2.

Pour cet essai j'obtiens l'erreur "erreurr d'éxécution 424, objet requis"
J'ai trouvé cette formulation dans le tutoriel du site.
Il semble être incomplet.

Avez vous une idée concernant la ligne DOSSIER.saisica.Value = AJOUTER.ListBox1.List(ListBox1.ListIndex, 0) & " " & AJOUTER.ListBox1.List(ListBox1.ListIndex, 1) ?


Merci pour votre aide