Discussion :

[panda78]

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

Code :

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

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...)

[panda78]

c'est bon j'ai trouvé il fallait enlever les guillments du i le i du Next:

Code :

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

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

[mercatog]

Code :

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

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

PS

Code :

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

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

Ou bien

Code :

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

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

[panda78]

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

Code :

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

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?

[mercatog]

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 :

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

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

[panda78]

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 :

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

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

[mercatog]

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 :

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

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

[panda78]

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