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

[kiki29]

Salut, une fois de plus : lire ceci

P.-S. : Balise ton code en l'indentant

[leosalex]

Si je poste c'est que je n'ai pas trouvé sur les tutoriels la façon qui m’intéresse. Je sais aussi que le forum n'est pas la pour faire nos exercices mais la c'est seulement une aide que je voudrai.
Comment afficher un message s'il ne trouve pas la chaîne de caractère dans la feuil1 mais seulement à partir du 6éme caractère inscrit dans la textbox.

Merci d'avance pour vos réponses.

[Neutthsch]

Salut Leosalex,

tu peux essayer un truc comme ça :

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
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
                 ...
            ElseIf Len(TextBox1) = 6 Then
                MsgBox "Valeur inconnue"
                Exit Sub
           end if

Pense bien à laisser le Exit Sub (ou Exit Next) sinon ton programme va t'afficher le message jusqu'à la fin de la boucle.

[leosalex]

Merci pour ta réponse.
Ton code marche bien, le message s'affiche bien à partir du 6ème caractères mais il apparaît constamment même si les deux valeurs sont identiques.
Comment faire pour qu'il ne s'affiche que si les valeurs de la textbox et de la colonneA ne sont pas identique?