Point d'interrogation test

Version imprimable

19/02/2007, 11h42
julio02200

Point d'interrogation test

Bonjour,

Je suis en train de faire un test d'une variable:
si le caractere est égal à "?" .....

Je n'arrive pas à coder ça. J'ai essayé avec le code ascii (carac=0xF3) ou en mettant carac="?", ceci ne fonctionne toujours pas.

Qqun pourrait-il m'aider?

Merci d'avance

salut,

tu peut tester avec ca, ca marche bien.

Code:

1
2
3
4
5
 If Me.TextBox1.Text = "?" Then
            MsgBox("il y a ?")
        Else
            MsgBox("il n'y a pas de ?")
        End If

bonne chance.

19/02/2007, 11h53
julio02200

C'est bien ce que j'ai essayé mais ceci ne fonctionne pas. Je ne sais pas pourquoi. Si je remplace le point d'interrogation dans ce code ("?") par une lettre quelconque (A,B...etc), ceci fonctionne.
19/02/2007, 11h55
More

tu peut filler ton code pour que je puisse savoir ou se trouve exactement l'erreur.

Le code fonctionne jusqu'à la ligne où il y a le point d'interrogation...
Je te remercie d'avance.

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
 
If Cells(ligne, colonne).Value <> " " Then
                        ActiveSheet.Cells(ligne1, colonne).Select
                        Selection.Interior.ColorIndex = xlNone
                        If Cells(ligne1, colonne).Value = " " Then
                            Selection.Interior.ColorIndex = 15
                        End If
                        If Cells(ligne1, colonne).Value = "F" Then
                            Selection.Interior.ColorIndex = 24
                        End If
                        If Cells(ligne1, colonne).Value = "V" Then
                            Selection.Interior.ColorIndex = 40
                        End If
                        If Cells(ligne1, colonne).Value = "A" Then
                            Selection.Interior.ColorIndex = 34
                        End If
                        If Cells(ligne1, colonne).Value = "N" Then
                            Selection.Interior.ColorIndex = 0
                        End If
                        If Cells(ligne1, colonne).Value = "M" Then
                            Selection.Interior.ColorIndex = 27
                        End If
                        If Cells(ligne1, colonne).Value = "S" Then
                            Selection.Interior.ColorIndex = 33
                        End If
                        If Cells(ligne1, colonne).Value = "J" Then
                            Selection.Interior.ColorIndex = 16
                        End If

19/02/2007, 12h07
More

le code est correcte, mais je ne trouve pas le point d'interrogation dans ton code
19/02/2007, 12h57
julio02200
Ah oui excuse moi,

La dernière ligne est la suivante:
Code:

1 2 3 4 If Cells(ligne1, colonne).Value = "?" Then Selection.Interior.ColorIndex = 33 End If
Quand je tape ce code, je sais pas si ca peut t'aider mais le 'if" ne se met pas en bleu comme les autres au dessus.

Encore merci
19/02/2007, 13h07
More

c bizarre,
je ne vois pas une erreur, mais tu peux copier et coller les If que tu as deja et remplacer le contenu, et tu peux mettre un message entre le If du "?", pour savoir si il entre dans le If ou pas.

Bonne chance.
19/02/2007, 13h16
julio02200

Ok je te remercie, je vais essayer tout ça...