A
angelspeed
Guest
Bonjour,
je débute en script VB et je rencontre un problème de base pour chaque script que je faits : ils ne se lance pas à l'ouverture du fichier. Je suis obligé d'aller dans VB et de faire F5.
Ce doit être tellement de base que j'ai pas réussi à trouver sur le forum...
Pour info, il s'agit de contrôles ActiveX et mes scripts sont simples :
- une combobox avec tri alphabétique
Private Sub UserForm_Initialize()
Feuil6.ComboBox1.Clear
Feuil6.ComboBox1.List() = Sheets("Outils").Range("A4:A7").Value
Feuil6.ComboBox1.List = ListSort(Feuil6.ComboBox1.List)
End Sub
-> la liste déroulante n'est pas remplie (juste le choix effectué avant la fermeture)
Question supplémentaire : comment faire pour que le champ soit vide au démarrage plutôt que d'avoir la dernière sélection enregistrée ?
- une animation Flash :
Private Sub Flash_lancement()
ShockwaveFlash1.Movie = "G:\Documents\OoN\logo.swf"
ShockwaveFlash1.Play
ShockwaveFlash1.Quality2 = "High"
ShockwaveFlash1.ScaleMode = 3
End Sub
-> le flash ne se lit pas, la propriété playing est toujours sur False
Merci pour votre aide.
je débute en script VB et je rencontre un problème de base pour chaque script que je faits : ils ne se lance pas à l'ouverture du fichier. Je suis obligé d'aller dans VB et de faire F5.
Ce doit être tellement de base que j'ai pas réussi à trouver sur le forum...
Pour info, il s'agit de contrôles ActiveX et mes scripts sont simples :
- une combobox avec tri alphabétique
Private Sub UserForm_Initialize()
Feuil6.ComboBox1.Clear
Feuil6.ComboBox1.List() = Sheets("Outils").Range("A4:A7").Value
Feuil6.ComboBox1.List = ListSort(Feuil6.ComboBox1.List)
End Sub
-> la liste déroulante n'est pas remplie (juste le choix effectué avant la fermeture)
Question supplémentaire : comment faire pour que le champ soit vide au démarrage plutôt que d'avoir la dernière sélection enregistrée ?
- une animation Flash :
Private Sub Flash_lancement()
ShockwaveFlash1.Movie = "G:\Documents\OoN\logo.swf"
ShockwaveFlash1.Play
ShockwaveFlash1.Quality2 = "High"
ShockwaveFlash1.ScaleMode = 3
End Sub
-> le flash ne se lit pas, la propriété playing est toujours sur False
Merci pour votre aide.