comment faire une boucle

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion deeppurple
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
D

deeppurple

XLDnaute Nouveau
<bonjour le forum,

j'ai 28 combobox avec 28 données différentes.

donc j'ai écrit ce code là 28 fois pour chaque combobox(sachant que mes combobox se suivent et vont de 12 à 39)

Code: 
Select Case ComboBox12
        Case "Cartes"
        Xls.Cells(lLig, 39) = TextBox868.Value
        Xls.Cells(lLig, 40) = TextBox854.Value
        Case "Cartes de paiement"
        Xls.Cells(lLig, 42) = TextBox868.Value
        Xls.Cells(lLig, 43) = TextBox854.Value
        Case "cartes riches"
        Xls.Cells(lLig, 45) = TextBox868.Value
        Xls.Cells(lLig, 46) = TextBox854.Value
        Case "claviers"
        Xls.Cells(lLig, 48) = TextBox868.Value
        Xls.Cells(lLig, 49) = TextBox854.Value
        Case "composants electro"
        Xls.Cells(lLig, 51) = TextBox868.Value
        Xls.Cells(lLig, 52) = TextBox854.Value
        Case "compteurs"
        Xls.Cells(lLig, 54) = TextBox868.Value
        Xls.Cells(lLig, 55) = TextBox854.Value
        Case "contacteurs/disjonct"
        Xls.Cells(lLig, 57) = TextBox868.Value
        Xls.Cells(lLig, 58) = TextBox854.Value
        Case "copieur"
        Xls.Cells(lLig, 60) = TextBox868.Value
        Xls.Cells(lLig, 61) = TextBox854.Value
        Case "deee"
        Xls.Cells(lLig, 63) = TextBox868.Value
        Xls.Cells(lLig, 64) = TextBox854.Value
        Case "disques durs"
        Xls.Cells(lLig, 66) = TextBox868.Value
        Xls.Cells(lLig, 67) = TextBox854.Value
        Case "écrans crt"
        Xls.Cells(lLig, 69) = TextBox868.Value
        Xls.Cells(lLig, 70) = TextBox854.Value
        Case "écrans tft"
        Xls.Cells(lLig, 72) = TextBox868.Value
        Xls.Cells(lLig, 73) = TextBox854.Value
        Case "electro portatif"
        Xls.Cells(lLig, 75) = TextBox868.Value
        Xls.Cells(lLig, 76) = TextBox854.Value
        Case "encre & toner"
        Xls.Cells(lLig, 78) = TextBox868.Value
        Xls.Cells(lLig, 79) = TextBox854.Value
        Case "imprimante"
        Xls.Cells(lLig, 81) = TextBox868.Value
        Xls.Cells(lLig, 82) = TextBox854.Value
        Case "manettes de jeux"
        Xls.Cells(lLig, 84) = TextBox868.Value
        Xls.Cells(lLig, 85) = TextBox854.Value
        Case "non valorisable"
        Xls.Cells(lLig, 87) = TextBox868.Value
        Xls.Cells(lLig, 88) = TextBox854.Value
        Case "onduleur"
        Xls.Cells(lLig, 90) = TextBox868.Value
        Xls.Cells(lLig, 91) = TextBox854.Value
        Case "papier"
        Xls.Cells(lLig, 93) = TextBox868.Value
        Xls.Cells(lLig, 94) = TextBox854.Value
        Case "papier sensible"
        Xls.Cells(lLig, 96) = TextBox868.Value
        Xls.Cells(lLig, 97) = TextBox854.Value
        Case "pc portable"
        Xls.Cells(lLig, 99) = TextBox868.Value
        Xls.Cells(lLig, 100) = TextBox854.Value
        Case "pe-ld"
        Xls.Cells(lLig, 102) = TextBox868.Value
        Xls.Cells(lLig, 103) = TextBox854.Value
        Case "piles alcalines"
        Xls.Cells(lLig, 105) = TextBox868.Value
        Xls.Cells(lLig, 106) = TextBox854.Value
        Case "serveur"
        Xls.Cells(lLig, 108) = TextBox868.Value
        Xls.Cells(lLig, 109) = TextBox854.Value
        Case "traceur"
        Xls.Cells(lLig, 111) = TextBox868.Value
        Xls.Cells(lLig, 112) = TextBox854.Value
        Case "tubes d'écrans"
        Xls.Cells(lLig, 114) = TextBox868.Value
        Xls.Cells(lLig, 115) = TextBox854.Value
        Case "tubes fluo"
        Xls.Cells(lLig, 117) = TextBox868.Value
        Xls.Cells(lLig, 118) = TextBox854.Value
        Case "uc"
        Xls.Cells(lLig, 120) = TextBox868.Value
        Xls.Cells(lLig, 121) = TextBox854.Value
        
        End Select

quand j'ai voulu testé mon userform, cela me marque " procédure trop grande"

je pense que faire une boucle serait la solution, mais je ne sais pas du tout comment utiliser les boucles

merci pour votre aide
 
Trier par date Trier par votes
Re : comment faire une boucle

Bonsoir Deeppurple, le fil,

