Select Case En FOR

Signaler
Messages postés
2
Date d'inscription
mardi 12 septembre 2006
Statut
Membre
Dernière intervention
12 septembre 2006
-
Messages postés
797
Date d'inscription
mardi 7 juin 2005
Statut
Membre
Dernière intervention
23 février 2011
-
bonjour et merci par avance de votre aide,

j'aurais aimé transformer un Select Case en boucle for

choix = InputBox("Type conso ? (AA=1, BB=2, CC=3) ", "Choix", 1)
Select Case choix
    Case 1
        colonne = 34
        type_conso = "AA"
    Case 2
        colonne = 35
        type_conso = "BB"
    Case 3
        colonne = 36
        type_conso = "CC"
           
End Select

L'idée est de boucler sur les trois choix au lieu de de selectionner dans input box

Merci

3 réponses

Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
Salut,
Je ne sais pas du tout si j'ai compris ce qu'il fallait faire mais je te propose tout de même ceci
Dim i As Integer 

    For i = 1 To 3 
        colonne = 33 + i 
        type_conso = Chr(64 + i) & Chr(64 + i) 
        MsgBox colonne & type_conso 
    Next 
 

<small> Coloration syntaxique automatique [AFCK]</small>
       

@+,   Ju£i?n
Messages postés
2
Date d'inscription
mardi 12 septembre 2006
Statut
Membre
Dernière intervention
12 septembre 2006

Merci beaucoup de ton aide,

En faite
Ce que j'aimerais c'est que la boucle lorsqu'elle arrive à la case "1" execute le reste du script, puis reviennent et execute la case 2 puis la case 3

Actuellement je doit rentrer dans la boite de dialogue 1 ou 2 ou 3

Merci

choix = InputBox("Type conso ? (Maman=1, peu import=2, rigolos=3) ", "Choix", 1)
Select Case choix
    Case 1
        colonne = 34
        type_conso = "Maman"
    Case 2
        colonne = 35
        type_conso = "peu import"
    Case 3
        colonne = 36
        type_conso = "rigolos"
           
End Select
Messages postés
797
Date d'inscription
mardi 7 juin 2005
Statut
Membre
Dernière intervention
23 février 2011
7
Et bien, c'est exactement ce que fait le code de jrivet (sauf qu'il a mis le code ASII pour représenter tes lettres, puisque tu disais AA, BB, ...)

Pour effectuer les 3 choix dans ta boucle, tu peux faire :

For i = 34 to 36
        colonne = i
        Select Case i
               Case 34
                    type_conso = "Maman"
               Case 35
                    type_conso = "peu import"
               Case 36
                    type_conso = "rigolos"
        End  Select
Next i

Le pb avec ton bout de code (je suppose qu'il y a autre chose, sinon, ça n'a aucun intérêt en fait), tu ne vois pas que tes variables colonne et type_conso sont passées par les 3 valeurs. Ca te ressortira forcément :
colonne = 36
type_conso = "rigolos"
Normal, ta boucle alimente systématiquement les 2 mêmes variables

Molenn