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