XL pour MAC code VBA fonction

sylvanu à dit:

Bonjour Delorme, Kiki,
Comme c'est juste pour le fun j'ai fait l'impasse du paramètre "égal" ou "le plus proche", juste pour valider le principe avec un code simple.
La syntaxe est:

VB:

'=RechercheVperso(Valeur;Plage;Colonne)
avec
Valeur  : valeur recherchée
Plage   : Plage où rechercher
Colonne : N° de la colonne de la valeur à remonter

La fonction est :

Code:

Function RechercheVperso(Valeur, Plage, Colonne)
    RechercheVperso = ""                        ' Au cas où la valeur n'est pas trouvé, renvoie vide
    tablo = Plage                               ' Transfert plage dans array
    For i = 1 To UBound(tablo)                  ' Pour toutes les lignes du tableau
        If tablo(i, 1) = Valeur Then            ' Si la valeur de la 1ere colonne est = à Valeur
            RechercheVperso = tablo(i, Colonne) ' renvoie la valeur de la Nième colonne
            Exit Function                       ' On sort car trouvé
        End If
    Next i
End Function

Cliquez pour agrandir...

mapomme à dit:

Bonjour à tous ,

Étant en ce matin dominical d'humeur badine et espiègle, un code carrément "foutage de goule" (un peu honteux quand même ) :

VB:

Function RechercheVV(Valeur, Plage As Range, Ncolonne&, Proche As Boolean)
   RechercheVV = Application.VLookup(Valeur, Plage, Ncolonne, Proche)
End Function

Désolé, mais je recommencerai ... (en fait même pas honte)

Bon dimanche à tous .

Cliquez pour agrandir...

un code carrément "foutage de goule" (un peu honteux quand même ) :

Cliquez pour agrandir...