Discussion :

[bosk1000]

bonsoir a tous

à l'initialisation d'un formulaire, j'ai beaucoup de combobox qui vienne cherchez la meme source de liste.

comme elle commence toutes par "cbo_nom_" la suite étant colis ou noel ou scolaire, etc... et ensuite un numéro de 1 à 10

voici un des code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
For i = 1 To 10
Me.Controls("cbo_nom_colis" & i).RowSource = "source!a2:a" & Range("source!a65536").End(xlUp).Row
     Me.Controls("cbo_nom_colis" & i).MatchEntry = fmMatchEntryComplete ' permet d'ecrire les nom dans une zone de liste deroulante
     Me.Controls("cbo_nom_colis" & i).MatchRequired = True 'pour forcer une saisie correct
Next i
 
For i = 1 To 10
Me.Controls("cbo_nom_noel" & i).RowSource = "source!a2:a" & Range("source!a65536").End(xlUp).Row
     Me.Controls("cbo_nom_noel" & i).MatchEntry = fmMatchEntryComplete ' permet d'ecrire les nom dans une zone de liste deroulante
     Me.Controls("cbo_nom_noel" & i).MatchRequired = True 'pour forcer une saisie correct
Next i

je met ici colis et noel, mais est-il possible de ne créer qu'une fois ce code de manière a ce qu'il soit valable pour toutes les combobox qui débute par "cbo_nom_"

[mercatog]

pas testé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim i As Byte, j As Byte
Dim typ
typ = Array("colis", "noel")
For j = 0 To UBound(typ)
    For i = 1 To 10
        With Me.Controls("cbo_nom_" & typ(j) & i)
            .RowSource = "source!a2:a" & Range("source!a65536").End(xlUp).Row
            .MatchEntry = fmMatchEntryComplete ' permet d'ecrire les nom dans une zone de liste deroulante
            .MatchRequired = True 'pour forcer une saisie correct
        End With
    Next i
Next j

[bosk1000]

ton code est parfait
merci

par contre niveau compréhension
je pêche
puis-je te demander quelque précision pour ma compréhension ?



je ne comprend pas la fonction array (le mode f1 est pas très clair)

pourquoi m'est tu "dim type" et rien d'autre après

lorsque tu met

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
For j = 0 To UBound(typ)

c'est pour spécifier d'effectuer l'operation sur toutes la liste des mot clef (colis, noel, etc...) ?

dernier point
tu met i en byte, moi jusqu'ici je met en integer
qu'est-ce qui est plus pertinent

[mercatog]

Array: tableau
Dim typ (ça reste un variant)
Ubound(typ) le nombre d'éléments
tu as seulement 10 boucle, byte suffit

ci joint lien http://silkyroad.developpez.com/VBA/LesVariables/

[bosk1000]

merci

la partie array, me reste encore a decouvrir
merci