VBA

[Chezmoi]

Bonjour à tous,

Voilà, j'ai une idée en tete et je pense qu'elle fonctionne, mais vu que je connais pas beaucoup le VBA, pouvez vous me corriger mon idée... qui à proprement parler à un codage entièrement faux mais c'est l'idée qui compte :


Dim Titre as Array ("Choix1","Choix2","Choix3","Choix4")
Dim Valeur as Array ("1","2","3","4")


Une boucle i = 1 jusqu'au au nombre de valeur de Titre (soit 4)
ListBoxAff.AddItem
ListBoxAff.List(ListBoxAff.ListCount - 1, 0) = Titre(i)
ListBoxAff.List(ListBoxAff.ListCount - 1, 1) = Valeur(i)
Fin de la boucle


C'est possible et est ce correcte ??
PS : je sais pas réaliser une boucle For i=0 to .....Titre.End?

merci d'avance

 

[Hervé]

Bonsoir

essaye comme ceci :

Dim titre
Dim valeur
dim i as integer

titre = Array("Choix1", "Choix2", "Choix3", "Choix4")
valeur = Array("1", "2", "3", "4")

For i = 0 To UBound(titre)
ListBoxAff.AddItem
ListBoxAff.List(ListBoxAff.ListCount - 1, 0) = titre(i)
ListBoxAff.List(ListBoxAff.ListCount - 1, 1) = valeur(i)
Next i

Salut
Hervé

 

[Chezmoi]

Bonjour Hervé,

Excuse moi de répondre si tard mais j'étais en weekend..
En tout cas, merci beaucoup c'est exactement ce que je souhaitais, ca va beaucoup m'aider !
PS: J'étais pas loin quand même

Bonne journée Hervé et merci encore !

 

[Chezmoi]

Rebonjour,

Très content d'avoir un petit script, j'ai décidé de l'optimiser.
En effet, j'avais dans mon codage déjà un script qui permet de remplir une liste ou combobox. J'ai voulu l'utilisé mais j'ai un souci de compatibilité.
En effet, sans s'occupé de la variable titre, la ligne RempliCBox(valeur(i),ListBoxAff) indique une erreur Byref incompatible.
Vous pouvez m'aider à forcer valeur(i) en Integer ?


valeur = Array(1, 2, 3, 4)
[...]
For i = 0 To UBound(titre)
RempliCBox(valeur(i),ListBoxAff)
Next i
End sub

Function RempliCBox(i As Integer, CBox As Object)
'Rempli la Combobox de l affichage
CBox.AddItem
CBox.List(CBox.ListCount - 1, 0) = i
CBox.List(CBox.ListCount - 1, 1) = i
End Function