XL pour MAC code VBA fonction

[Delorme]

Bonjour à tous

Passioné d'excel et merci d'avoir solutionné mes problems precedents
Je voudrais pour le fun, avoir en code vba la fonction" rechercheV"
Est ce possible ?

merci d'avance

Michel

 

[kiki29]

Salut, de la lecture

 

[Delorme]

merci, mais comme je l'ai demande, c'est en code vba que voudrais l'execution de a fonction recherchev

 

[sylvanu]

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:

'=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 :

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

 

[mapomme]

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 ) :

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 .

 

[Delorme]

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:

'=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 :

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

Merci beaucoup
A bientôt pour d'autres prob
Michel

 

[Delorme]

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 ) :

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 .

Merci aussi
michel

 

[patricktoulon]

bonjour

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

un code défonceur de porte ouverte