VBA, Excel If, ElseIf ,then

Version imprimable

Bonjour!

Je n'arrive pas à imbriquer plusieurs conditions au sein d'une sub, voici ce que j'ai fait:

Code:

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
38
39
40
41
42
43
44
45
Private Sub Commandbutton_Click()
Worksheets("feuil1").Activate
 
If optionbutton1 = True Then
 
    If ComboBox.listindex = x Then
    label.Caption = Range("A1").Value
 
    If ComboBox.listindex = y Then
    label.Caption = Range("A2").Value
 
    Else
    label.Caption = Range("A3")
 
End If
End If
 
ElseIf optionbutton2 = True Then
 
    If ComboBox.listindex = x Then
    label.Caption = Range("B1").Value
 
    If ComboBox.listindex = y Then
    label.Caption = Range("B2").Value
 
    Else
    label.Caption = Range("B3").Value
End If
End If
 
ElseIf optionbutton3 = True Then
 
    If ComboBox.listindex = x Then
    label.Caption = Range("C1").Value
 
    If ComboBox.listindex = y Then
    label.Caption = Range("C2").Value
 
    Else
    label.Caption = Range("C3").Value
End If
End If
 
End If
End Sub

Et voilà, à chaque fois la même valeur apparaît pour chaque optionbutton respectivement: A3, B3 et C3...

Je vous serais énormément reconnaissant de m'aider!! :) :)

Merci et bonne soirée!!

07/05/2008, 01h02
Gorfael

Salut Perrinec
Donner un code qui ne fait pas ce que tu veux ne sert à rien!
Donne le but à atteindre! Sans idée de ce qu'on doit faire, comment comprendre le problème ?
Tu as trois bouton et ?
A+

Code:

1 2 3 4 5 6 7 8 9 If optionbutton1 = True Then If ComboBox.listindex = x Then label.Caption = Range("A1").Value If ComboBox.listindex = y Then label.Caption = Range("A2").Value Else label.Caption = Range("A3") End If End If
Déjà : en indentant proprement, on voit bien qu'il y a erreur de syntaxe (sans préjudice du reste)...ou alors un code recopié incomplètement
On se demande enfin à quoi peut bien servir :

Code:

label.Caption = Range("A1").Value

puisque l'on remodifie le caption de ce label quel que soit le cas de figure

Il n'est par ailleurs pas adroit de nommer "Label" un contrôle Label

07/05/2008, 09h02
Gorfael
Salut ucfoutu

Citation:

Déjà : en indentant proprement, on voit bien qu'il y a erreur de syntaxe (sans préjudice du reste)...ou alors un code recopié incomplètement

Je pense plutôt à un code mal compris et "adapter" ligne par ligne, sans tenir compte de la globalité du fonctionnement. Je pense à une erreur de raisonnement, pas de syntaxe.
Code:

