VBA - extraire valeur numérique et copier la valeur sur une rangée de cellules Résolu/Fermé

Question

Bonjour à tous,

Je bloque sur un problème excel et je sollicite de l'aide sur ce forum en espérant recevoir les lumières qu'il me faut!!

Tout d'abord, voici si jamais le lien du fichier qui permettra de mieux éclairer la problématique:
https://www.cjoint.com/c/JEnobPnEEPK

J'ai une extraction de données qui est difficilement exploitable et je cherche à la "ranger" pour pouvoir en faire un TCD.

Pour ce faire j'ai besoin de pouvoir extraire le matricule (sans les espaces et le nom) des cellules en jaune colonne B et de pouvoir les dupliquer en colonne A jusqu'au prochain matricule.

L'objectif est de pouvoir obtenir l'information comme indiqué en colonne D.

Sur cet exemple, cela est réalisable à la main, mais dans un autre fichier il y a plus de 8000 lignes et cela est chronophage.

J'avais commencé par faire la formule =gauche() mais pareil, le matricule change de longueur donc pas pratique.

J'ai du mal à voir comment faire sans passer par du VBA ce que je ne maîtrise pas très bien sauf dans la compréhension de la lecture!!

Merci à quiconque s'intéressera au sujet ;)

Bonne journée




Configuration: Windows / Chrome 79.0.3945.130

via55 · Answer

Bonjour Ymouf

Comme chauqe matricule est suivi d'un tiret :
=GAUCHE(B10;TROUVE("-";B10)-2)

Cdlmnt
Via

via55 · Answer

En A10 :
=SIERREUR(SI(TROUVE("-";B10)>0;GAUCHE(B10;TROUVE("-";B10)-2);"");A9)

via55 · Answer

Ah oui j'avais mal compris ! 
Alors en A3 :
=GAUCHE(DECALER(B3;EQUIV("*-*";DECALER(B3;;;10);0)-1;);TROUVE("-";DECALER(B3;EQUIV("*-*";DECALER(B3;;;10);0)-1;))-2)

Cdlmnt
Via

via55 · Answer

Il faut rechercher dans les seules lignes en dessous la présence d'un matricule identifiable par le tiret donc on part de la cellule de la ligne courante B3 et on décale en hauteur de 10 pour chercher dans les 10 lignes en dessous
Bien sûr si10 n'est pas suffisant tu peux augmenter le nombre dans la formule

VBA - extraire valeur numérique et copier la valeur sur une rangée de cellules

4 réponses

Discussions similaires