En effet, une chose est sûr, tu peux faire une boucle dans ton exemple ci-dessous!

Il semble a première vue possible de faire deux boucles imbriqués :
-> une détaillant quoi faire pour la ComboBox...
-> une bouclant sur tes 28 ComboBox
-> une à placer à l'intérieur, gérant toutes tes solutions

Plusieurs boucles sont possibles! Tu peux utiliser la boucle :
-> For ... To ... Next
-> For each ...

Tu trouveras ici un tutorial sur les boucles bien résumé (merci à Cathy).

Si tu veux une réponse plus précise, j'aurais besoin d'un extrait de ton fichier.

Bonne fin de soirée
 
Vote positif 0 Vote négatif
Re : comment faire une boucle

bonjour,

voici une solution sans boucle,

LaListe = Array("Cartes de paiement", "cartes riches", "Cartes", "claviers", _
"composants electro", "compteurs", "contacteurs/disjonct", "copieur", _
"deee", "disques durs", "écrans crt", "écrans tft", "electro portatif", _
"encre & toner", "imprimante", "manettes de jeux", "non valorisable", _
"onduleur", "papier sensible", "papier", "pc portable", "pe-ld", _
"piles alcalines", "serveur", "traceur", "tubes d'écrans", "tubes fluo", "uc")

pos = Application.Match(ComboBox12, LaListe, 0)
colonne1 = (pos * 2) + 37 + pos - 1
colonne2 = (pos * 2) + 37 + pos
Xls.Cells(lLig, colonne1) = TextBox868.Value
Xls.Cells(lLig, colonne2) = TextBox854.Value
 
Vote positif 0 Vote négatif
Re : comment faire une boucle

le code de sabzzz marche impeccable donc je l'ai fait pour mes 28 combobox différents par contre quand je remplis mon userform, je suis obligé de remplir mes 28 combobox.
Je voudrais savoir si je veux remplir que 4 combobox, ce que je dois rajouter au code pour qu'il fonctionne
merci d'avance
 
Vote positif 0 Vote négatif
Re : comment faire une boucle

Bonsoir Deeppurple, le fil,

deeppurple à dit:
le code de sabzzz marche impeccable donc je l'ai fait pour mes 28 combobox différents
Cliquez pour agrandir...

Je suppose que tu as fais ceci :
Code: 
Sub Test()

LaListe = Array("Cartes de paiement", "cartes riches", "Cartes", "claviers", _
"composants electro", "compteurs", "contacteurs/disjonct", "copieur", _
"deee", "disques durs", "écrans crt", "écrans tft", "electro portatif", _
"encre & toner", "imprimante", "manettes de jeux", "non valorisable", _
"onduleur", "papier sensible", "papier", "pc portable", "pe-ld", _
"piles alcalines", "serveur", "traceur", "tubes d'écrans", "tubes fluo", "uc")


[COLOR="Blue"][B]For j = 1 To 28[/B][/COLOR]

      pos = Application.Match([COLOR="Blue"][B]Controls("ComboBox" & j)[/B][/COLOR], LaListe, 0)
      colonne1 = (pos * 2) + 37 + pos - 1
      colonne2 = (pos * 2) + 37 + pos
      Xls.Cells(lLig, colonne1) = TextBox868.Value
      Xls.Cells(lLig, colonne2) = TextBox854.Value

[B][COLOR="Blue"]Next j[/COLOR][/B]

End Sub

Partie rajouté et/ou modifié

C'est bien ce que tu as fait?

A partir de ce code, voici un petit ajout pour gérer les Combobox non rempli :


Code: 
Sub Test()

LaListe = Array("Cartes de paiement", "cartes riches", "Cartes", "claviers", _
"composants electro", "compteurs", "contacteurs/disjonct", "copieur", _
"deee", "disques durs", "écrans crt", "écrans tft", "electro portatif", _
"encre & toner", "imprimante", "manettes de jeux", "non valorisable", _
"onduleur", "papier sensible", "papier", "pc portable", "pe-ld", _
"piles alcalines", "serveur", "traceur", "tubes d'écrans", "tubes fluo", "uc")


For j = 1 To 28

   [COLOR="Gray"][B]If Controls("ComboBox" & j).Value <> "" Then
[/B][/COLOR]   
      pos = Application.Match(Controls("ComboBox" & j), LaListe, 0)
      colonne1 = (pos * 2) + 37 + pos - 1
      colonne2 = (pos * 2) + 37 + pos
      Xls.Cells(lLig, colonne1) = TextBox868.Value
      Xls.Cells(lLig, colonne2) = TextBox854.Value
      
[COLOR="Gray"][B]   End If[/B][/COLOR]

Next j

End Sub

N'ayant tjrs pas ton fichier, je n'ai pu tester mon code, mais normalement cela semble ok!

Bonne soirée
 
Vote positif 0 Vote négatif
Re : comment faire une boucle

bonjour excel-lent,

je t'enverrai mon fichier samedi matin, j'aurais plus le temps car je quitte tard du taf et en ce moment super crevée

merci en attendant pour ton code mais je testerai samedi et je t'enverrai mon fichier d'ébauche

bonne soirée
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour