boucle pour rajouter des items dans combobox

Version imprimable

01/08/2012, 18h46
panda78

boucle pour rajouter des items dans combobox
Bonjour,
je souhaiterai mettre des items (nombre de 10 à 30) en passant par une boucle que voici :
Code:

1 2 3 For i = 10 To i = 30 ComboBox3.AddItem "i" Next i
seulement dans le combobox3 de l'userform ya juste un "i" qui est proposé.
Où est la bêtise que j'ai faite.

ps: comment faire pour faire la meme chose mais avec des chiffres de 0 à 100 en allant de 5 en 5 ( 0,5,10,15,20,25,30,35,etc...)
01/08/2012, 18h50
panda78
c'est bon j'ai trouvé il fallait enlever les guillments du i le i du Next:
Code:

1 2 3 For i = 10 To i = 30 ComboBox3.AddItem i Next
si non je suis preneur pour le postscriptum, merci ;-)

Fausse alerte ça marche pas, ça me propose juste un 0 :cry:

Code:

1
2
3
For i = 10 To 30 
     ComboBox3.AddItem i 
Next i

Code:

1
2
3
For i = 0 To 100 Step 5
    Me.ComboBox1.AddItem i
Next i

Ou bien

Code:

1
2
3
For i = 0 To 20
    Me.ComboBox1.AddItem 5*i
Next i

Merci pour votre aide sinon j'ai ce code ci:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 Private Sub ComboBox5_Click() Select Case ComboBox5 Case "Voile contre terre béton" With Worksheets("Config") LastLig = .Cells(.Rows.Count, "B").End(xlUp).Row Me.ComboBox2.RowSource = "'" & .Name & "'!B2:B4" & LastLig End With Case "Mitoyen" With Worksheets("Config") LastLig = .Cells(.Rows.Count, "B").End(xlUp).Row Me.ComboBox2.RowSource = "'" & .Name & "'!B2:B7" & LastLig End With Case "Refend" With Worksheets("Config") LastLig = .Cells(.Rows.Count, "B").End(xlUp).Row Me.ComboBox2.RowSource = "'" & .Name & "'!B2:B" & LastLig End With End Select
et j'aimerai limité ma selection ou bien sauter une partie des cellules pour selectionner les contenus des combobox qui vont ensemble. Comme par exemple une dalle béton ne peut se faire avec un matériau brique mais forcément béton.
j'ai essayé (partie soulignée en gras) mais ça ne marche pas comment faut il faire?

Pour faire simple, je suppose que les données pour Mitoyen sont en feuille Config de B2 à B7 et pour Refend de B8 à B16 de la même feuille Config
Code:

1 2 3 4 5 6 7 Dim Contenu As String '....On récupère l'adresse de la plage dans Contenu en fonction du critère. Après on indiquera le nom de la feuille Case "Mitoyen": Contenu = "B2:B7" Case "Refend": Contenu = "B8:B16" End Select Me.ComboBox2.RowSource = "Config!" & Contenu

Super! Grâce à votre aide mon code commence vraiment à s'alléger et on y voit mieux, reste encore à renommer les combobox . Puis je m'y prendre ainsi ? :
Code:

1 2 3 4 5 6 7 Sub renommer() Dim OL As OLEObject For Each OL In ActiveSheet.OLEObjects If OL.Name = "ComboBox1" Then OL.Name = "ComboSource" If OL.Name = "ComboBox2" Then OL.Name = "ComboTypeMur" Next OL End Sub
Cordialement

Renomme manuellement tes Combobox: Clique droit> Propriétés

Ci après un petit exemple appliqué en partie à ton userform après nommage des combobox et remplissage des données nécessaires dans une feuille ajoutée Config (Lis attentivement les commentaires sur le code)

Codes dans le module de l'userform

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Option Explicit
 
Private Sub UserForm_Initialize()
Dim i As Byte
 
'Mise en page de l'userform par l'appel de la sous routine MiseEnFormeUSF
MiseEnFormeUSF
 
'Remplissage des combobox par l'appel de la sous routine RempliCombo
RempliCombo Me.cboChoixSrce, 1                     'Remplie à partir de la colonne 1 de la feuille Config
RempliCombo Me.cboMatParoi, 3                      'Remplie à partir de la colonne 3 de la feuille Config
RempliCombo Me.cboTypParoi, 5                      'Remplie à partir de la colonne 5 de la feuille Config
RempliCombo Me.cboNatParoi, 7                      'Remplie à partir de la colonne 7 de la feuille Config
RempliCombo Me.ComboBox14, 9                       'Remplie à partir de la colonne 9 de la feuille Config
 
'Remplissage des combobox par boucle
For i = 0 To 40
    Me.cboSurFen.AddItem i
    If i < 21 Then
        Me.cboEpaisParoi.AddItem 10 + i
        Me.cboEpaisMit.AddItem 10 + i
        Me.cboOuvAutLoc.AddItem 10 + i
        Me.cboPourcOuv.AddItem 5 * i
    End If
    '    If i < 5 Then
    '        Me.ComboBox7.AddItem i
    '        Me.ComboBox8.AddItem i
    '    End If
Next i
End Sub
 
'Sous routine qui permet la mise en forme de l'userform
Private Sub MiseEnFormeUSF()
Dim i As Byte
Dim Tit
 
Tit = Array(65535, 65280, 16776960, 255)
For i = 1 To 4
    Me.Controls("CommandButton" & i).BackColor = Tit(i - 1)
Next i
 
Tit = Array("Local d'émission", "Caractéristique de la paroi excitée", "Dimensions du mitoyen", "Local de réception", "Ouvertures du local d'émission", "Dimensions du local d'émission", "Nature et positionnement de la source sonore")
For i = 1 To 7
    Me.Controls("Frame" & i).Caption = Tit(i - 1)
Next i
 
For i = 1 To 2
    Me.Controls("OptionButton" & i).Visible = False
Next i
 
Me.Caption = "Mon projet"
Me.ScrollBars = fmScrollBarsBoth
End Sub
 
'Sous routine qui remplit la ComboBox Cbo des données de la colonne Col de la feuille Config à partir de la 2ème ligne
'/!\ Laisser la ligne 1 vide et une ligne vide entre chaque liste de données
 
Private Sub RempliCombo(ByVal Cbo As ComboBox, ByVal Col As Integer)
 
Cbo.RowSource = "Config!" & ThisWorkbook.Worksheets("Config").Cells(2, Col).CurrentRegion.Address
End Sub

02/08/2012, 04h46
panda78

Merci! Je vais mettre tout ça en pratique dés mon réveil à 9h00 :-)
Je vous tiens au courant. Et encore merci.
Cordialement.