Discussion :

[DonKnacki]

Bonjour, j'ai un petit souci avec un textbox
je demande à l'utilisateur d'entrer une chaine de caractère afin de la comparer à la premiere ligne de chaque colonne de mon tableau
pour ce faire j'ai fais ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
For i = 1 To NbColonne
    MsgBox (texte1)
    If TextBox1.Value = Cells(1, i).Value Then
        MsgBox (TextBox1.Value)
         'Selection.Delete Shift:=xlToLeft
    Else:
        MsgBox (faute)
        Erreur.Show
    End If
Next i

en sachant que NbColonne est le nombre de colonne que contien mon tableau

le probleme est que ce programme me renvoi toujour dans le else même le texte taper dans la textbox est le meme que celui présent en W2 par exemple

[pc75]

Bonjour,

Pour un textbox, ce ne serait pas plutot :

Code :

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

1
2
 
If TextBox1.Text = Cells(1, i).Value Then

[DonKnacki]

non meme probleme mais je me suis apercu que en mettant un chiffre à la place du i ca marchai:

Code :

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

1
2
3
4
5
6
7
 
for i = 1 To NbColonne
    If TextBox1.Text = Cells(2, 23).Value Then
        MsgBox (TextBox1.Value)
        MsgBox (i)
    Else
...

le probleme est que je veut le faire pour toute les cases et non une seule

[SfJ5Rpw8]

j'ai pas tous compris mais

Code :

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

 If TextBox1.Text = Cells(1, i).Value Then

fonctionne ... et

Code :

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

 If TextBox1.Value = Cells(1, i).Value Then

ne fonctionne pas ...

[DonKnacki]

non bbil les codes que tu as mis me renvoye vers else qui se situe juste apres. Pourtant je tape bien le même texte dans la textbox que celui présent en W2 (pour l'exemple)
en revanche lorsque je fais ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
For i = 1 To NbColonne
    If TextBox1.Text = Cells(2, 23).Value Then '23 correspond à W
        MsgBox (TextBox1.Value)
        MsgBox (i)
         'Selection.Delete Shift:=xlToLeft
    Else:
        MsgBox (faute)
        Erreur.Show
    End If
Next i

je rentre dans le if et cela m'affiche bien 24 fois (NbCOlonne=24) mon textbox et la valeur de i pour chaque tour de boucle (donc de 1 à 24)


J'ai trouvé la cause : la place du next mais cela nécessite une petite astuce qui me parait étrange !!!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
For i = 1 To NbColonne
    If TextBox1.Text = Cells(2, 23).Value Then
        MsgBox (TextBox1.Value)
        MsgBox (i)
         'Selection.Delete Shift:=xlToLeft
         i = i + 1
    Else:
        MsgBox (faute)
        Erreur.Show
    End If
    i = i - 1
Next i

l'idéal serait de mettre mon next avant le else mais quand je fais ca il me dis qu'il bloc if sans End If

[ouskel'n'or]

Normal ! Comme "papa" attend "maman", for attend next et if endif...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
For i = 1 To NbColonne 
    If TextBox1.Text = Cells(2, 23).Value Then '23 correspond à W 
        MsgBox (TextBox1.Value) 
        MsgBox (i) 
         'Selection.Delete Shift:=xlToLeft 
    Else: 
        MsgBox (faute)
        PasBon = true
        exit for
    End If 
Next i 
 
if pasBon then Erreur.Show

Tu peux utiliser un autre boolean que PasBon

A+

[DonKnacki]

mince autant pour moi j'avais laisser

Code :

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

1
2
 
If TextBox1.Text = Cells(2, 23).Value Then '23 correspond à W

et non

Code :

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

1
2
 
If TextBox1.Text = Cells(2, i).Value Then

donc la il comparais que à une case (la case W2) et ca marchais mais quand je met i ca m'envoi à chaque fois sur le else (puis affiche Erreur )

[SilkyRoad]

bonjour à tous

dans ton premier message tu indiques

If TextBox1.Value = Cells(1, i).Value Then

ensuite tu testes

If TextBox1.Text = Cells(2, 23).Value Then

tu es sur que tu testes les memes lignes dans les 2 cas ? ...


bonne journée
michel

[DonKnacki]

c'est exact
au début je m'étais trompé mais la je suis sur de moi le texte que je compare se trouve bien dans une des case de la ligne 2

[SilkyRoad]

rebonjour

et quel est le resultat si tu fais tout simplement

Code :

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

1
2
3
4
5
6
7
For i = 1 To NbColonne
If TextBox1.Text = Cells(2, i).Value Then
MsgBox (TextBox1.Value)
MsgBox (i)
Exit For
End If
Next i

à mon avis le

Code :

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

MsgBox (faute)

est mal placé car tu ne peuxjamais boucler jamais sur toutes les colonnes


bonne journée
michel

[DonKnacki]

ca marche ce que tu me propose mais je n'arrive pas à ajouter une condition else (si l'utilisateur tape quelque chose qui n'hésiste pas )

je voudrai juste afficher un textbox avec un message indiquant l'erreur

[SilkyRoad]

rebonjour

dans ce cas tu peux tester

Code :

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

1
2
3
4
5
6
7
8
9
For i = 1 To NbColonne
    If TextBox1.Text = Cells(2, i).Value Then
        MsgBox (TextBox1.Value)
        MsgBox (i)
        Exit Sub
    End If
Next i
 
MsgBox (faute)

bonne journée
michel

[DonKnacki]

pas bête le cout du end sub j'y avais pas pensé

j'ai tester ca marche tres bien

merci