Discussion :

[casefayere]

Bonjour à tous,

J'avais déjà posé cette question mais je ne m'en sors pas.
j'ai une procédure qui marche parfaitement avec office 2003 mais qui plante toujours avec of 2007

à l'évenement click d'une listbox je me retrouve avec le message suivant :
erreur d'exécution '-2147417848(80010108)'
la méthode 'range' de l'objet '_worksheet' a échoué
je n'arrive pas à m'en sortir

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub REFCHOISIE_Click()
Dim z
REFCHOISIE.BoundColumn = 2
d = Worksheets("references").Range("a2").End(xlDown).Offset(0, 0).Row
e = Worksheets("categorie").Range("a2").End(xlDown).Offset(0, 0).Row
f = Worksheets("fournisseurs").Range("a2").End(xlDown).Offset(0, 0).Row
If d >= e Then
y = d
Else
y = e
If y < f Then
y = f
End If
End If
For x = 2 To y
If REFCHOISIE.Column(0) = Worksheets("categorie").Range("a" & x) Then
catachanger.ListIndex = x - 2
Exit For
End If
Next x
For z = 2 To y
If REFCHOISIE.Column(4) = Worksheets("fournisseurs").Range("a" & z) Then
ListBoxfournis.ListIndex = z - 2
Exit For
End If
Next z
designachanger = REFCHOISIE.Column(1)
puachanger = REFCHOISIE.Column(2)
SAISIETVAmodif = REFCHOISIE.Column(3)
TextBoxCOEFF = REFCHOISIE.Column(5)
TextBoxttc = REFCHOISIE.Column(6)
TextBoxSTOCK = REFCHOISIE.Column(7)
End Sub

Il bloque dès la première ligne mais j'ai l'impression que mon histoire est bizarre.
en retapant ligne par ligne et en vérifiant au fur et à mesure le programme ne buggait plus sauf arrivé à ce morceau de code

Code :

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

1
2
3
4
5
6
For z = 2 To y
If REFCHOISIE.Column(4) = Worksheets("fournisseurs").Range("a" & z) Then
ListBoxfournis.ListIndex = z - 2
Exit For
End If
Next z

là le meme message d'erreur réapparait

Merci d'avance de vos réponses

[mayekeul]

Aie pas bon ça!

essaye tjs ça pour voir

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub REFCHOISIE_Click()
Dim z
REFCHOISIE.BoundColumn = 2
d = Sheets("references").Range("a2").End(xlDown).Offset(0, 0).Row
e = Sheets("categorie").Range("a2").End(xlDown).Offset(0, 0).Row
f = Sheets("fournisseurs").Range("a2").End(xlDown).Offset(0, 0).Row
If d >= e Then
y = d
Else
y = e
If y < f Then
y = f
End If
End If
For x = 2 To y
If REFCHOISIE.Column(0) = Sheets("categorie").Range("a" & x) Then
catachanger.ListIndex = x - 2
Exit For
End If
Next x
For z = 2 To y
If REFCHOISIE.Column(4) = Sheets("fournisseurs").Range("a" & z) Then
ListBoxfournis.ListIndex = z - 2
Exit For
End If
Next z
designachanger = REFCHOISIE.Column(1)
puachanger = REFCHOISIE.Column(2)
SAISIETVAmodif = REFCHOISIE.Column(3)
TextBoxCOEFF = REFCHOISIE.Column(5)
TextBoxttc = REFCHOISIE.Column(6)
TextBoxSTOCK = REFCHOISIE.Column(7)
End Sub

[casefayere]

apparemment ce que tu me propose c'est de changer "worksheet" en sheets
à l'origine c'était comme ça et le problème était identique mais je vais réessayé quand même

[casefayere]

je viens d'essayer et ça buggue

Je m'arrache les cheveux

[mayekeul]

j'ai déjà eu ce genre de probleme en fait

une autre solution serait de référencer ton classeur

essaye juste de faire ça

Code :

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

1
2
3
4
5
6
7
 
dim wb as Workbook
 
set wb=activeworkbook
 
'Remplace 
d = wb.Sheets("references").Range("a2").End(xlDown).Offset(0, 0).Row

[casefayere]

je viens d'essayer, ç marche au premier click mais au second click j'ai le message
erreur automation
l'objet invoqué s'est déconnecté de ses clients

[mayekeul]

tu as cette erreur depuis longtemps?

si c'est d'aujourd'hui!

ben essaie betement de redémarrer ton pc!

[casefayere]

non j'ai cette erreur sur mon PC et sur le portable d'un ami qui a aussi office 2007

en plus excel s'est fermé et réouvert sur le fichier après avoir cliquer plusieurs fois sur "fin" dans le message d'erreur

à l'ouverture il m'a remis le meme message d'erreur qu'avant

je ny comprends rien

[mayekeul]

tu pourrais m'envoyer ce fichier?

[casefayere]

