Accueil > Forum > > > > [VB6][ComboBox]Erreur 380 Aléatoire ??
[VB6][ComboBox]Erreur 380 Aléatoire ??
vendredi 31 mars 2006 à 17:30:04 |
[VB6][ComboBox]Erreur 380 Aléatoire ??

ZeMoskito
|
Bonjour à tous :)
Voici mon problème (mon sujet était déjà pas mal explicite je pense ;)
J'ai deux fichiers Excel avec beaucoup de VB/VBA derrière. Dans un cas les macros se déroulent sans accrocs (désolés ;)), dans le deuxième cas j'ai droit à la fameuse erreur d'exécution 380 ("Impossible de définir la propriété .text", "Valeur de propriété non valide").
Donc mon problème ne se trouve pas vraiment dans cette erreur car j'ai réussi à la "corriger", mais dans le fait qu'il y'ait un comportement disctinct pour deux macros identiques... et j'aimerais bien savoir pourquoi afin que celà ne puisse pas se reproduire !
Voici le code en question:
[CODE]
Private Sub UserForm_Activate()
'lecture de la periode
m_sPeriode = GetPeriod()
With ComboBoxMonth
'Sélection de la période en cours
If HasValue(m_sPeriode) Then
.text = m_sPeriode <== [u]c'est ici que l'erreur était levée[/u]
Else
.ListIndex = 0
End If
End With
End Sub
'*******************************************************************
'Initialisation de la fenetre
'*******************************************************************
Private Sub UserForm_Initialize()
Dim dDate As Date
Dim sYear As String
Dim i As Integer
Dim iFin As Integer
Dim sItem As String
On Error Resume Next
sYear = Format(Date, "yyyy")
iFin = CInt(Format(Date, "mm"))
'Remplissage avec un glissement sur une année
With ComboBoxMonth
For i = iFin To 1 Step -1
sItem = NumberToMonth(i) & " " & sYear
.AddItem (sItem)
Next
For i = 12 To (iFin + 1) Step -1
sItem = NumberToMonth(i) & " " & CStr(CInt(sYear) - 1)
.AddItem (sItem)
Next
End With
End Sub
[/CODE]
En fait le problème semble venir du fait qu'il faille remplir la combo et initialiser la propriété text dans la même fonction (en l'occurence j'ai mis tout ces traitement dans l'activate et ça passe sans problème dans les deux cas). OR, si c'est vraiment le problème (classique pour les list et combo) pourquoi est-ce que celà fonctionne dans un cas et pas dans l'autre !??
Je teste évidemment les deux sur ma machine donc hardware et software sont identiques dans les deux cas... voyez vous une anomalie quelconque qui pourrait expliquer ce type de comportement ??
Merci de votre écoute dans tous les cas ! :D
|
|
vendredi 31 mars 2006 à 17:42:17 |
Re : [VB6][ComboBox]Erreur 380 Aléatoire ??

jack
|
Réponse acceptée !
Salut Jamais rencontré cette erreur. Quand l'erreur survient, que vaut m_sPeriode ? Existe t-il dans la liste une donnée qui vale cette valeur ? Un .Text est un texte alors que m_sPeriode semble être numérique --> Essaye avec CStr(m_sPeriode)
Personnellement, j'évite d'utiliser .Text d'un Combo. Eventuellement, ajoute un DoEvents après le GetPeriod(), ça laissera le temps à la Combo de se rafraichir et de renseigner son .Text Fait plutôt une boucle du style : For r = 0 To Combo.ListCount -1 If CStr(m_sPeriode) = Combo.List(r) Then Combo.ListIndex = r Exit For End If Next r ' Cas où la boucle n'a rien trouvé : r vaut maxi de r +1, donc Combo.ListCount If r = Combo.ListCount Then Combo.ListIndex = -1
Vala Jack, MVP VB NB : Je ne répondrai pas aux messages privés
Champion du monde de boule de cristal - 2005 Le savoir est la seule matière qui s'accro
|
|
lundi 3 avril 2006 à 09:59:26 |
Re : [VB6][ComboBox]Erreur 380 Aléatoire ??

