Bonjour à tous!
Je suis nouveau dans tout ce qui est programmation en VBA dans excel, je m'excuse d'avance si mes propos ne sont pas assez clair ou ma question trop "simpliste" au vu de mes connaissances assez limitées dans ce domaine...
Pouvez-vous m'indiquer la procédure à suivre ou me rediriger vers un poste traitant cette thématique. Je souhaite pouvoir intégrer les valeurs de la table Array (présente dans le code précédent) dans mon combobox pour seulement les Activity lors de l'initialisation de celui-ci.
Ci-dessous le code réalisé pour la table Array et la procédure d'initialisation:
N'hésitez pas à me contacter pour tout renseignement complémentaire.
Je vous en remercie par avance,
Cordialement,
Ya-Go
Je suis nouveau dans tout ce qui est programmation en VBA dans excel, je m'excuse d'avance si mes propos ne sont pas assez clair ou ma question trop "simpliste" au vu de mes connaissances assez limitées dans ce domaine...
Pouvez-vous m'indiquer la procédure à suivre ou me rediriger vers un poste traitant cette thématique. Je souhaite pouvoir intégrer les valeurs de la table Array (présente dans le code précédent) dans mon combobox pour seulement les Activity lors de l'initialisation de celui-ci.
Ci-dessous le code réalisé pour la table Array et la procédure d'initialisation:
Code:
Type DataBase
Activity As String
Section As String
DesEn As String
End Type
Dim TabDB() As DataBase
Dim LastRow As Integer, LastColumn As Integer, Row As Integer, Column As Integer
Sub TableDataBase()
Dim TabAffiche As Variant
LastRow = Sheets("Tableau").Range("A6").End(xlDown).Row 'Dernière ligne de la base de données
LastRow = LastRow - 6
ReDim TabDB(LastRow) 'Redimensionnement du tableau en cas de nouvelles valeurs clèes
'Enregistrement des valeurs dans le tableau
For Row = 0 To LastRow
TabDB(Row).Activity = Sheets("Tableau").Cells(Row + 6, Column + 1)
TabDB(Row).Section = Sheets("Tableau").Cells(Row + 6, Column + 2)
TabDB(Row).DesEn = Sheets("Tableau").Cells(Row + 6, Column + 5)
Next
CallByName CollectData, UserForm_Initialize, VbMethod, TabDB
End Sub
Code:
Private Sub UserForm_Initialize(TabDB() As DataBase)
ListSection.AddItem (TabDB(1).Activity)
End Sub
N'hésitez pas à me contacter pour tout renseignement complémentaire.
Je vous en remercie par avance,
Cordialement,
Ya-Go
Dernière édition: