Membre de méthode ou de données introuvables en vba

Version imprimable

Bonjour,j'ai un problème sur l'exécution de mon code à cause d'un message d'erreur suivant:
Code:

1 2 3 4 5 6 Set FeuilleAgents= LesAgents Dim Agents As Variant For Each Agents In FeuilleAgents.Range("C10:C" & FeuilleAgents.[C1048576].End(xlUp).Row) Me.signeduplan_Liste.AddItem Agents & " " & Agents.Offset(0, 1) Me.SecondChargeAffaires_Liste.AddItem Agents & " " & Agents.Offset(0, 1) Next Agent
A chaque exécution ça m'affiche membre de méthode ou de données introuvables .
Quelqu'un pourrait m'aider svp

13/09/2016, 15h10
parmi

Bonjour,

Que veut dire pour toi ceci ?

Code:

Set FeuilleAgents= LesAgents

Il faudrait peut-être écrire comme ceci ?

Code:

Set FeuilleAgents = Sheets("LesAgents")
13/09/2016, 16h47
Menhir

Citation:

Envoyé par mia.555

A chaque exécution ça m'affiche membre de méthode ou de données introuvables .

Quelle ligne de code le debugueur signale-t-il ?

Que représente les mots FeuillAgents, LesAgents ? Si ce sont des variables, quel est leur type ?
Pourquoi avoir déclaré Agents comme Variant alors qu'il s'agit d'un Range ?

Dans ton code, la variable du For Each n'est pas la même que celle du Next. Pas bien ça.
13/09/2016, 17h59
unparia

Bonjour
Un minimum de soin est indispensable
Trop de choses floues et/ou non définies dans ce code.
La cerise sur le gâteau étant un

Code:

Next agent

pour une boucle

Code:

For Each Agents ....

Recapitulons :
si FeuilleAgents était le "coupable", le message d'erreur aurait été "Erreur d'exécution 424 . Objet requis" !
Si "next agent" était le coupable : le message d'erreur aurait été "référence de variable de contrôle incorrecte dans Next"
Or il ne reçoit aucun de ces deux messages d'erreur, mais celui-ci :
membre de méthode ou de données introuvables
Qui ne peut surgir qu'en l'absence sur la feuille active au moment de l'exécution du code montré :
- soit d'une listbox (ou combobox) Activex nommée signeduplan_Liste
- soit d'une listbox (ou combobox) Activex nommée SecondChargeAffaires_Liste
Voilà voilà ...
Rien n'est pire que de chercher un coupable au milieu de tant d'imprécisions. Surtout si la correction de l'une des erreurs conduit à faire planter le code sur une erreur suivante, etc ...

EDIT : ces remarques ne sont bien entendu valables que si l'erreur dénoncée est imputable au code montré et non à d'autres lignes de code dans son projet (et rien n'est moins certain)

EDIT 2 : VBA ne dénonce pas toujours les erreurs trouvées dans l'ordre dans lequel elles apparaissent dans le code.
Ainsi, par exemple, dans le bout de code montré :
1) la première erreur signalée sera celle (dont je parle plus haut) de l'absence éventuelle du contrôle activex invoqué (et cette erreur-là sera signalée même si précédée d'un On Error Resume Next
2) la seconde sera celle relative à un objet worksheet LesAgents éventuellement inexistant
---à noter qu'il ne pourrait exister que si un objet LesAgents avait été défini par une instruction Set de grande portée, ce qui rendrait assez cocasse et redondant une définition de ce même objet dans une autre variable
--- à noter également que l'utilisation sage, soigneuse et souhaitable de l'instruction Option Explicit aurait, en cas d'inexistence d'un objet LesAgents, conduit d'entrée de jeu à une autre dénonciation : "Erreur de compilation - Variable non définie"
3) la troisième sera relative à ce "next agent"
Tout me donne à penser que son bout de code réunit à lui seul, sur à peine 6 petites lignes, ces TROIS erreurs.
Voilà pour l'essentiel. Je "passe" sur l'abus d'appels à la tolérance de VBA (propriétés utilisées non spécifiées, en laissant VBA "choisir par défaut")
14/09/2016, 13h46
Marc-L

Bonjour !

Voici la discussion type ne respectant pas les règles du forum !
Présentation incomplète, code incomplet, pas d'indication quant à la ligne déclenchant l'erreur, etc …
A croire que nous disposons d'une boule de cristal ou sommes dotés de capacités extra-cognitives !

Bref, mon temps étant compté, je zappe au profit d'autres discussions respectant, elles, les règles !
Et si tout le monde appliquait ce principe, il y aurait enfin une progression dans la qualité des présentations,
la qualité des réponses en découlant serait forcément meilleure …

_________________________________________________________________________________________________________
Je suis Paris, Nice, Bruxelles, Charlie, …
15/09/2016, 12h35
mia.555

merci à tout le monde c'est résolu
15/09/2016, 13h54
unparia

Bien.
Tu es alors prié de garder à l'esprit que tu es sur un forum (et non sur une "occasion" de "te" sortir seul d'une difficulté).
Sur un forum, on y vient autant pour demander de l'aide que pour dire comment on a résolu un problème.
Comment (code à l'appui) as-tu donc résolu ta difficulté ?

Je m'en excuse vraiment.

Code:

1
2
3
4
5
6
Set FeuilleAgents= LesAgents
    Dim Agents As Variant
    For Each Agents In FeuilleAgents.Range("C10:C" & FeuilleAgents.[C1048576].End(xlUp).Row)
        Me.signeduplan_Liste.AddItem Agents & " " & Agents.Offset(0, 1) 
        Me.SecondChargeAffaires_Liste.AddItem Agents & " " & Agents.Offset(0, 1)
    Next Agent

C'était juste que j'avais mal écrit les noms signesduplan et secondchargeAffaire.

Merci encore

15/09/2016, 14h17
Marc-L

La variable FeuilleAgents ne servant à rien vu qu'existe déjà LesAgents ! Pourquoi effectuer un doublon ? …
15/09/2016, 14h42
Menhir

Et la variable de For Each est toujours différente de celle du Next.
15/09/2016, 14h53
mia.555

Citation:

Envoyé par Menhir

Et la variable de For Each est toujours différente de celle du Next.

ça doit être la mm variable .C'était une erreur de ma part