Discussion :

[Xocoi]

Salut!

Je voudrais afficher un résultat dans un userform et j'utilise "if then elseif then.."
2 possibilités et "select case" avec trois cas possibles chaque fois et seulement deux s'affichent je vous joint mon fichier!

Merci!

[Le Pierre]

bonjour

comme tu testes sur "periode.ListIndex" tu récupères 0, 1 ou 2 et non "quotidien", ... d'où ton problème.
Voici le code modifié :

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
Private Sub calculerCA_Click()
    Worksheets("CA").Activate
    If entrepriseA = True Then
        Select Case periode.ListIndex
            Case 0 'quotidien
                afficheCA.Caption = Range("B2").Value
            Case 1 'mensuel
                afficheCA.Caption = Range("B3").Value
            Case 2 'Else
                afficheCA.Caption = Range("B4").Value
        End Select
    ElseIf entrepriseB = True Then
      Select Case periode.ListIndex
            Case 0 'quotidien
                afficheCA.Caption = Range("C2").Value
            Case 1 'mensuel
                afficheCA.Caption = Range("C3").Value
            Case 2 'Else
                afficheCA.Caption = Range("C4").Value
        End Select
    End If
End Sub

à plus

[Godzestla]

Et si tu veux tester sur la valeur, voici comment faire :

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
37
 
Private Sub calculerCA_Click()
Worksheets("CA").Activate
 
If entrepriseA = True Then
 
    Select Case periode.Value
 
        Case "Quotidien"
            afficheCA.Caption = Range("B2").Value
 
        Case "Mensuel"
            afficheCA.Caption = Range("B3").Value
 
        Case Else
            afficheCA.Caption = Range("B4").Value
 
        End Select
 
 
 
ElseIf entrepriseB = True Then
 
  Select Case periode.Value
 
        Case "Quotidien"
            afficheCA.Caption = Range("C2").Value
 
        Case "Mensuel"
            afficheCA.Caption = Range("C3").Value
 
        Case Else
            afficheCA.Caption = Range("C4").Value
 
        End Select
End If
End Sub

A+
Thierry.