fonction FIND sous VBA Résolu

Question

Bonjour, 
je cherche à faire une recherche de texte "STRICTE" dans une plage de données en VBA
ci-dessous mon code qui ne donne pas le resultat voulu :

    CodeArticle = "essai"
    With Sheets("feuil1").Columns("A:A")
        Set trouve = .Find(CodeArticle, LookIn:=xlValues)
    End With
    If Not trouve Is Nothing Then
        Ligne = Selection.Find(CodeArticle, LookIn:=xlValues).Row
    End If

si dans colonne A de feuil1 j'ai la liste suivante :
Range("A1") = essai1
Range("A2") = essai2
Range("A3") = essai3
Range("A4") = essai
Range("A5") = essai4
Range("A6") = essai5

la valeur Ligne=1 alors que je voudrais trouver 4

comment puis je faire ?

merci d'avance

Configuration: Windows 2003 / Safari 533.17.8

pijaku · Accepted Answer

Bonjour à tous,
Pour une recherche "stricte", vous pouvez utiliser la fonction Match. Exemple de Silkyroad :

Sub test()
Dim Cible As String
Dim x As Long
 
Cible = "essai"
 
On Error Resume Next
x = Application.Match(Cible, Worksheets("Feuil1").Columns("A:A"), 0)
 
If x = 0 Then
    MsgBox "Valeur " & Cible & " non trouvée."
    Else
    MsgBox "Valeur " & Cible & " trouvée dans la ligne: " & x
End If
End Sub

lermite222 · Answer

Bonjour,
Les données doivent êtres mise par ordre alphabétique.
Et tu peu remplacer ton 2èm Find par..
    Rows(Trouve.Row).Select
A+

kurth · Answer

merci à tous.
j'ai trouvé une autre solution avec la fonction find! il suffit d'ajouter l'argument suivant dans la syntaxe  

With Sheets("feuil1").Columns("A:A") 
Set trouve = .Find(CodeArticle, LookIn:=xlValues,LookAt:=xlWhole) 
End With

Fonction FIND sous VBA

3 réponses

Discussions similaires

Newsletters