Fonction de Match? VBA ne fonctionne pas correctement

J'ai un code suivant et j'ai "nom" dans les cellules B11 , B19 et B25, et je m'attendais à un résultat de 19 ou 25 avec le code, mais il retourne Y=1. Quelqu'un pourrait-il me dire quel est le problème?.

Sub mat()

Y = Application.Match("name", ActiveSheet.Range("B19:B30"), 0)
MsgBox Y

End Sub
InformationsquelleAutor user2703472 | 2013-11-17
  1. 4

    Selon la documentation pour le MATCH:

    MATCH retourne la position de la correspondance de la valeur au sein lookup_array, pas la valeur elle-même.

    et avec 0que le troisième argument optionnel (match_type):

    Si match_type est de 0, MATCH trouve la première valeur qui correspond exactement à lookup_value. Lookup_array peut être dans n'importe quel ordre.

    Donc le retour de l' 1se réfère à la position sur B19dans le tableau Range("B19:B30") et le code de l'échantillon est en effet de se comporter comme prévu.

    • merci pour la clarification..
    InformationsquelleAutor jpw
  2. 1
    Application.Match("name", ActiveSheet.Range("B19:B30"), 0)

    De la fonction equiv recherche d'un élément spécifié dans une plage de cellules, puis renvoie le position relative de cet élément dans la gamme

    Donc de l'analyse du paramètre ActiveSheet.Range("B19:B30") signifie que B19 est égal à position relative =1.

    InformationsquelleAutor Mark Fitzgerald
  3. 0

    ajouter slgn 

    Sub mat()
    Y = Application.Match(slng(range("a4").value), ActiveSheet.Range("B19:B30"), 0)
    MsgBox Y
End Sub

    ex2:

    Application.WorksheetFunction.Match(CLng(TextBox1.Text), sheet110.Range("B6:B" & ls), 0)
    InformationsquelleAutor ayadprof