ZeMoskito
|
Merci pour ta réponse !
la variable m_sPeriode est une chaine et lors de l'affectation elle est non nulle "DECEMBRE 2004" par exemple. Il y'a peut-être un problème avec une valeur identique, et ça expliquerait donc pourquoi le problème n'est pas présent dans les deux cas... je vais vérifier ça tout de suite ;)
Merci beaucoup pour ta participation, car c'est la qu'on voit que certains problème pourtant "simpl" nous échappe complètement à force d'avoir le nez dans le code !!
Bon je vais voir ça et je te confirme si c'est ça ;)
PS: merci aussi pour ta boucle, je vais voir ce que je vais en faire :D
|
|
lundi 3 avril 2006 à 10:01:48 |
Re : [VB6][ComboBox]Erreur 380 Aléatoire ??

ZeMoskito
|
Quoi que non... maintenant que j'y pense j'y avais pensé déjà ^_^, et même avec une valeur en dur "toto" non présente dans la combo ca avait planté pareil... mais je vais quand même revoir mon affectation et la remplacer par ta boucle !
Merci ;)
|
|
lundi 3 avril 2006 à 10:40:43 |
Re : [VB6][ComboBox]Erreur 380 Aléatoire ??

ZeMoskito
|
Réponse acceptée !
Ca roule :) merci beaucoup, avec l'utilisation des listIndex c'est passé comme sur des roulettes. Dommage que les messages de VB ne soit pas plus explicite ou qu'il n'interdise pas ces fonctionnalités, car si un coup ca marche et un coup ca marche pas c'est un peu galère...
Mais merci beaucoup, ton éclairage m'a apporté la lumière ;)
@++ et encore merci
|
|
Cette discussion est classée dans : problème, end, erreur, cas, sitem
Répondre à ce message
Livres en rapport
|
Derniers Blogs
SESSION SILVERLIGHT 5 3D : SLIDES ET DEMOSSESSION SILVERLIGHT 5 3D : SLIDES ET DEMOS par Groc
Durant les techdays, j'ai eu le plaisir d'animer une session sur Silverlight 5 et la 3D avec Simon Ferquel. Comme promis, voici nos slides et mes démos (celles avec le viper BSG) ici et là. Pour mémoire, les démos utilisent toutes le viper BSG...
Cliquez pour lire la suite de l'article par Groc [TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES[TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES par gpommier
Suite à la session que j'ai présenté sur WebMatrix 2, vous pouvez trouver les slides ici, ainsi que les démos en packages nuget : démos1 et démos2 J'en profite pour remercier chaleureusement tous ceux qui sont venus très nombreux à cette sess...
Cliquez pour lire la suite de l'article par gpommier [SHAREPOINT] LES SESSIONS TECHDAYS 2012.[SHAREPOINT] LES SESSIONS TECHDAYS 2012. par Patrick Guimonet
Voici donc pour ceux qui n'ont pas pu venir, ou ceux qui n'ont pas pu toutes les suivre la liste des sessions SharePoint aux TechDays 2012, que je mettrais à jour dès que les liens des vidéo seront disponibles. Ou ici : http...
Cliquez pour lire la suite de l'article par Patrick Guimonet TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice
Speaker: Bernard Ourghanlian Cette session est comme chaque jour transmise en live par BrainSonic, et j'ai donc suivi cette troisième pleinière par ce moyen sur mon iPad . Elle est dédiée comme chaque année à la mise en perspective de l'é...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE !MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE ! par Vko
Hier durant une session dédiée aux Techdays 2012, j'ai eu le plaisir d'annoncer la sortie de la Béta 2 de Mishra Reader. C'est quoi ? Pour les utilisateurs, c'est une vraie expérience de lecture de flux RSS sur Windows. Rien à voir avec les produit...
Cliquez pour lire la suite de l'article par Vko
Logiciels
Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning
|