comment faire une boucle

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
Excel-lent

Excel-lent

XLDnaute Barbatruc
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
S

sabzzz

XLDnaute Junior
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
D

deeppurple

XLDnaute Nouveau
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
Excel-lent

Excel-lent

XLDnaute Barbatruc
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
D

deeppurple

XLDnaute Nouveau
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

Membres actuellement en ligne

3 membres et 48 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 571
Messages
2 089 809
Membres
104 278
dernier inscrit
LENZY