Bonjour,

voila je me posait une question, j'ai un programme qui compare des valeurs dans un champ texte.
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
    If (Interv.text = "Arp") Then           'on cherche quelle valeur est selectionnee et on lui attribut une valeur
        seq8 = "WR0059,3031" & Chr(13)
    ElseIf (Interv.text = "autres") Then
        seq8 = "WR0059,3032" & Chr(13)
    ElseIf (Interv.text = "DAC") Then
        seq8 = "WR0059,3033" & Chr(13)
    ElseIf (Interv.text = "FBO") Then
        seq8 = "WR0059,3034" & Chr(13)
    ElseIf (Interv.text = "FW") Then
        seq8 = "WR0059,3035" & Chr(13)
    ElseIf (Interv.text = "GB") Then
        seq8 = "WR0059,3036" & Chr(13)
    ElseIf (Interv.text = "maintenance") Then
        seq8 = "WR0059,3037" & Chr(13)
    ElseIf (Interv.text = "mouliste") Then
        seq8 = "WR0059,3038" & Chr(13)
    ElseIf (Interv.text = "NBR") Then
        seq8 = "WR0059,3039" & Chr(13)
    ElseIf (Interv.text = "STH") Then
        seq8 = "WR0059,3130" & Chr(13)
    ElseIf (Interv.text = "TC") Then
        seq8 = "WR0059,3131" & Chr(13)
    End If
    Sleep 500
    MSComm3.Output = seq8
quand je la passe en mode debug, ca marche la bonne valeur est choisie et tout et tout... Mais quand je relis, mis a part pour le texte "TC" rien n'apparait ca le fait pour toutes les valeurs sauf la derniere.

c'est peut etre tellement bête que je ne l'ai pas vu ou je suis plus bête que je ne pensais déja. Quelqu'un verrai un truc qui colle pas dans mon test.?

merci