Boucle avec combobox [VBA][Excel]

[Résolu/Fermé]
Signaler
Messages postés
7
Date d'inscription
lundi 4 mai 2015
Statut
Membre
Dernière intervention
5 juin 2015
-
Messages postés
7
Date d'inscription
lundi 4 mai 2015
Statut
Membre
Dernière intervention
5 juin 2015
-
Bonjour,

J'aimerais simplifier mon code car je fait plusieurs fois la même opération. J'aimerais utiliser une boucle et par la suite utiliser la macro dans un autre programme. Voici ce que j'ai fait mais ça ne fonctionne pas. Désolé, je suis nouveau dans la programmation VBA.

Voici mon code d'origine:
Private Sub CommandButton1_Click()
If ComboBox7.Value = "VENTILATEUR" Then
Range("c14").Value = "FAN" & " " & ComboBox8.Value & " " & ComboBox9.Value _
& " " & ComboBox10.Value & " " & ComboBox11.Value & " " & ComboBox12.Value & " " & ComboBox13.Value
End If
End sub

Voici ce que je veux faire:
private sub Ventilateur ()
Dim i as interger
For 8 to 13
Comboboxi.value
next i
end sub

Private Sub CommandButton1_Click()
If ComboBox7.Value = "VENTILATEUR" Then
Range("c14").Value = "FAN" & " "
Call Ventilateur
End If
End sub

Merci de votre aide

Bonne journée

1 réponse

Messages postés
15961
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
20 septembre 2021
1 534
Bonjour,

Private Sub CommandButton1_Click()
    Dim Fans As String
    
    If ComboBox7.Value = "VENTILATEUR" Then
        Call Ventilateur(Fans)
        Range("c14").Value = "FAN" & " " & Fans
    End If
End Sub

Private Sub Ventilateur(Fans)
    Dim i As Integer
    For i = 8 To 13
        Fans = Fans & " " & Me.Controls("ComboBox" & i)
    Next i
End Sub
Messages postés
7
Date d'inscription
lundi 4 mai 2015
Statut
Membre
Dernière intervention
5 juin 2015

une feuille excel
Messages postés
15961
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
20 septembre 2021
1 534 >
Messages postés
7
Date d'inscription
lundi 4 mai 2015
Statut
Membre
Dernière intervention
5 juin 2015

Re,

Normal que ca ne marche pas, je regarde pour feuille
Messages postés
7
Date d'inscription
lundi 4 mai 2015
Statut
Membre
Dernière intervention
5 juin 2015

merci je fais mes recherches de mon côté aussi
Messages postés
15961
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
20 septembre 2021
1 534 >
Messages postés
7
Date d'inscription
lundi 4 mai 2015
Statut
Membre
Dernière intervention
5 juin 2015

Re,
'Combobox feuille de calcul, adaptez le nom de la feuille
Private Sub Ventilateur(Fans)
    Dim i As Integer
    For i = 1 To 13
        Fans = Fans & " " & Worksheets("feuil1").OLEObjects("ComboBox" & i).Object.Value
    Next i
End Sub
Messages postés
7
Date d'inscription
lundi 4 mai 2015
Statut
Membre
Dernière intervention
5 juin 2015

Sa fonctionne super bien !
Merci pour ton aide! C'est très apprécié!
Bonne journée