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