Discussion :

[chrisaccess]

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

[eric4459]

Bonjour,
Commences par définir toutes tes variables

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim xyz As Range, XYZ As Integer

et ajoute en haut de ton module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim WKS As Worksheet

et que dans ton code tu écris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[chrisaccess]

Bonjour Eric,

J'avais déclaré les variables mais sans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

option explicit

sur le module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

bonsoir,

sur qu'elle ligne l'erreur ?

c'est quoi "DOSSIER" ?

[chrisaccess]

Bonsoir,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub boutmodca_Click()

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

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

[chrisaccess]

PAS MAL CELLE LA D ERREUR

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

ce code fonctionne :

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 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 !!!