Discussion :

[zandru]

Bonjour,

Je souhaite savoir si les trois premières lettres du contenu de la dernière cellule de ma ligne courante sont "ind".

j'ai écrit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    If StrComp(Left(detailcommande.Cells(laff - 6, detailcommande.Cells(laff - 6, Columns.Count).End(xlToRight).Column), 3), "ind", vbTextCompare) = 0 Then

Ma ligne courante est "laff-6"
ma feuille s'appelle "detailcommande"

Mais même si j'ai "ind3" sur la fin de ma ligne courante, ma condition est fausse.
il y a donc une erreur dans cette ligne, mais je n'arrive pas à la trouver

Pouvez-vous m'aider ?

[Fvandermeulen]

Bonjour,
J'ai décortiqué le problème et mis en plusieurs lignes de code, à voir si ça te convient...Je n'ai pas réutilisé tes éléments tel que laff -6 et detailcommande, il faudra réadapter.
J'ai mis unee boucle car j'imagine que c'est ce que tu fais.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub test_ind()
 
For i = 1 To 10
 
Macell = Left(Range("a" & i).End(xlToRight), 3)
    If Macell = "ind" Then
    'ton action
    End If
Next i
 
End Sub

[zandru]

Bonjour Fvandermeulen,

j'ai tester ton code, mais j'arrive au même problème, la condition est toujours fausse, même si la dernière cellule de la ligne contient "ind3"

j'ai légèrement modifié ton code pour pouvoir le tester :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub test_ind()
 
    i = InputBox("i")
 
    Macell = Left(detailcomande.Range("A" & i).End(xlToRight), 3)
    If Macell = "ind" Then
        MsgBox "ok"
    Else
        MsgBox "non"
    End If
 
End Sub

[zandru]

J'ai trouvé le problème, c'est qu'il manquait une comparaison par strcomp dans ton code.

Ce qui donne, regroupé en une seule ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub test_ind()
 
    i = InputBox("i")
 
    If StrComp(Left(detailcommande.Range("A" & i).End(xlToRight), 3), "ind", vbTextCompare) = 0 Then
        MsgBox "ok"
    Else
        MsgBox "non"
    End If
 
End Sub

ça marche, Merci

[Fvandermeulen]

Re,
Ce qui est étrange c'est que chez moi, sans le StrComp, ça fonctionnait...