Code VBA : AddItem semblables pour plusieurs Combobox

Bonjour,

Je me permets de vous contacter car je souhaite savoir s'il existe une manipulation qui fonctionne pour simplifier mon code VBA.

En fait, j'utilise un userform qui contient 10 Combobox.

Au départ, dans le bloc Initialize, je donne la valeur possible du Combobox appelé "THERMOCOUPLE" de la manière suivante :

Me.THERMOCOUPLE.AddItem "T1"

Jusqu'à là, ca fonctionne, mais comme chaque Combobox ont 10 valeurs possibles et toutes les même, je les avais appelé comme ça :

THERMOCOUPLE1, THERMOCOUPLE2, ... , THERMOCOUPLE10, dans le but de réitérer l'initialisation pour chaque Combobox

Et j'avais créé un code de la manière suivante :

For i = 1 To 10

Me.THERMOCOUPLE(i).AddItem "T1

Me.THERMOCOUPLE(i).AddItem "T2

Me.THERMOCOUPLE(i).AddItem "T3

Me.THERMOCOUPLE(i).AddItem "T4

Me.THERMOCOUPLE(i).AddItem "T5

Me.THERMOCOUPLE(i).AddItem "T6

Me.THERMOCOUPLE(i).AddItem "T7

Me.THERMOCOUPLE(i).AddItem "T8

Me.THERMOCOUPLE(i).AddItem "T9

Me.THERMOCOUPLE(i).AddItem "T10

Next i

Mais vous vous douterez que cela ne fonctionne pas. L'erreur m'indique "Erreur de compilation : Membre de méthode ou de données introuvables". Auriez-vous une idée pour m'aider?

Merci par avance

Bonjour et bienvenue sur le forum

Essaie ce code :

Private Sub UserForm_initialize()
    For i = 1 To 10
        For j = 1 To 10
            Controls("THERMOCOUPLE" & i).AddItem "T" & j
        Next j
    Next i
End Sub

Et dis-moi s'il te convient.

Bye !

Merci beaucoup d'avoir pris du temps pour me répondre! Ca fonctionne parfaitement!