XL 2016 Rechercher 1er chiffre dans une chaine

[Pexcel]

Bonjour,
j'utilise ce code pour renvoyer le numéro ou se trouve l'espace sur ma chaîne de caractères.

espace = InStr(Cels.Offset(0, 0).Value, " ") ' renvoie le numéro de l espace

Je n'arrive pas à trouver comment on peut extraire le numéro de la position sur ma chaîne de caractère du premier chiffre exemple :

GH66959 - POSITION 3
F3458 POSITION2
AVH9875563 POSITION 4
OPI AA369989 POSITION 7

Si vous avez une idée, je suis preneur !

Merci.

 

[Hasco]

Bonjour,

L'une ou l'autre de ces fonctions perso, parmi d'autres possibles :

Function NumPos(texte As String) As Integer
    Dim i As Long
    NumPos = -1
    For i = 1 To Len(texte)
        If Mid(texte, i, 1) Like "[0-9]" Then
            NumPos = i
            Exit For
        End If
    Next
End Function

Function NumPos2(texte As String) As Integer
    Dim i As Long
    NumPos2 = -1
    For i = 1 To Len(texte)
        If IsNumeric(Mid(texte, i, 1)) Then
            NumPos2 = i
            Exit For
        End If
    Next
End Function

Cordialement

 

[CISCO]

Bonsoir

Pour le fun, avec une formule matricielle à valider avec Ctrl+maj+entrer.

@ plus

 

[Pexcel]

Bonsoir, merci pour vos réponses mais je chercher plutôt une solution en VBA

 

[job75]

Bonsoir Pexcel, Roblochon, CISCO,

Voyez les 2 solutions dans le fichier joint :

- matricielle en B2 =MIN(SIERREUR(TROUVE({0;1;2;3;4;5;6;7;8;9};A2);FAUX))

- fonction VBA en C2 =PosNum(A2)

avec son code impérativement dans un module standard (Module1) :

Function PosNum(c As Range)
PosNum = Evaluate("MIN(IFERROR(FIND({0,1,2,3,4,5,6,7,8,9}," & c.Address & "),FALSE))")
End Function

A+

 

[job75]

Dans ce fichier (2) la formule est allégée =MIN(SIERREUR(TROUVE(LIGNE($1:$10)-1;A2);FAUX))

Function PosNum(c As Range)
PosNum = Evaluate("MIN(IFERROR(FIND(ROW(1:10)-1," & c.Address & "),FALSE))")
End Function

 

[job75]

Cela dit en terme de rapidité il vaut mieux utiliser l'un des codes de Roblochon qu'évaluer une formule Excel matricielle, mais bon, c'était juste pour montrer ce qu'on peut faire.

Cela dit les formules Excel matricielles ne prennent pas plus de temps que les codes de Roblochon.

 

[Staple1600]

Bonsoir le fil, PExcel, Roblochon, Cisco, job75

Une autre formule cette fois-ci non matricielle.
=STXT(A1;MIN(CHERCHE({0.1.2.3.4.5.6.7.8.9};A1&"0123456789"));1)

NB: Qu'elle prenne plus ou moins de temps ne retient pas mon attention.
C'est juste une possibilité de plus de faire ce qui est demandé
(J'ai ajouté le STXT pour extraire le 1er chiffre, si on ne veut que la position, il suffit de supprimer le STXT)
Ce qui donnera:
=MIN(CHERCHE({0.1.2.3.4.5.6.7.8.9};A1&"0123456789"))

 

[job75]

Bonsoir JM, d'accord mais si en A1 on a bonsoir la position renvoyée sera 8, ce n'est pas génial.

 

[Staple1600]

Re

Il suffira de s'assurer qu'en A1 soit saisi ce qui doit être saisi.


NB: Que ce soit génial ou pas ne retient pas non plus mon attention.
C'est une formule parmi d'autres.
Qu'on en fasse usage ou pas, reste le libre choix des lecteurs du fil.

 

[Pexcel]

Bonjour, des que j ai du temps je met un fichier joint

 

[job75]

Il suffira de s'assurer qu'en A1 soit saisi ce qui doit être saisi.

D'accord, en complétant la formule (non matricielle) comme ceci :

=MIN(OU(ESTNUM(TROUVE({0.1.2.3.4.5.6.7.8.9};A1)))*TROUVE({0.1.2.3.4.5.6.7.8.9};A1&"0123456789"))

Mais la durée des calculs sera nettement augmentée.

 

[job75]

Pour tester les durées des calculs j'ai recopié les 4 1ères lignes sur 100 000 lignes.

Formules Excel :

- post #2 => 0,81 seconde (matricielle)

- post #5 => 0,14 seconde (matricielle)

- post #6 => 0,15 seconde (matricielle)

- post #8 => 0,07 seconde

- post #12 => 0,13 seconde

Fonctions VBA :

- post #2 NumPos => 0,53 seconde

- post #2 NumPos2 => 0,54 seconde

- post #5 => 8,2 seconde

- post #6 => 8,4 seconde.

 

[Pexcel]

Bonsoir,
Voir mon exemple merci.

 

[job75]

Le code dans votre fichier ne va pas, utilisez l'une des solutions proposées, un point c'est tout.