Discussion :

[Dextro]

Bonjour,

J'essaie, en vain, d'utiliser la fonction excel "Match".

MATCH(lookup_value,lookup_array,match_type)

Le probleme est qu'en cas de recherche infructueuse la fonction retourne une erreur (c'est malin).

If MATCH is unsuccessful in finding a match, it returns the #N/A error value.

Donc quand j'execute mon joli code (t'es toute true sous ton pull, y a l'runtime qu'est maboul, joli coooode), je me retrouve avec une erreur du type 1004 :

Run-time error '1004':

Unable to get the Match property of the WorksheetsFunction class

[End] [Debug] [Help]

Pour completer la mise en situation j'utilise la fonction comme suit :

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim TLogProjectNum as Integer
Dim searchRange As Range
Dim Result As Double
 
TLogProjectNum = 113571
Set searchRange = Worksheets("Projects").Columns.EntireColumn("B")
'match_type = 0 pour une recherche stricte (et non completement aleatoire)
Result = Application.WorksheetFunction.Match(TLogProjectNum, searchRange, 0)

Apres un long moment de solitude dans l'aide VB, VBA, Excel, les Faqs, les tutos, et les forums de toutes nationalités, je me decide a poster.


Voila, si quelqu'un a une astuce pour gerer l'erreur (j'ai essaye les "On error" et tout, rien a faire, quand ca veut pas ...), ca serait evidemment tres appreciable, et je suis pret a partager mes cookies.

ps: Desole si je suis un peu confus, mais le whisky m'a epuisé hier, et mon seul repas depuis plus de 24h, c'est mes cookies, donc quand je dis que je suis pret a partager, c'est pas rien, ca me coute.
pps: sinon j'ai un snickers aussi

[ouskel'n'or]

Tu as la fonction VBA Eqv qui ferait aussi bien l'affaire, non ?
Regarde dans l'aide
A+

[Dextro]

D'apres ce que j'en ai vu dans l'aide, elle permet de faire une comparaison et non une recherche sur une plage de données

Etait-ce ce a quoi tu pensais ?

[ouskel'n'or]

En effet mais pour moi, en français, Match = EQUIV... d'où le lapsus... Désolé.
Regarde si ce code peut te servir

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub comparerPlages()
Dim tab1 As Range
Dim tab2 As Range
Dim Col1 As String
Dim Col2 As String
 
Set F1 = Worksheets("Feuil1")
Set F2 = Worksheets("Feuil2")
Set tab1 = F1.Range("A1:E15")
Set tab2 = F2.Range("A1:E15")
For Each Cel In tab1.Columns
    Col1 = Columns(Cel.Column).Address(RowAbsolute:=False, ColumnAbsolute:=False)
    Col2 = Col1
    F1.Range(Col2).Select
    Set r1 = F1.Range(Col1).ColumnDifferences(Comparison:=F2.Range(Col2))
    Debug.Print "Col = " & Col1 & "   Col2 = " & Col2 & "  " & " r1 = " & r1.Address
Next
    If Not r1 Is Nothing Then MsgBox r1.Address
 
End Sub

A+

[cafeine]

Hello,

déjà je suis choqué de lire

Code :

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

TLogProjectNum = 113571

vu que tu as typé TLogProjectNum comme Integer
et que la valeur max d'un Integer est 32767

Code :

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

2^16/2 -1

[Dextro]

Je l'attendais, en realite j'ai juste ecrasé ma main sur le pad numérique pour donner une valeur au hasard, sinon mes valeurs ne depassent pas '10000'.

Merci pour le code ouskel'n'or, je regarde ca de suite.