Extraire le numéro de chèque en Formule et en VBA

MJ13

XLDnaute Barbatruc
Bonjour à tous

J'aimerai savoir comment facilement en formule et en VBA, extraire le numéro de chèque d'une colonne (voir exemple joint).

J'accepte aussi les fonctions.

Merci d'avance :).
 

Pièces jointes

  • Extraire_Numéro_Cheque_MJ.xls
    26 KB · Affichages: 226
  • Extraire_Numéro_Cheque_MJ.xls
    26 KB · Affichages: 249
  • Extraire_Numéro_Cheque_MJ.xls
    26 KB · Affichages: 239

tototiti2008

XLDnaute Barbatruc
Re : Extraire le numéro de chèque en Formule et en VBA

Bonjour à tous,

Comme tout le monde joue, une formule pour la 1ère problématique (ne peut toujours pas ouvrir les zip)

Code:
=STXT(G2;EQUIV("1";STXT(G2;LIGNE(INDIRECT("A1:A"&NBCAR(G2)));1);0);4)

(matricielle)

en espérant ne pas être trop loin du sujet actuel ;)
 

pierrejean

XLDnaute Barbatruc
Re : Extraire le numéro de chèque en Formule et en VBA

Re

Pour Tototiti

La version non zippée , mise a jour avec sa formule
Et je n'ai pas resisté a l'introduction d'un autre petit piège
(si si il existe des rues de la gare très très longue !!)
 

Pièces jointes

  • Extraire_Numéro_Cheque_Solutions_Tibo_Efge_Bqtr_Pierrejean_David84_b.xls
    54.5 KB · Affichages: 75

MJ13

XLDnaute Barbatruc
Re : Extraire le numéro de chèque en Formule et en VBA

Re Bonjour à tous, bienvenue au Club Tototiti

Bon, comme je vois qu'ons s'amuse. Du coup, je viens de faire cette petite fonction pour extraire les chiffres.

Code:
Function num_extr_MJ(cel As Range)
'MJ
Lcel = Len(cel.Value)
For i = Lcel To 1 Step -1
If IsNumeric(Mid(cel.Value, i, 1)) Then valnum1 = Mid(cel.Text, i, 1) & valnum1
Next
num_extr_MJ = valnum1
End Function
 

david84

XLDnaute Barbatruc
Re : Extraire le numéro de chèque en Formule et en VBA

Bonsoir,
une proposition répondant à la dernière demande de pierrejean;) (il y a sûrement plus simple mais pas le temps tout de suite).
A+
 

Pièces jointes

  • Copie de Extraire_Numéro_Cheque_Solutions_Tibo_Efge_Bqtr_Pierrejean_David84_b.zip
    19.2 KB · Affichages: 46
  • Copie de Extraire_Numéro_Cheque_Solutions_Tibo_Efge_Bqtr_Pierrejean_David84_b.zip
    19.2 KB · Affichages: 49
  • Copie de Extraire_Numéro_Cheque_Solutions_Tibo_Efge_Bqtr_Pierrejean_David84_b.zip
    19.2 KB · Affichages: 45

pierrejean

XLDnaute Barbatruc
Re : Extraire le numéro de chèque en Formule et en VBA

Bonjour a Tous

Bravo Michel : belle fonction

S'il y avait un match Vba / Formule
Nombre de caracteres de la fonction personnalisée num_cheq_PierreJean(cellule)=277
Nombre de caracteres de la Formule de David=292

Fichier mis a jour
 

Pièces jointes

  • Copie de Extraire_Numéro_Cheque_Solutions_Tibo_Efge_Bqtr_Pierrejean_David84_b.zip
    20.2 KB · Affichages: 39
  • Copie de Extraire_Numéro_Cheque_Solutions_Tibo_Efge_Bqtr_Pierrejean_David84_b.zip
    20.2 KB · Affichages: 36
  • Copie de Extraire_Numéro_Cheque_Solutions_Tibo_Efge_Bqtr_Pierrejean_David84_b.zip
    20.2 KB · Affichages: 40

david84

XLDnaute Barbatruc
Re : Extraire le numéro de chèque en Formule et en VBA

Bravo Michel:D
Ceci dit comparons ce qui est comparable :
- sauf erreur de ma part seules les propositions de Michel et la mienne extraient un nombre de chiffres supérieurs à 4 (si l'on n'a pas besoin d'aller au-delà de 4, la formule serait plus courte de 51 caractères).
- celle de Michel extraient l'ensemble des chiffres alors que la mienne non.
Moralité : elles ne répondent pas à la même demande;)
Sympa de petit défi initié par pierrejean où les adeptes des formules et ceux de la VBA peuvent se côtoyer...
 

Efgé

XLDnaute Barbatruc
Re : Extraire le numéro de chèque en Formule et en VBA

Bonjour à tous,
Quel engouement pour ce sujet ;),
Il est vrai que de proposer une comparaison VBA / Formules est une bonne idée
Je n'ai pas abandonner le projet d'améliorer ma proposition par VBA, mais je viens de constater, après maintes tentatives, que je suis en train de recréer la macro de Pierrejean :eek:.
Je continu à suivre le fil, mais j'ai peur d'être arrivé au bout de mes compétences / connaissances.
Cordialelement
 

MJ13

XLDnaute Barbatruc
Re : Extraire le numéro de chèque en Formule et en VBA

Bonjour à tous

Et bien, je ne pensais pas que ce petit problème allait autant déchaîner les foules :).

Du coup grâce à vous tous, je me suis aperçu, que j'étais plus vba ou fonction que formule.
J'ai refait le fichier avec les différentes solutions proposées. et comme j'ai un petit peu évolué dans la compréhension des fonctions (surtout grâce à Pierre-Jean ;)), j'ai rajouté quelques fonctions pour extraire x caractères à partir d'un chiffre à trouver et pour extraire un texte.

J'ai fait un fichier qui résume les solutions en partant du piège de Pierre-Jean (bien partir de la gauche en double cliquant comme l'indique le carré bleu et sur click si c'est une macro). Si j'en ai oublié 1 ou 2 , ne m'en voulez pas mais je pense avoir fait le tour des réponses.

Comme cela chacun pourra y trouver une solution en fonction de sa problématique. Si vous avez d'autres problèmes de la sorte , il serait bien d'ouvrir une nouvelle discussion, sinon, on ne va plus savoir où l'on est).

Merci à tous et bonne semaine :).
 

Pièces jointes

  • Extraire_Numéro_Cheque_Solutions_Diverses.zip
    21.1 KB · Affichages: 45

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 920
Membres
101 840
dernier inscrit
SamynoT