XL 2013 recherche et note

[verdo28]

Bonjour
Dans mon classeur j'ai ma feuille "compte" et ma feuille "Recup" , dans cette feuille "recup" j'ai de A1:A39 des noms de fichiers excel comme ceci :

3D - 20210725 -2 - DUPONT Johann - 75 Euros.xls

3D - 20210725 -3 - COUCOU Charline - 125 Euros.xls

3D - 20210725 -4 - BONJOUR Alexandre - 80 Euros.xls

3D - 20210725 -5 - SCEAP SALUT- 70 Euros.xls

3D - 20210725 -7 - ECOLE ENFANT - 80 Euros.xls

3D - 20210725-10 - COLLEGE ESSAI - Made Beaufils - 55 Euros.xls

3D - 20210725-9 - MR & MADE GENTIL - 43,5 Euros.xls

3D -20210629 -1 - Portier gerard - 120 Euros.xls

3D -20210629 -2 - Mairie duroi - 230 Euros.pdf

3D -20210629 -2 - Mairie bataille - 230 Euros.xls

et ainsi de suite jusqu'à la ligne 39
dans ma feuille "compte" en [A1] j'ai un nom jamais le même , disons qu'il est noté en [a1] COLLEGE ESSAI , ce que je voudrais , c'est que dans cette feuille Compte en [A2] j'ai une formule (ou autre chose) qui recherche dans ma feuille "recup" ma cellule[A1] donc COLLEGE ESSAI et que cela me note les 16 premiers caractères de cette ligne ( la , cela serait = 3D - 20210725-10 ) est-ce possible ?
merci d'avance

 

[JHA]

Bonjour à tous,

Avec ce que je comprends

JHA

 

[verdo28]

Super ca a l'air de fonctionner, mais peut faire la formule sans le " - " de la fin

j'ai bien ceci qui me le retire mais c'est encore rajouter une formule
=GAUCHE(B1;16)

 

[Jocelyn]

Bonjour le Forum,
Bonjour verdo28, JHA

Principalement pour saluer JHA et accessoirement à tester une autre formule qui supprime le -

=SUPPRESPACE(INDEX(GAUCHE(Feuil1!$A$1:$A$10;16);SOMMEPROD((ESTNUM(CHERCHE(Recup!A1;Feuil1!$A$1:$A$10)))*LIGNE(Feuil1!$A$1:$A$10))))

Cordialement

 

[verdo28]

Super merci ca fonctionne
une dernier chose,
en J15 j'ai copier et modifier cette formule pour quelle s'adapte a mon classeur
ce qui me fais ca dans ma macro =
[J15].FormulaR1C1 = _
"=TRIM(INDEX(LEFT(Recup!R[-14]C[-9]:R[24]C[-9],16),SUMPRODUCT((ISNUMBER(SEARCH(R[-8]C[-7],Recup!R[-14]C[-9]:R[-5]C[-9])))*ROW(Recup!R[-14]C[-9]:R[-5]C[-9]))))"

' je converti la formule en écriture
[J15] = [J15].Value
'je selectionne J15 jusqu'a la derniere cellule vide au dessus
[J15].Select
Range(Selection, Selection.End(xlUp)).Select

'mais j'arrive pas a trier cette plage sélectionner, car tous les mois ca change et je peux pas lui donner une adresse fixe.
' quelqu'un sait comment faire, merci

 

[JHA]

Bonjour à tous,
Bonjour Jocelyn ,

Pour supprimer le"- du bout, mettre "-3" au lieu de "-1" dans la formule.

=GAUCHE(INDEX(Feuil1!$A$2:$A$11;EQUIV("*"&$A1&"*";Feuil1!$A$2:$A$11;0));CHERCHE($A1;INDEX(Feuil1!$A$2:$A$11;EQUIV("*"&$A1&"*";Feuil1!$A$2:$A$11;0)))-3)

JHA

 

[verdo28]

Rebonjour a tous, du coup j'ai fais ca , ca marche merci a tous

Sub Macro9()
[J15].FormulaR1C1 = _
"=TRIM(INDEX(LEFT(Recup!R[-14]C[-9]:R[24]C[-9],16),SUMPRODUCT((ISNUMBER(SEARCH(R[-8]C[-7],Recup!R[-14]C[-9]:R[-5]C[-9])))*ROW(Recup!R[-14]C[-9]:R[-5]C[-9]))))"
[J15] = [J15].Value
[J15].Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Sort Key1:=Range("J15"), Order1:=xlAscending
End Sub