Fonction Application.Match VBA

Fermé

aziatedu13 - 3 juin 2010 à 18:21
aziatedu13 - 5 juin 2010 à 13:31

Bonjour,

J'ai un soucis avec la fonction Match de exel en VBA.

Dans une de mes fonction , je désire trouvé la ligne ou se trouve un élément de recherche
donc j'ai utilisé la fonction approprié :

Voici ma ligne de code :

Dim ligne as double

ligne = Application.Match("STBS", Sheets("STBS ref").Range("G1:G100"), 0)

Je désire donc trouvé le mot STBS dans la colonne G des ligne 1 à 100.
Mais lors d'un pas a pas , arrivé sur cette ligne, rien ne se passe....

J'ai bien un mots STBS dans la colonne G10

Si j'affecte la valeur ligne à une case, la case prend #VALEUR...
J'ai cherché pendant longtemps sur les forum, et ça marche pour plein de gens....

Je suis sous exel 2003 Version FR
Pouvez vous m'aider ???

A voir également:

Vba application.match
Application match vba - Meilleures réponses
Application.match vba excel - Meilleures réponses
L'indice n'appartient pas à la sélection vba - Forum VB / VBA
Vba range avec variable ✓ - Forum VB / VBA
Erreur 1004 vba ✓ - Forum VB / VBA
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Find vba - Astuces et Solutions

4 réponses

Réponse 1 / 4

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 209
3 juin 2010 à 19:56

Bonjour,

Et tu as contrôlé que la fonction dans la feuille te retournait bien le résultat ?
Il y a peut-être un espace ou autre chose qui gène...
eric

Réponse 3 / 4

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
4 juin 2010 à 09:47

Bonjour aziatedu13, bonjour eric,

Peut être en faisant comme ça:

ligne = Application.WorksheetFunction.Match("STBS", Sheets("STBS ref").Range("G1:G100"), 0)

;o)

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 209
4 juin 2010 à 11:16

Bonjour polux,

En fait j'avais testé, on peut effectivement se passer de worksheetfunction.
Chose que je viens de découvrir ici..:-)
Et sa syntaxe fonctionne bien, chez moi il m'a bien retourné le n° de ligne

aziatedu13 : pas d'erreur non plus dans le nom de feuille (faire un copier coller du nom de l'onglet) ?

eric

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
4 juin 2010 à 11:29

Salut Eric,

Je ne connaissais pas la fonction Match, j'ai été dans l'aide Excel et j'ai copié l'exemple ... ^^
En testant, il me renvoie également le n° de ligne chez moi.

;o)

Réponse 4 / 4

aziatedu13
4 juin 2010 à 16:51

Bonjour,

Merci de vos réponse, mais rien n'y fait....toujours pas de bon résultat...
Je suis passé par une autre fonction : Range("G:G)..Find(What:="STBS", LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Rows

Celle ci me renvoie la ligne.

Dommage pour Match....

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
4 juin 2010 à 17:53

Tant mieux si ça fonctionne.

Pour ma part, je ne suis pas un grand fan des méthodes d'Excel et j'évite de les utiliser (problème de compatibilité d'une version à l'autre) et je préfère coder un fonction en VBA.

Sub Test
Dim Ligne As Long

Ligne = ReturnRow("STBS", "G1:G100")
If Ligne = 0 Then
    MsgBox "Elément non trouvé ....",VbExclamation,"Message système"
    Exit Sub
Else
    MsgBox "L'élément se trouve sur la ligne: " & Ligne
End If
End Sub

Public Function ReturnRow(ByVal chaine As Variant, ByVal pTarget As String) As Long
Dim plage As Range
Dim cel

     Set plage  = Sheets("STBS ref").Range(pTarget)

     For Each cel In plage
         If Instr(1, cel.value, chaine) <> 0 then
              ReturnRow = cel.Row
              Exit Function
         End If
    Next cel

    Set plage = Nothing

    ReturnRow = 0

End Function

Je peux ainsi passer l'élément à rechercher et la plage à tester qui peux être différente d'une recherche à l'autre.

;o)

aziatedu13
5 juin 2010 à 13:31

Merci de vos réponse.

Discussions similaires

[vba] recherche d'une valeur EXACTE

VBA EXCEL utilisation.like

Récupérer la date du jour sous VBA

Fonction Cell en VBA-excel

VBA : Range avec références variables..

Macro formule moyenne

Discussions similaires

Newsletters