Boucle avec combobox [VBA][Excel]

Résolu/Fermé

Slaman84 Messages postés 7 Date d'inscription lundi 4 mai 2015 Statut Membre Dernière intervention 5 juin 2015 - 5 juin 2015 à 16:45
Slaman84 Messages postés 7 Date d'inscription lundi 4 mai 2015 Statut Membre Dernière intervention 5 juin 2015 - 5 juin 2015 à 17:50

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

A voir également:

Boucle avec combobox [VBA][Excel]
Liste déroulante excel - Guide
Formule excel - Guide
Si et excel - Guide
Aller à la ligne excel - Guide
Mise en forme conditionnelle excel - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
5 juin 2015 à 17:21

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

Slaman84 Messages postés 7 Date d'inscription lundi 4 mai 2015 Statut Membre Dernière intervention 5 juin 2015
5 juin 2015 à 17:26

Merci mais sa ne fonctionne pas. Quand j'essais le code de Ventilateur(Fans), j'ai une erreur de compilation "Membre de méthode ou de données introuvable"....

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > Slaman84 Messages postés 7 Date d'inscription lundi 4 mai 2015 Statut Membre Dernière intervention 5 juin 2015
5 juin 2015 à 17:31

Re,

Quand j'essais le code de Ventilateur(Fans)
Question: vos combobox sont dans ou sur quoi, feuille ou Userform ????

Slaman84 Messages postés 7 Date d'inscription lundi 4 mai 2015 Statut Membre Dernière intervention 5 juin 2015
5 juin 2015 à 17:33

une feuille excel

Re,

Normal que ca ne marche pas, je regarde pour feuille

Slaman84 Messages postés 7 Date d'inscription lundi 4 mai 2015 Statut Membre Dernière intervention 5 juin 2015
5 juin 2015 à 17:36

merci je fais mes recherches de mon côté aussi

Discussions similaires

Excel VBA : Récupérer la valeur d'une cellule

Discussions similaires

Newsletters