équivalent vba de la fonction excel "EQUIV"

[double-ien]

Bonjour les tiots biloutes...

Oui.... Est ce qu'il existe un équivalent en VBA de la fonction "EQUIV"....(utilisée pour faire des recherches dans une liste)


Merci beaucoup

Bonne journée à vous

 

[RENAUDER]

Re : équivalent vba de la fonction excel "EQUIV"

Bonjour,

Il s'agit de la fonction MATCH

 

[double-ien]

Re : équivalent vba de la fonction excel "EQUIV"

Merci je teste ça de suite...ohlala mais il est vraiment très efficace ce site...que du bonheur

 

[BOISGONTIER]

Re : équivalent vba de la fonction excel "EQUIV"

Bonjour,

x=Application.Match("aa",Range("A1:A100"),0)
If IsError(x) Then
MsgbBox "Inconnu"
Else
Msgbox x
End if

JB
Formation Excel VBA JB

 

[double-ien]

Re : équivalent vba de la fonction excel "EQUIV"

rebonjour...j'ai toujours un petit soucis...comment faire pour utiliser cette méthode si je veux faire mes recherche dans une liste que j'ai nommé...au lieu de range je veux mettre le nom de ma liste...je vois bien comment faire ça sous excel mais pas avec vba...merci beaucoup

 

[Dull]

Re : équivalent vba de la fonction excel "EQUIV"

Salut double-ien, Jacques, Eric, le Forum

avec le code de BOISGONTIER si j'ai bien compris

 x=Application.Match("aa",Range([COLOR=Red][B]TonNom[/B][/COLOR]),0)
If IsError(x) Then
   MsgbBox "Inconnu"
Else
  Msgbox x
End if

Bonne Journée

 

[double-ien]

Re : équivalent vba de la fonction excel "EQUIV"

désolé mais ça ne fonctionne pas j'avais essayé...sinon je dois marquer Range(la plage de cellules)...mais c'est nettement moins esthétique...(je sais je suis chiant...)

 

[Dull]

Re : équivalent vba de la fonction excel "EQUIV"

Re le fil

Heu... une petite erreur

 x=Application.Match("aa",Range([COLOR=Red][B]"[/B][B]TonNom"[/B][/COLOR]),0)
If IsError(x) Then
   MsgbBox "Inconnu"
Else
  Msgbox x
End if

j'avais oublié les " "

Désolé

 

[double-ien]

Re : équivalent vba de la fonction excel "EQUIV"

Trop bon...moi aussi j'avais zappé ça...merci beaucoup...

 

[BOISGONTIER]

Re : équivalent vba de la fonction excel "EQUIV"

Bonjour,

Il y a aussi:

x=Application.Match("aa",[TonNom],0)

JB

 

[GALOUGALOU]

bonjour double ien bonjour le forum
dans le classeur ci-joint avec la fonction match l'adresse de la cellule avec

 MsgBox Sheets("Feuil1").Range("A" & Position).Address

cordialement
galougalou

 

[patricktoulon]

re
bonjour
oulah c'est un vieux fil ça
application.match ou worksheetfunction.match te retourne l'index pas la valeur parti de la tu peux déterminer l’adresse de la cellule
2 méthodes

'-----------------------------------------------------
'recherche dans  une colonne
'méthode 1
Sub test_sur_une_colonne()    'application.match
    With Range("A1:A100")
        recherche = "toto"
        x = WorksheetFunction.Match(recherche, .Cells, 0)
        If Not IsError(x) Then
            MsgBox Cells(x, .Column).Address
        End If
    End With
End Sub

'-----------------------------------------------------
'recherche dans  une ligne
'méthode 1
Sub test_sur_une_ligne()    'application.match
    recherche = "toto"
    With Range("A1:z1")
        x = WorksheetFunction.Match(recherche, .Cells, 0)
        If Not IsError(x) Then
            MsgBox Cells(.Row, x).Address
        End If
    End With
End Sub
'************************************************************************************************
'************************************************************************************************

'-----------------------------------------------------
'recherche dans  une colonne
'méthode 2 avec evaluation d'une formule "equiv"
Sub test_sur_une_colonne2()
    recherche = "toto"
    With Range("A1:A100")
        x = Evaluate(Replace("=MATCH(""recherche""," & .Address(0, 0) & ",0)", "recherche", recherche))
        MsgBox .Cells(x, 1).Address
    End With
End Sub

'-----------------------------------------------------
'recherche dans  une ligne
'méthode 2 avec evaluation d'une formule "equiv"
Sub test_sur_une_ligne2()
    recherche = "toto"
    With Range("A1:z1")
        x = Evaluate(Replace("=MATCH(""recherche""," & .Address(0, 0) & ",0)", "recherche", recherche))
        MsgBox .Cells(1, x).Address
    End With
End Sub

tu sais tout

 

[Lolote83]

Bonjour à tous, PatrickToulon.
Je profite de ton dernier post pour mettre en place ma formule mais j'y arrive pas
Je dois retrouver une date dans une liste de date d'une colonne
Avec la méthode 1

Sub test1()         'application.match
    With Range("C4:C370")
        recherche = CDate("01/02/2020")
        x = WorksheetFunction.Match(recherche, .Cells, 0)
        If Not IsError(x) Then
            MsgBox Cells(x, .Column).Address
        End If
    End With
End Sub

Avec la méthode 2

Sub test2()
    recherche = CDate("01/02/2020")
    With Range("C4:C370")
        x = Evaluate(Replace("=MATCH(""recherche""," & .Address(0, 0) & ",0)", "recherche", recherche))
        MsgBox .Cells(x, 1).Address
    End With
End Sub

alors que la formule en B2=EQUIV(DATE(2020;2;1);C4:C370;0) donne le bon résultat
Merci de me dire ou est mon erreur.
@+ Lolote83

 

[Dranreb]

Bonjour.
Ce qui ne va pas avec la méthode 1 c'est le MsgBox Cells(x, .Column) au lieu de soit Cells(.Row - 1 + x, .Column) soit .Cells(x, 1) soit .Rows(x) tout simplement
Ce qui ne va pas dans la méthode 2 c'est la recherche d'un nombre formé d'un jour divisé par un mois divisé par une année au lieu de la date. Il vaudrait mieux chercher sa convertion en Double. Ou à la rigueur … """ & Recherche & """*1 …

 

[patricktoulon]

re bonjour lolote83

Sub test1()         'application.match
    With Range("C4:C370")
        recherche = CDate("30/05/2020")
       'selon les versions excel et les librairies installées le find de date devient un calvaire
       'alors le plus simple est de chercher le numéro de série de la date
       'attention aussi match te donne l'index du tableau pris en compte et non celui du sheets colonne entiere
       ' il faut donc ajouter "+.row-1)
       ' les deux fonctionnent chez moi
       x = WorksheetFunction.Match(recherche, .Cells, 0) + .Row - 1
        'ou
          x = WorksheetFunction.Match(CLng(recherche), .Cells, 0) + .Row - 1
       If Not IsError(x) Then
            MsgBox Cells(x, .Column).Address
        End If
    End With
End Sub

@Dranreb on c'est croisés
cela dit cdbl ou clng a voir si les date sont avec heure ou pas je n'ai jamais testé la différence
je réécris la méthode 2 et test et reviens