1 2 If ComboBox.ListIndex = x Then If ComboBox.ListIndex = y Then
me laisse pantois :P
La 2me instruction ne pouvant être exécutée que si la 1er est à VRAI, je subodore que la 2me sera toujours à FAUX (mais je peut me tromper :mrgreen:

Déjà, une déclaration obligatoire des variables amènerait sans doute des erreurs. Renommer ComboBox et Label des contrôles m'interpelle moi aussi.
Le code me laisse supposer l'utilisation de contrôles issus de la barre d'outils "Boîte à outils contrôle"

une petite explication du but à atteindre me semble plus nécessaire que de mettre un code qui ne marche pas (j'en ai plein en réserve si on en a besoin)
Et vu la tournure, un petit fichier d'essai ne serait pas un luxe.

A+

Salut,

Une autre solution est d'utiliser "Select Case":

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
If optionbutton1 = True Then
 
   Select Case  ComboBox.listindex 
            Case x  
                   label.Caption = Range("A1").Value
            Case y 
                   label.Caption = Range("A2").Value 
            Case Else 
                   label.Caption = Range("A3")    
   End Select
 
End If

07/05/2008, 12h10
sophiefag

Bonjour,
Quand on fait cette macro, le case y ne marche pas.
Quand le case x n'a pas lieu, il semble que la macro va directement au case else, car le résultat qui s'affiche est le même pour le case y et le case else.
Comment faire pour modifier ça? ça ne doit pas être bien dificile...
Merci d'avance!
07/05/2008, 13h35
Beluga_71

Salut Sophiefag,

Désolé je ne vois pas ce que tu veux dire... Mise a part que pour "Case Else" il y a un ".value" qui manque le reste me semble correct... (je ne l'ai pas essayé dans ce cas precis, il me faudrait le fichier de Perrinec)... Logiquement si "ComboBox.ListIndex" correspond a x il traitera "case x" si c y "Case y" et si ni l'un ni l'autre "Case Else"...
07/05/2008, 14h50
Gorfael

Salut Beluga_71, Sophiefag et le forum

Citation:

Mise a part que pour "Case Else" il y a un ".value" qui manque

.Value étant la proprièté par défaut son ommission ne change strictement rien.

Citation:

Comment faire pour modifier ça? ça ne doit pas être bien dificile...

Non, ce n'est pas bien difficile... à condition de savoir ce que tu veux obtenir
Ton code ne fait pas ce que tu veux, donc je ne peux pas m'appuyer dessus, et ma boule de cristal est en panne => donc fait un effort, ce ne doit pas être bien difficile d'expliquer ce que tu veux obtenir avec ta macro!!!
A+

1 pièce(s) jointe(s)

Bonsoir à tous.

Dans le fichier joint, il y a 2 macros (pour le bouton de l'USF) : l'une active et concentrée et l'autre à "activer" et détaillée.
Voilà la première :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub Commandbutton_Click()
  For i = 1 To 3
    If Controls("OptionButton" & i) = True Then
      Select Case ComboBox.ListIndex
      Case 0
        Label.Caption = Cells(1, i).Value
      Case 1
        Label.Caption = Cells(2, i).Value
      Case Else
        Label.Caption = Cells(3, i).Value
      End Select
    End If
  Next
End Sub

Il n'y a plus de IF !

Bonjour, Ordonc,

je n'ai pas ouvert le fichier, mais ce que tu as écrit là :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Commandbutton_Click()
  For i = 1 To 3
    If Controls("OptionButton" & i) = True Then
      Select Case ComboBox.ListIndex
      Case 0
        Label.Caption = Cells(1, i).Value
      Case 1
        Label.Caption = Cells(2, i).Value
      Case Else
        Label.Caption = Cells(3, i).Value
      End Select
    End If
  Next
End Sub

Veut tout simplement dire :

Code:

1
2
3
4
5
6
7
8
9
Private Sub Commandbutton_Click()
   y = ComboBox.ListIndex
   if y > 1 then y = 2
   For i = 1 To 3
     If Controls("OptionButton" & i) = True Then
        Label.Caption = Cells(y+1, i).Value
     End If
   Next
End Sub

15/05/2008, 08h08
OrDonc

Bonjour à tous,

Tu as bien résumé la chose ucfoutu !

Ce qui ne répond pas à la question de Perrinec...
Et tant qu'il n'a pas expliqué ce qu'il veut obtenir, je pense comme Gorfael qu'une boule de cristal ny suffirait pas.

Bienvenue sur le forum, Perrinec.
Comme le soulignent Gorfael et ucfoutu, ton code présente plusieurs erreurs évidentes. Lis ce qu'ils ont mis, tu comprendras.
Pour comprendre ce qui ne va pas, indente correctement ton code.

Code:

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
38
Private Sub Commandbutton_Click()
    Worksheets("feuil1").Activate
    
    If optionbutton1 = True Then
        If ComboBox.ListIndex = x Then
            Label.Caption = Range("A1").Value
'Ici : Si ComboBox.ListIndex = y, tu ne passeras jamais par les ligne suivantes
            If ComboBox.ListIndex = y Then
                Label.Caption = Range("A2").Value
                Else
                Label.Caption = Range("A3") 
            End If
        End If
    
    ElseIf optionbutton2 = True Then
        If ComboBox.ListIndex = x Then
            Label.Caption = Range("B1").Value
'Ici : Si ComboBox.ListIndex = y, tu ne passeras jamais par les ligne suivantes
            If ComboBox.ListIndex = y Then
                Label.Caption = Range("B2").Value
                Else
                Label.Caption = Range("B3").Value
            End If
        End If
    
    ElseIf optionbutton3 = True Then
        If ComboBox.ListIndex = x Then
            Label.Caption = Range("C1").Value
'Ici : Si ComboBox.ListIndex = y, tu ne passeras jamais par les ligne suivantes
            If ComboBox.ListIndex = y Then
                Label.Caption = Range("C2").Value
                Else
                Label.Caption = Range("C3").Value
            End If
        End If
    
    End If
End Sub

Sans comprendre vraiment, il semblerait que tu veuilles faire ça

Code:

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
Private Sub Commandbutton_Click()
    Worksheets("feuil1").Activate
 
    If optionbutton1 = True Then
        If ComboBox.ListIndex = x Then
                Label.Caption = Range("A1").Value
            ElseIf ComboBox.ListIndex = y Then
                Label.Caption = Range("A2").Value
            Else
                Label.Caption = Range("A3")
        End If
 
    ElseIf optionbutton2 = True Then
        If ComboBox.ListIndex = x Then
                Label.Caption = Range("B1").Value
            ElseIf ComboBox.ListIndex = y Then
                Label.Caption = Range("B2").Value
            Else
                Label.Caption = Range("B3").Value
        End If
 
    ElseIf optionbutton3 = True Then
        If ComboBox.ListIndex = x Then
                Label.Caption = Range("C1").Value
            ElseIf ComboBox.ListIndex = y Then
                Label.Caption = Range("C2").Value
            Else
                Label.Caption = Range("C3").Value
        End If
 
    End If
End Sub

ucfoutu et/ou Gorfael se feront un plaisir de simplifier mais teste déjà ça pour voir si c'est bien ce que tu veux obtenir. ;)
A+