Discussion :

[laurentabj]

Bonjour à tous,


Je rencontre un problème dans une recherche de texte par VBA sur une plage de cellule.

Ma plage de cellule est représentée ci-après (avec les coordonnées) :

-------A-----B-----C-------D-------E-------F
1
2----IN 2---IN 3---IN 1---STO 1---STO 3---STO 5
3

Ma recherche consiste à récupérer le numéro de la première colonne contenant le texte "IN"

Voici mon code :

Code :

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

1
2
3
4
5
With maPlage
    If Not .Find("IN", lookat:=xlPart) Is Nothing Then
        idIN = .Find("IN", lookat:=xlPart, searchorder:=xlByColumns).Column
    End If
End With

Mon problème est que idIN récupère la valeur 2 (colonne B) alors que la première occurence est en colonne A.
Comment cela se produit, et comment dois-je m'y prendre pour que idIN = 1 ?

Merci d'avance

Laurent

[Pierre Fauconnier]

Bonjour

Je suis tenté de mettre en cause maPlage. As-tu vérifié que cette plage reprend bien la première colonne?

[laurentabj]

Bonjour Pierre,

Merci pour cette réponse.
Oui j'ai bien vérifié :

/Fenêtre exécution/
debug.Print maplage.Cells.Column
1

[laurentabj]

J'ai résolu mon problème en abandonnant la méthode find au profit d'une boucle For Each. Mais je suis toujours intéréssé de comprendre pourquoi mon code ne fonctionnait pas, et comment j'aurai dû faire.

Pour info :

Code :

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

1
2
3
4
5
6
    For Each i In maPlage
        If i.Value Like "IN*" Then
            idIN = i.Column
            Exit For
        End If
    Next

[Pierre Fauconnier]

Ben oui...

En fait, c'est le comportement "normal" de la recherche dans Excel...

Si tu le fais à la main, via CTRL+F, tu auras le même résultat...

En fait, je me souviens d'une astuce que j'avais utilisé pour ce genre de cas:
Regarder dans la première cellule de la plage si je trouve ma correspondance. Si pas de correspondance, alors, j'utilise FIND

Code :

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

1
2
3
4
5
6
7
 
If InStr(1, MaPlage.Cells(1, 1).Value, "IN") <> 0 Then
    Set Cellule = MaPlage.Cells(1, 1)
    Else
    Set Cellule = MaPlage.Find(what:="IN", LookIn:=xlValues, lookat:=xlPart, searchorder:=xlByColumns, searchdirection:=xlPrevious)
End If
Debug.Print Cellule.Column

Je pense qu'il n'y a pas d'autre moyen. En fonction de l'exemple que tu donnes, tu rechercheras "IN" dans la première cellule avec

Code :

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

1
2
 
if left(maplage.cells(1,1).Value,2) = "IN" Then...

Ok?