Récupérer la valeur de 2 colonnes de la ligne sélectionnée dans une ListBox

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:

---

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

Bonjour,
Commences par définir toutes tes variables

Code:

---

Dim xyz As Range, XYZ As Integer

---

et ajoute en haut de ton module

Code:

---

Option Explicit

---

C'est un peu contraignant au début mais on s'y fait vite et cela te facilite grandement la tache pour trouver les erreurs dans ton code.
Par exemple si tu écris

Code:

---

Dim WKS As Worksheet

---

et que dans ton code tu écris

Code:

---

WSK.Range

---

tu aura un message d'erreur.
Comme tu seras certain d'avoir déclaré ta variable, tu pourras plus rapidement trouver la faute de syntaxe.
Eric

Bonjour Eric,

J'avais déclaré les variables mais sans

Code:

---

option explicit

---

sur le module

Code:

---

1 2 3 4 5 6 7

Option Explicit   Dim deb As Integer Dim fin As Integer Dim li As Integer Dim numerocli As Integer Dim i As Integer

---

Un problème de variable non définie apparaît maintenant avec le rajout de option explicit.
Seul cette sub ne fonctionne pas et je ne voit pas dans mon code une autre variable
là je câle !!!!:(:(

merci pour ton aide

christophe

bonsoir,

sur qu'elle ligne l'erreur ?

c'est quoi "DOSSIER" ?

Bonsoir,

Depuis que j'ai rajouté option explicit il m'indique le titre sub

Code:

---

Private Sub boutmodca_Click()

---

Au début de cette discussion le problème était sur cette ligne

Code:

---

DOSSIER.saisica.Value = AJOUTER.ListBox1.List(ListBox1.ListIndex, 0) & " " & AJOUTER.ListBox1.List(ListBox1.ListIndex, 1)

---

"AJOUTER" est le form qui a la listbox
"DOSSIER" est le form qui contient le textbox "saisieca" destinataire de la compilation que je veux faire "nom prénom"

merci pour votre aide

et ListBox1 ? pouquoi quelque-fois tu précise la form concernée et d'autre-fois non ?

PAS MAL CELLE LA D ERREUR :lol:

Celà m'apprendra à recopier !!!!!!

ce code fonctionne :

Code:

---

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 CHARGE D AFFAIRES" AJOUTER.ListBox1.RowSource = ("ca!a" & deb & ":b" & fin) AJOUTER.boutajout.Visible = False   AJOUTER.Show vbModal   DOSSIER.saisica.Value = AJOUTER.ListBox1.List(AJOUTER.ListBox1.ListIndex, 0) & " " & AJOUTER.ListBox1.List(AJOUTER.ListBox1.ListIndex, 1) Unload AJOUTER   End Sub

---

Un grand merci bbil !!! ;)