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 !!)
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
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
Re : Extraire le numéro de chèque en Formule et en VBA
Bravo Michel
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...
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 .
Je continu à suivre le fil, mais j'ai peur d'être arrivé au bout de mes compétences / connaissances.
Cordialelement
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).