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

D

danielco

XLDnaute Barbatruc

• 9 Octobre 2020

• #2

Bonjour,

A ma connaissance, non, sauf si tu es le créateur du complément.

Cordialement.

Daniel

 

Vote positif 0 Vote négatif

Jouxte

XLDnaute Occasionnel

• 9 Octobre 2020

• #3

Bonjour daleico, bonjour le Forum,

C'est bien ce que je craignais.
Merci pour le retour.

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Barbatruc

• 9 Octobre 2020

• #4

Si c'est nécessaire, on peut créer une fonction perso (macro) intégrée au classeur.

Daniel

 

Vote positif 0 Vote négatif

Jouxte

XLDnaute Occasionnel

• 12 Octobre 2020

• #5

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

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Barbatruc

• 12 Octobre 2020

• #6

Je ne connais pas cette fonction. Il faudrait que tu décrives ce qu'elle fait.

Daniel

 

Vote positif 0 Vote négatif

Jouxte

XLDnaute Occasionnel

• 12 Octobre 2020

• #7

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.

Fonction Excel : RECHERCHE_X

Cette fonction Excel recherche une valeur dans une plage de cellules et renvoie une valeur à la même position dans une autre plage de cellules ...

www.excel-pratique.com

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Barbatruc

• 12 Octobre 2020

• #8

La plage de recherche et la plage résultats ont donc les mêmes dimensions ?

Daniel

 

Vote positif 0 Vote négatif

Jouxte

XLDnaute Occasionnel

• 12 Octobre 2020

• #9

Oui

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Barbatruc

• 12 Octobre 2020

• #10

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

 

Vote positif 0 Vote négatif

Jouxte

XLDnaute Occasionnel

• 12 Octobre 2020

• #11

ça me renvoie la dernière valeur

 

Pièces jointes

• recherche_x.xlsm

  18.3 KB · Affichages: 7

Vote positif 0 Vote négatif

D

danielco

XLDnaute Barbatruc

• 12 Octobre 2020

• #12

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

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Barbatruc

• 12 Octobre 2020

• #13

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

 

Vote positif 0 Vote négatif

Jouxte

XLDnaute Occasionnel

• 12 Octobre 2020

• #14

Merci beaucoup.
C'est top
Bonne soirée.

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Barbatruc

• 13 Octobre 2020

• #15

Tu peux faire des recherches multi-colonnes :



Daniel

 

Vote positif 0 Vote négatif