Discussion :

[froggyaz]

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 :

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
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.

[David2304]

Bonjour,

Vérifie ton orthographe rcosshcat4 et rcoshhcat4:

[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)...

[froggyaz]

En ajoutant les deux points, j'ai toujours le meme probleme.
Fred

[David2304]

le problème ne vient pas des 2 points
rcosshcat4 et rcoshhcat4 ne sont pas écrits pareils

[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.

[froggyaz]

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 :

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
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.

[Godzestla]

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 :

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
 
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

:

[froggyaz]

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