Remplacer _xlfn.CONCAT dans une formule

J

JHA

XLDnaute Barbatruc

• 9 Avril 2019

• #2

Bonjour à tous,

En effet cette fonction n'est pas reconnue dans ta version, peux-tu mettre un bout de fichier pour essayer de te donner une solution.

JHA

 

Vote positif 0 Vote négatif

djidji59430

XLDnaute Barbatruc

• 9 Avril 2019

• #3

Bonjour,

Ça dépend de ce qu'il y a derrière !

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Avril 2019

• #4

Bonsoir

Problème bien connu
Les détails et explications
Donc pas solution miracle, un peu de CTRL+H et réécriture des formules acceptées par la version Excel utilisée.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Avril 2019

• #5

Bonsoir à tous,

Staple1600 à dit:

Problème bien connu

Cliquez pour agrandir...

Pas bien connu pour "_xlfn.CONCAT" , en tout cas chez moi car je ne l'ai jamais rencontré...

A+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Avril 2019

• #6

Bonjour job75

Je parlais du fait de voir les formules précédées par _xlfn
Sinon d'autres semblent avoir rencontré du _xlfn.CONCAT...

 

Dernière édition: 9 Avril 2019

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Avril 2019

• #7

En fait la fonction CONCAT a été introduite sur EXCEL 2019, elle remplace la fonction CONCATENATE :

https://www.excelfunctions.net/excel-concat-function.html

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Avril 2019

• #8

Maintenant pour remplacer _xlfn.CONCAT par une fonction VBA lisible mettez ce code dans un module standard :

VB:

Sub Corriger()
Dim w As Worksheet
For Each w In Worksheets
    w.Cells.Replace "_xlfn.CONCAT", "MyConcat", xlPart
Next
End Sub

Function MyConcat(r As Range)
For Each r In r
    MyConcat = MyConcat & CStr(r)
Next
End Function

Exécutez la macro Corriger et enregistrez le fichier en .xlsm

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Avril 2019

• #9

Re

Job75
Il y a une raison pour ne pas utiliser CONCATENER?
J'ai testé un CTRL+H et cela semble fonctionner (test sur XL 2013)

Code:

Sub Macro1()
Selection.Replace What:="_xlfn.CONCAT", Replacement:="CONCATENER", LookAt:=xlPart, SearchOrder:=xlByRows
End Sub

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Avril 2019

• #10

Oui bien sûr JM mais on peut penser qu'on a utilisé CONCAT pour concaténer une plage de cellules.

Ce que ne peut pas faire CONCATENER (qui en fait est peu utilisé car on se sert de l'opérateur "&").

 

Vote positif 0 Vote négatif

A

asvr

XLDnaute Nouveau

• 10 Avril 2019

• #11

Bonjour,
Voici la fonction :

Merci à tous pour votre temps !

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Avril 2019

• #12

OK donc utiliser :

VB:

Sub Corriger()
Dim w As Worksheet
For Each w In Worksheets
    w.Cells.Replace "_xlfn.CONCAT", "CONCATENER", xlPart
Next
End Sub

 

Vote positif 0 Vote négatif

A

asvr

XLDnaute Nouveau

• 10 Avril 2019

• #13

Ça a marché !

Merci bien
Antoine

 

Vote positif 0 Vote négatif