PC Vue 11.2 : Remplir Combobox Vba

Partie du forum pour tout ce qui concerne la supervision industrielle. Forum, conseil, astuce et entraide sur les logiciels de supervision tels que PC Vue, Vijeo designer, WinCC, win cc, monitor pro, so machine, Citect, Intouch .
Répondre
19SamSam95
Apprend le binaire
Apprend le binaire
Messages : 3
Enregistré le : 01 juil. 2019, 16:51

PC Vue 11.2 : Remplir Combobox Vba

Message par 19SamSam95 » 01 juil. 2019, 16:58

Bonjour à tous,

Je n'arrive pas à remplir une combobox sur PCvue via VBA. J'ai trouvé le code ci-dessous sur un sujet du forum que j'ai "tenté" d'adapter en vain à mon projet mais je n'y arrive pas et je ne comprends pourquoi... Quelqu'un peut-il m'aider ?

Sub combobox_remp()
'Declaration des variables
Dim recup As String
Dim tabsplit() As String
Dim recette As String
Dim famille As String


' Ouverture du fichier contenant les recettes
Open "C:\ARC Informatique\PcVue 11.2\Usr\STP MBHLS\CTEMP\VAREXP.dat" For Input As #1

AIComboBox1.Clear

Indexa = 1
Do While Not EOF(1)
Line Input #1, recup

If recup <> "" Then
tabsplit = Split(recup, ",")

If tabsplit(0) = "DOM" Then

recette = tabsplit(1)


tmp = AIComboBox1.addItem(recette, "", Indexa)
Indexa = Indexa + 1

End If
End If

Loop

Close #1


End Sub

je vous remercie d'avance :)

Cordialement,

SamSam

Avatar de l’utilisateur
itasoft
Mi homme - Mi automate
Mi homme - Mi automate
Messages : 3385
Enregistré le : 20 oct. 2015, 10:15
Localisation : Lyon
Contact :

Re: PC Vue 11.2 : Remplir Combobox Vba

Message par itasoft » 01 juil. 2019, 17:14

slts,
Montrer le contenu du fichier VAREXP.dat pour voir
Automaticien privé (de tout)
itasoft@free.fr

19SamSam95
Apprend le binaire
Apprend le binaire
Messages : 3
Enregistré le : 01 juil. 2019, 16:51

Re: PC Vue 11.2 : Remplir Combobox Vba

Message par 19SamSam95 » 01 juil. 2019, 17:52

Le varexp est bon car quand je fais le pas à pas sur VBA, la variable "recette" récupère la valeur souhaitée. Le problème survient à la ligne "tmp = AIComboBox1.addItem(recette, "", Indexa)"...

je vous joint quand même le varexp.

merci de votre réponse :)
Fichiers joints
Capture.PNG

19SamSam95
Apprend le binaire
Apprend le binaire
Messages : 3
Enregistré le : 01 juil. 2019, 16:51

Re: PC Vue 11.2 : Remplir Combobox Vba

Message par 19SamSam95 » 02 juil. 2019, 09:01

J'ai trouvé le problème : il fallait commencer Indexa à 0 et non à 1. Voilà merci quand même ;)

Répondre