probleme avec la commande GoTo

Version imprimable

Bonjour,
Je voudrais effectuee une analyse systematique de ce que l'utilisateur de mon programme a choisi dans une listbox (nommee Rphrases). s'il a presse telle ligne il renvoie une certaine valeur dans une boite de texte (Cosshcat), s'il a presse une autre ligne il renvoie une autre valeur et ainsi de suite. Malheureusement, le code que j'ai ci-dessous ne fonctionne pas et me donne l'erreur suivante:
"compile error
label not defined" avec la ligne GoTo rcosshcat4 surlignee.
Pourriez vous m'aidez sur ce point ou eventuellement me dire si ca n'est pas la meilleure facon d'analyser les resultats d'une listbox.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 If Rphrases.Selected(35) Or Rphrases.Selected(37) _ Or Rphrases.Selected(64) Or Rphrases.Selected(66) _ Or Rphrases.Selected(83) Then If Val(CosshCat.Text) = 0 Then CosshCat.Text = ("5") End If Else: GoTo rcosshcat4 End If rcoshhcat4: If Rphrases.Selected(19) Or Rphrases.Selected(20) _ Or Rphrases.Selected(69) Or Rphrases.Selected(70) _ Or Rphrases.Selected(71) Or Rphrases.Selected(72) _ Or Rphrases.Selected(20) Then If Val(CosshCat.Text) > 4 Then CosshCat.Text = ("4") End If Else: GoTo rcosshcat3 End If etc...
Merci d'avance.

Fred.

24/09/2008, 11h52
David2304

Bonjour,

Vérifie ton orthographe rcosshcat4 et rcoshhcat4:
24/09/2008, 12h03
ucfoutu

Bonjour,

Je ne vois pas l'intégralité de ton code, mais il me semble que tu peux évoter tous ces goto gênants à divers titres (par un select case, par exemple)...
24/09/2008, 12h04
froggyaz

En ajoutant les deux points, j'ai toujours le meme probleme.
Fred
24/09/2008, 12h06
David2304

le problème ne vient pas des 2 points
rcosshcat4 et rcoshhcat4 ne sont pas écrits pareils
24/09/2008, 12h18
ouskel'n'or

Un conseil : Suis les conseils d'ucfoutu ;)
L'utilisation de goto dans le code est la pire des façons de programmer. On les réserve pour la gestion d'erreurs et encore, seulement quand ces erreurs imposent une sortie de procédure.
Enfin, dans une boucle, les goto saturent la pile, ce qui peut avoir pour effet de planter l'application, en l'occurence Excel, et pas seulement la macro. Bref, dans ce cas là, si des modifs ont été réalisées, tu les perds.
Juste un conseil en passant. 8-)

A David: effectivement,c'etait bien une erreur de frappe Coshh au lieu de cossh. c'est le genre d'erreur qu'on ne voit plus apres un certain temps.
et ca fonctionne plutot bien.

j'ai maintenant essaye de faire passer la boucle logique avec un select case et ca ne marche pas aussi bien. je l'avais considere avant mais je ne voyais pas comment faire pour inclure les deux conditions (quelle ligne de combobox lutilisateur a selectionne et quelle est la valeur dans la boite de texte).
voici ce que j'avais ecris:

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
Select Case Rphrases.Selected(i)
Case Is = Rphrases.Selected(35) Or Rphrases.Selected(37) _
Or Rphrases.Selected(64) Or Rphrases.Selected(66) _
Or Rphrases.Selected(83)
    If Val(CosshCat.Text) = 0 Then
    CosshCat.Text = ("5")
    End If
 
Case Is = Rphrases.Selected(19) Or Rphrases.Selected(20) _
            Or Rphrases.Selected(69) Or Rphrases.Selected(70) _
            Or Rphrases.Selected(71) Or Rphrases.Selected(72) _
            Or Rphrases.Selected(20)
                If Val(CosshCat.Text) > 4 Then
                CosshCat.Text = ("4")
                End If
 
 
Case Is = Rphrases.Selected(22) Or Rphrases.Selected(23) _
            Or Rphrases.Selected(24) Or Rphrases.Selected(33) _
            Or Rphrases.Selected(34) Or Rphrases.Selected(36) _
            Or Rphrases.Selected(40) Or Rphrases.Selected(42) _
            Or Rphrases.Selected(73) Or Rphrases.Selected(74) _
            Or Rphrases.Selected(75) Or Rphrases.Selected(76) _
            Or Rphrases.Selected(81) Or Rphrases.Selected(82) _
            Or Rphrases.Selected(84) Or Rphrases.Selected(86) _
            Or Rphrases.Selected(87) Or Rphrases.Selected(88) _
            Or Rphrases.Selected(89) Or Rphrases.Selected(90) _
            Or Rphrases.Selected(91) Or Rphrases.Selected(92)
                If Val(CosshCat.Text) > 3 Then
                CosshCat.Text = ("3")
                End If
Case else: CosshCat.Text = ("2")
End Select

Merci pour vos conseils.
Fred.

Salut,

tes tests sont mal écrit. pas de Case IS = avec or. Cette syntaxe est inexistante
Les or sont à remplacer par ,

La solution était clairement visible dans le help de VBA. Tu connais <F1> ? ;)

essaie ceci (non testé... !!)

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
 
With Rphrases
Select Case True
Case .Selected(35), .Selected(37), .Selected(64), .Select(66), .Selected(83)
    If Val(CosshCat.Text) = 0 Then
    CosshCat.Text = ("5")
    End If
 
Case .Selected(19), .Selected(20), .Selected(69), .Selected(70) _
            .Selected(71), .Selected(72), .Selected(20)
                If Val(CosshCat.Text) > 4 Then
                CosshCat.Text = ("4")
                End If
 
 
Case .Selected(22), .Selected(23), .Selected(24), .Selected(33) _
     .Selected(34), .Selected(36), .Selected(40), .Selected(42) _
     .Selected(73), .Selected(74), .Selected(75), .Selected(76) _
     .Selected(81), .Selected(82), .Selected(84), .Selected(86) _
     .Selected(87), .Selected(88), .Selected(89), .Selected(90) _
     .Selected(91), .Selected(92)
      If Val(CosshCat.Text) > 3 Then
                CosshCat.Text = ("3")
      End If
Case Else: CosshCat.Text = ("2")
End Select

24/09/2008, 16h04
froggyaz

Eh bien merci pour le morceau de code et pour le conseil pour la touche F1: le tout est resolu.
Bonne journee.