Creation Fonction Excel VBA

[bast0504]

Bonjour a tous,


Je souhaiterais créer une fonction VBA et l'utiliser sur plusieurs feuilles.

Voici la fonction que je cherche à faire fonctionner

Function RechercheClient(Code_Ouvrage As String, Table As Variant, indexligne As Byte) As Variant

Dim Message As String

RechercheClient = WorksheetFunction.HLookup(Code_Ouvrage, Table, indexligne, False)

Exit Function

Resume Next
End Function

Explications : Je voudrais en colonne I de la feuille "Stock" avoir la date lorsque l'utilisateur entre le code de l'ouvrage (colonne A), pour cela je souhaite utiliser les données de la feuille Catalogue.

Merci par avance

 

[Papou-net]

Re : Creation Fonction Excel VBA

Bonjour bast0504,

Voici ton fichier corrigé.

Les modifications sont dans les formules de la colonne I et la dans fonction RechercheClient.

Bon dimanche.

Cordialement.

 

[bast0504]

Re : Creation Fonction Excel VBA

Bonjour Papou-net

Merci beaucoup pour votre réponse

Pour comprendre, pourriez-vous m'expliquer, , les erreurs de mon code vba ?

Merci

 

[mapomme]

Re : Creation Fonction Excel VBA

Bonjour bast0504, Papou-net 🙂 ,

Un autre essai avec une même fonction pour les colonnes C à J (en module2) :

Function RechercheClient(Code_Ouvrage, indexligne As Long)
Dim i&
' Valeurs de indexligne:
'  1 -> Code               2 -> Auteur              3 -> Titre
'  4 -> Code_Collection    40 -> Code_Collection    41 -> Code_Collection
' 42 -> Lieux              43 -> Editeurs           44 -> Collections
'  5 -> N°                  6 -> Date                7 -> Pages

  RechercheClient = CVErr(xlErrNA)
  i = Left(indexligne, 1)
  On Error Resume Next
  RechercheClient = WorksheetFunction.HLookup(Code_Ouvrage, Sheets("Catalogue").range("1:7"), i, 0)
  If Err Then Exit Function
  If indexligne > 41 And indexligne < 45 Then _
    RechercheClient = WorksheetFunction.VLookup(RechercheClient, Sheets("Collections").range("a:d"), indexligne - 40, 0)
End Function

 

[Papou-net]

Re : Creation Fonction Excel VBA

RE:

Pour faire simple, on peut considérer qu'une Function est une formule personnalisée.

Il suffit donc de la faire précéder du signe = et de la faire suivre par les paramètres définis dans son en-tête, entre parenthèses.

Ex:

=RechercheClient(A7;'Librairie2-1.xlsm'!Bibliothèque;6)

A7 ---> Code_Ouvrage As Variant
'Librairie2-1.xlsm'!Bibliothèque ---> Table As Variant
6 ---> indexligne As Byte
Pour vérifier cette assertion, tu peux, dans la barre de menu, cliquer sur Formules, Insérer une fonction et dans la liste sélectionnez une catégorie tu choisis Personnalisées.

Cordialement.