Discussion :

[d.tellier]

Bonjour,
Comment écrire ou faire une fonction qui remplace le rechercheV en respectant la casse de l'élément recherché.

Cordialement. DT

[Theze]

Bonjour,

Une piste. Attention malgré tout, si erreur la fonction retourne "#N/A" qui est un string et non une valeur d'erreur donc, pour un test il faut comparer la chaine. A adapter :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Option Compare Binary
 
Function RECHERCHER(ValeurCherchee As Range, PlageRecherche As Range, Index As Long)
 
    Dim Cel As Range
    Dim Trouver As Boolean
 
    Application.Volatile
 
    If Index > PlageRecherche.Columns.Count Then
 
        RECHERCHER = "#N/A"
 
        Exit Function
 
    End If
 
    For Each Cel In PlageRecherche.Columns(1).Cells
 
        If Cel.Value = ValeurCherchee.Value Then
 
            RECHERCHER = Cel.Offset(, Index - 1).Value
 
            Trouver = True
 
            Exit Function
 
        End If
 
    Next Cel
 
    If Trouver = False Then RECHERCHER = "#N/A"
 
End Function

Hervé.

[sophieceuzin]

Bonsoir,

Recherche dans un tableau en mémoire(plus rapide)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Option Compare Binary
Function RechvCasse(clé As Range, champ As Range, colResult)
 Application.Volatile
 a = champ.Value
 b = clé.Value
 For i = LBound(a) To UBound(a)
   If clé = a(i, 1) Then RechvCasse = a(i, colResult): Exit Function
 Next i
 RechvCasse = Evaluate("na()")
End Function

Ceuzin