XL 2013 recherche et note

verdo28 · 20 Octobre 2021

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 · 20 Octobre 2021

Bonjour à tous,

Avec ce que je comprends

JHA

verdo28 · 20 Octobre 2021

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 · 20 Octobre 2021

Bonjour le Forum,
Bonjour verdo28, JHA

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

VB:

=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 · 20 Octobre 2021

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 · 20 Octobre 2021

Bonjour à tous,
Bonjour Jocelyn ,

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

VB:

=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 · 20 Octobre 2021

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

XL 2013 recherche et note

verdo28

XLDnaute Nouveau

JHA

XLDnaute Barbatruc

Pièces jointes

verdo28

XLDnaute Nouveau

Jocelyn

XLDnaute Barbatruc

verdo28

XLDnaute Nouveau

JHA

XLDnaute Barbatruc

verdo28

XLDnaute Nouveau

Discussions similaires