Propriété non valide / erreur 380... [Résolu]

hidozo 57 Messages postés samedi 24 mai 2008Date d'inscription 6 novembre 2010 Dernière intervention - 25 juin 2008 à 21:52 - Dernière réponse : hidozo 57 Messages postés samedi 24 mai 2008Date d'inscription 6 novembre 2010 Dernière intervention
- 29 juin 2008 à 09:39
Bonjour,

Dans mon Userform, j'ai rajouté deux combobox afin de rajouter des options supplméentaires.

Il ne s'ouvre plus lors de l'ouverture du fichier. Et sil s'ouvre, mes combobox (dont la rowsource se trouve définie dans UserForm_Initialize ne fonctionnent plus.

J'ai nommé mon Userform : formulairedessaisieCPHT, mais dans le code, il se trouve nommé Userform. J'ai fait le test en remplaçant les deux termes, mais ça ne fonctionne pas.

Mes pb ont commencé quand j'ai voulu rajouter les zones visuelles
Ci-joint un extrait du code :
Private Sub UserForm_Initialize()<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>

fichier2 = [x1] & "" & [a1] & ".avi"

WindowsMediaPlayer1.URL = fichier2

WindowsMediaPlayer1.Controls.play

WindowsMediaPlayer1.Controls.Stop

WindowsMediaPlayer1.Controls.Pause

WindowsMediaPlayer1.Controls.fastForward

WindowsMediaPlayer1.Controls.fastReverse

' Initialisation de la liste de la ComboBox1

ComboBox1.RowSource = "z1:z" & ActiveSheet.UsedRange.Rows.Count

' Sélection de l'index 1 de la liste et de même pour la suite des combobox...

ComboBox1.ListIndex = 0

ComboBox2.RowSource = "aa1:aa" & ActiveSheet.UsedRange.Rows.Count

ComboBox2.ListIndex = 0

Evalmodif.RowSource = "z1:z" & ActiveSheet.UsedRange.Rows.Count

Evalmodif.ListIndex = 0

NomSaisieBis.RowSource = "p1:p" & ActiveSheet.UsedRange.Rows.Count

NomSaisieBis.ListIndex = 0

ZoneVisuelle.RowSource = "g1:g" & ActiveSheet.UsedRange.Rows.Count

ZoneVisuelle.ListIndex = 0

zoneVisuellebis.RowSource = "g1:g" & ActiveSheet.UsedRange.Rows.Count

zoneVisuellebis.ListIndex = 0

ZoneDép2.RowSource = "n1:n" & ActiveSheet.UsedRange.Rows.Count

ZoneDép2.ListIndex = 0

ZonePré2.RowSource = "m1:m" & ActiveSheet.UsedRange.Rows.Count

ZonePré2.ListIndex = 0

Action.RowSource = "h1:h" & ActiveSheet.UsedRange.Rows.Count

Action.ListIndex = 0

'Et plein d'autres encore

Cordialement

De plus, comme tout est planté, j'ai tenter de tout refaire siur ma sauvegarde et avant de pouvoir la sauvegarder, j'ai tout planté. De ce fait, je n'ai plus d'outil.

Hidozo
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
hidozo 57 Messages postés samedi 24 mai 2008Date d'inscription 6 novembre 2010 Dernière intervention - 29 juin 2008 à 09:39
3
Merci
bonjour,


 


Pb résolu,


Une des lignes du codes faisait référence à une liste qui se trouvait dans une autre page. De ce fait, cela posait un problème.


Merci pour tout


 


Hidozo

Merci hidozo 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 97 internautes ce mois-ci

Commenter la réponse de hidozo
hidozo 57 Messages postés samedi 24 mai 2008Date d'inscription 6 novembre 2010 Dernière intervention - 25 juin 2008 à 22:07
0
Merci
essai document joint
Commenter la réponse de hidozo
cs_MPi 3877 Messages postés mardi 19 mars 2002Date d'inscription 23 août 2018 Dernière intervention - 28 juin 2008 à 22:57
0
Merci
Comme tu ne spécifies pas de feuilles lorsque tu appelles des plages, es-tu certain que le userform s'ouvre avec la bonne feuille affichée ?

Dans cette ligne
ICI
Commenter la réponse de cs_MPi

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.