Discussion :

[Mou]

Bonjour,

J'ai un userform dans lequel j'ai quatre optionbutton. J'aimerai savoir qu'elle est le code pour distinguer chacun des boutons, en utilisant une fonction "Case" au lieu d'utiliser des boucles "IF" imbriques...

Merci

[ouskel'n'or]

Montre ton code avec tes ifs, on te mettra des cases là où il faut qu'elles soient, si c'est possible...
A+

[Mou]

Bien sur ! Merci en tout cas de l'aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
ComparaisonVisu.Show
 
 
If ComparaisonVisu.OptionButton3 = True Then
 
    STRSQL3 = "SELECT  Avg(CLO.Vintage) AS MoyenneVintage, avg(CLO.SettlementDate) AS MoyenneSettlementdate, avg(CLO.SizeDeal) AS MoyenneSizeDeal, Count(CLO.Vintage) AS NombreVintage " & _
              "FROM CLO"
 
    Set Rs3 = Db1.OpenRecordset(STRSQL3, dbOpenSnapshot)
 
    Range("I10").CopyFromRecordset Rs3
 
End If
 
If ComparaisonVisu.OptionButton2 = True Then
 
    STRSQL2 = "SELECT  Avg(CLO.Vintage) AS MoyenneVintage, avg(CLO.SettlementDate) AS MoyenneSettlementdate, avg(CLO.SizeDeal) AS MoyenneSizeDeal, Count(CLO.Vintage) AS NombreVintage " & _
              "FROM CLO"
 
    Set Rs2 = Db1.OpenRecordset(STRSQL2, dbOpenSnapshot)
 
    Range("I10").CopyFromRecordset Rs2
 
End If
 
If ComparaisonVisu.OptionButton1 = True Then
 
    STRSQL2 = "SELECT  Avg(CLO.Vintage) AS MoyenneVintage, avg(CLO.SettlementDate) AS MoyenneSettlementdate, avg(CLO.SizeDeal) AS MoyenneSizeDeal, Count(CLO.Vintage) AS NombreVintage " & _
              "FROM CLO"
 
    Set Rs1 = Db1.OpenRecordset(STRSQL1, dbOpenSnapshot)
 
    Range("I10").CopyFromRecordset Rs1
 
End If

Et en fait j'ai 4 gros cas comme ca et avec dedans des mini cas a traiter normalement....

[AlainTech]

Euh...

Je me trompe ou tous tes cas contiennent exactement le même code (à part les noms des variables)?

[Mou]

Oui oui mais c'est parce que je bosse sur le code et que j'ai fait des copier coller pour expliciter ce que je voulais dire !

[AlainTech]

Du coup, pour essayer de simplifier le vrai code, c'est pas évident...

Pourquoi ne nous donnes-tu pas le code réel?