Discussion :

[julio02200]

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

[More]

salut,

tu peut tester avec ca, ca marche bien.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

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

[More]

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

[julio02200]

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

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

[More]

le code est correcte, mais je ne trouve pas le point d'interrogation dans ton code

[julio02200]

Ah oui excuse moi,

La dernière ligne est la suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[julio02200]

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