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.
 

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
 

danielco

XLDnaute Accro
Tu peux faire des recherches multi-colonnes :

Capture d’écran 2020-10-13 080935.png


Daniel
 

Discussions similaires

Réponses
9
Affichages
380

Statistiques des forums

Discussions
311 724
Messages
2 081 936
Membres
101 844
dernier inscrit
pktla