j'ai soulagé un peu le fichier mais maintenant il me remet le même message quand je clique sur une reference de ma listbox à l'ouverture et ensuite il accepte mes selections
marche suivie :
à l'ouverture du fichier un userform apparait => je clique sur "gestion des produits" =>modifier ou supprimer un produit => je tape sur entrée si je veux voir apparaitre tous les produits ou j'entre une lettre quelconque pour filtrer les produits que je veux consulter ensuite, je selectionne en cliquant le produit qui m'interesse et là j'ai droit au message d'erreur, excuses moi encore et merci

[mayekeul]

bonjour,

tu peux essayer comme ça?

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
18
19
20
21
22
23
24
25
26
27
28
 
Private Sub REFCHOISIE_Click()
Dim wb As Workbook, sh
 
Set wb = ActiveWorkbook
 
'REFCHOISIE.BoundColumn = 2
 
d = wb.Sheets("references").Range("a2").End(xlDown).Offset(0, 0).Row
e = wb.Sheets("categorie").Range("a2").End(xlDown).Offset(0, 0).Row
f = wb.Sheets("fournisseurs").Range("a2").End(xlDown).Offset(0, 0).Row
If d >= e Then
y = d
Else
y = e
If y < f Then
y = f
End If
End If
 
designachanger = REFCHOISIE.Column(1)
puachanger = REFCHOISIE.Column(2)
SAISIETVAmodif = REFCHOISIE.Column(3)
TextBoxCOEFF = REFCHOISIE.Column(5)
TextBoxttc = REFCHOISIE.Column(6)
TextBoxSTOCK = REFCHOISIE.Column(7)
 
End Sub

peut-tu aussi me dire a quoi sert le bound column dans le code?

[casefayere]

Bonjour,
quand je disais que j'ai soulagé la procédure, c'est parce que j'ai supprimé 2 listbox "catégorie" et "fournisseur" donc les variables d, e, f, y ne servaient plus à rien, je vais réinstaller ces listbox et te tiendrai au courant.

le boundcolumn, je vais vérifier

Sympa merci

[casefayere]

j'ai tout corrigé et réinstallé mes listbox, avec ce que tu m'as corrigé voici la procédure :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub REFCHOISIE_Click()
Dim wb As Workbook, sh
 
Set wb = ActiveWorkbook
 
'REFCHOISIE.BoundColumn = 2
 
d = wb.Sheets("references").Range("a2").End(xlDown).Offset(0, 0).Row
e = wb.Sheets("categorie").Range("a2").End(xlDown).Offset(0, 0).Row
f = wb.Sheets("fournisseurs").Range("a2").End(xlDown).Offset(0, 0).Row
If d >= e Then
y = d
Else
y = e
If y < f Then
y = f
End If
End If
For x = 2 To y
If REFCHOISIE.Column(0) = Sheets("categorie").Range("a" & x) Then
cat.ListIndex = x - 2
Exit For
End If
Next x
For x = 2 To y
If REFCHOISIE.Column(4) = Sheets("fournisseurs").Range("a" & x) Then
listboxfournis.ListIndex = x - 2
Exit For
End If
Next x
 
designachanger = REFCHOISIE.Column(1)
puachanger = REFCHOISIE.Column(2)
SAISIETVAmodif = REFCHOISIE.Column(3)
TextBoxCOEFF = REFCHOISIE.Column(5)
TextBoxttc = REFCHOISIE.Column(6)
TextBoxSTOCK = REFCHOISIE.Column(7)
 
End Sub

Peux-tu me dire à quoi sert le sh à coté de la déclaration de la variable wb ?
tu avais raison le boundcolumn parait subsidiaire
as-tu regardé la mauvaise déclaration de mes variables ?

En tout cas, ça marche, merci (BEAUCOUP) encore

je vais maintenant explorer les autres problèmes eventuels ou les morceaux de procédures inutiles

[mayekeul]

bonjour,

le sh ne sert à rien, j'vais juste fait quelques test et j'ai oublié de l'enlever


pour les déclarations, je n'ai pas vraiment eu le temps.
Ceci dis, ne t'inquietes pas trop mais garde ces conseils en tête.

Déclare systématiquement tes variables
pour cela tu peux mettre l'option explicit, qui t'obligera à le faire.

veille à les déclarer au bon endroit et fait attention à leur portée.

aussi, force toi à déclarer le type qui prendra le moins de mémoire et donc correspond le mieux à son contenu. Même si ce n'est pas significatif sur de petit projet, cela risque de l'etre plus sur d'autre plus conséquent.
Sans compter que si tu passe sur un autre language, tu appréciera de dèja bien savoir gerer l'allocatioi des variables.

Heureux d'avoir pu t'aider.

[casefayere]

heureux et moi donc non seulement pour mon problème mais pour la solidarité qui rassure de temps en temps (et je sais de quoi je parles, je suis un militant)

à bientôt peut-être et encore merci