[VBA-E]comparer contenu textbox et cellule

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:

---

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

Bonjour,

Pour un textbox, ce ne serait pas plutot :

Code:

---

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

---

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

Code:

---

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

j'ai pas tous compris mais

Code:

---

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

---

fonctionne ... et

Code:

---

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

---

ne fonctionne pas ...

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:

---

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:

---

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

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

Code:

---

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

A+

mince autant pour moi j'avais laisser

Code:

---

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

---

et non

Code:

---

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 )

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

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

rebonjour

et quel est le resultat si tu fais tout simplement

Code:

---

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:

---

MsgBox (faute)

---

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


bonne journée
michel

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

rebonjour

dans ce cas tu peux tester

Code:

---

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

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

j'ai tester ca marche tres bien

merci