Discussion :

[leosalex]

Bonjour,
Je viens vers vous car j'ai un problème dans le codage d'une boucle "FOR" . J'explique ma situation. J'ai créé une boucle qui permet de comparer les caractères inscrits dans une textbox (tesxtbox1 dans le Userform1) et les caractères inscrits dans une colonne (feuille1, colonne A). La boucle marche très bien sauf que j'aimerais que la boucle m'affiche un message comme quoi les caractères ne sont pas identiques (entre le textbox et la colonne A) mais seulement à partir du sixième caractère inscrit dans la textbox. Avez-vous une idée ?

Merci d’avance pour vos réponses



Extrait de la boucle

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
Public Sub TextBox1_Change()
Dim fin1 As Long
    Application.ScreenUpdating = False
 
fin1 = finf1
 
    ListBox1.Clear
    If TextBox1 <> "" Then
        For Ligne = 2 To fin1
            If Cells(Ligne, 1) Like TextBox1 Then
                ListBox1.AddItem Cells(Ligne, 2)
                Casier = Feuil1.Cells(Ligne, 4)
                Tiroir = Feuil1.Cells(Ligne, 5)
                Colonnec = Feuil1.Cells(Ligne, 6)
                Lignec = Feuil1.Cells(Ligne, 7)
                Stock = Feuil1.Cells(Ligne, 3)
 
            Else
            '' MsgBox "Faux"
 
            End If
        Next
    End If
 
End Sub