comparer un text d'un textbox

[Angelo]

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 :


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

 

[porcinet82]

Salut Angelo,

Au pifomètre, mais si il s'agit de nombre, il faut mettre :
If Cells(1, i).Value=val(TextBox1.Value) Then

@+

 

[PascalXLD]

Bonjour

ou autre possibilité

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

Bon courage

 

[Angelo]

je compare deux chaine de caractere
je me suis appercu d'une chose c'est que en mettant un nombre au lieu du i dans mon cells (voir code apres ) cela marchais mais je veux le faire pour toute les cases de la ligne 2 et pas une seule


code

For i = 1 To NbColonne
If TextBox1.Value = Cells(2, 23).Value Then
MsgBox (TextBox1.Value)
MsgBox (i)

....

 

[PascalXLD]

Re

Euh tout à l'heure tu avais

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

et non

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

 

[Angelo]

c'est vrai mais en fait c'est 2 qui est bon puisque mon texte se trouve en W2

 

[porcinet82]

re Angelo, salut Pascal76,

Donc ca marche ou ca marche pas? Si ca ne marche pas, comment recuperes-tu NbColonne?

Bonne soirée,

@+

 

[Angelo]

ca marche mais apres modification et une petite astuce qui me parait étrange !!!


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 nexte avant le elese mais quand je fais ca il me dis qu'il bloc if sans End If :angry:

 

[porcinet82]

Bonjour a tous,

Tant mieux si ca fonctionne, je ne vois aps trop ou est l'astuce mais bon...

Pour le Next avant le Else, c'est normal qu'il plante puisque la boucle serait incrementée seulement si ta consition If est vrai.

@+

 

[Angelo]

mince autant pour moi j'avais laisser

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

et non

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 )

 

[PascalXLD]

Re

Tu peux filer ton fichier STP car là franchement ça devrait marcher

 

[Angelo]

pas de probleme mais tu va mettre ton adresse mail comme ca sur le forum??? sinon comment puis je te l'envoyer

 

[PascalXLD]

Et bien tu zippes ton fichier sans caractères spéciaux ni accents ni espace dans le nom et moins de 50 ko et tu peux mettre ton fichier sur le forum

Retire les données sensibles si il y en a

 

[Angelo]

ok c'est fait [file name=Tableau2.zip size=34029]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Tableau2.zip[/file]

 

[Angelo]

le code en question se trouve dans l'évenement clique du bouton 'Valider' se trouvant dans le userform 'Suppr_Opération'