XL 2013 Transférer un classeur avec macro complémentaire

Jouxte

XLDnaute Occasionnel
Bonjour à toutes et tous,

J'utilise un pack de macros complémentaires bien pratique.
Je souhaiterai transférer un fichier comprenant des formules issues de ces macros complémentaires.
Y a-t-il un moyen pour lier (intégrer) les fonctions de ce fichier xlam au fichier xlsx/xlsm ?

Merci par avance pour vos réponses.
 

Jouxte

XLDnaute Occasionnel
Bonjour daleico, bonjour le Forum,
J'utilise la fonction recherche_X du pack de fonction trouvé sur le site excel partique.
 

Jouxte

XLDnaute Occasionnel
La fonction Excel RECHERCHE_X recherche une valeur dans une plage de cellules et renvoie une valeur à la même position dans une autre plage de cellules.
 

danielco

XLDnaute Accro
Essaie :

VB:
Function RECHERCHE_X(rech, CH, Dest)
  Dim C As Variant, X As Variant
  Application.Volatile
  If CH.Rows.Count = Dest.Rows.Count And CH.Columns.Count = Dest.Columns.Count Then
    Set C = CH.Find("*", , , , xlByRows, xlPrevious)
    If Not C Is Nothing Then
      h = C.Row - CH.Row + 1
      l = C.Column - CH.Column + 1
      RECHERCHE_X = Application.Index(Dest, h, l)
    End If
  End If
End Function
Daniel
 

danielco

XLDnaute Accro
Suis-je bête !

VB:
Function RECHERCHE_X(rech, CH, Dest)
  Dim C As Variant, X As Variant
  Application.Volatile
  If CH.Rows.Count = Dest.Rows.Count And CH.Columns.Count = Dest.Columns.Count Then
    Set C = CH.Find(rech, , , , xlByRows, xlPrevious)
    If Not C Is Nothing Then
      h = C.Row - CH.Row + 1
      l = C.Column - CH.Column + 1
      RECHERCHE_X = Application.Index(Dest, h, l)
    End If
  End If
End Function
Daniel
 

danielco

XLDnaute Accro
Et même :

Code:
Function RECHERCHE_X(rech, CH, Dest)
  Dim C As Variant, X As Variant
  Application.Volatile
  If CH.Rows.Count = Dest.Rows.Count And CH.Columns.Count = Dest.Columns.Count Then
    Set C = CH.Find(rech, , , xlWhole, xlByRows, xlPrevious)
    If Not C Is Nothing Then
      h = C.Row - CH.Row + 1
      l = C.Column - CH.Column + 1
      RECHERCHE_X = Application.Index(Dest, h, l)
    End If
  End If
End Function
Daniel
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas