Discussion :

[mia.555]

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

Code :

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

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

[parmi]

Bonjour,

Que veut dire pour toi ceci ?

Code :

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

Set FeuilleAgents= LesAgents

Il faudrait peut-être écrire comme ceci ?

Code :

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

Set FeuilleAgents = Sheets("LesAgents")

[Menhir]

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.

[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 :

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

Next agent

pour une boucle

Code :

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

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")

[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, …

[mia.555]

merci à tout le monde c'est résolu

[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é ?