Déterminer la position d'une lettre dans une suite de chiffre

A nouveau,

Une fonction Poz() à placer en B1 puis à tirer vers le bas pour tout donnée alphanumérique en colonne A, ligne 1 et suivantes.

Function Poz(mot)
Dim Str As String:Str = mot
For C = 0 To 9
Str = Replace(Str, C, "", 1)   'Elimination des données numériques 
Next C
Poz = InStr(1, mot, Left(Str, 1)) 'Recherche la position de la 1ière lettre de Str dans mot
End Function

Bons tests, bonne continuation

Bonjour,

Un retour sur la proposition ?

https://forum.excel-pratique.com/viewtopic.php?p=878196#p878196

Cdlt.

Puisqu'on est là, autant s'amuser un peu...

Public Function PosChar(Rng As Range) As Integer
Dim B() As Byte, i As Integer
    B = StrConv(UCase$(Rng.Value), vbFromUnicode)
    For i = LBound(B) To UBound(B)
        If B(i) >= 65 And B(i) <= 90 Then
            PosChar = i + 1
            Exit Function
        End If
    Next i
End Function

Jean-Eric a écrit :

Bonjour,

Un retour sur la proposition ?

https://forum.excel-pratique.com/viewtopic.php?p=878196#p878196

Cdlt.

Désolé, tout à fait débordé aujourd'hui.

J'ai regardé ta solution, et ça fonctionne tout aussi bien. Je t'en remercie.

Du coup, j'ai beaucoup de solution, et ca va compliquer ma tâche, car j'aime bien tout comprendre, donc je vais les évaluer toutes !

Petites question tient, vous préférez quoi du coup, pour ce cas précis, une formule matricielle, ou une macro, ou une macro qui fabrique une fonction? !

Petites question tient, vous préférez quoi du coup, pour ce cas précis, une formule matricielle, ou une macro, ou une macro qui fabrique une fonction?

Ce qui est le moins lourd pour le classeur.

Une macro qui se lance en une fois et inscrit les résultats dans des cellules peut-être privilégiée si elle vient en remplacement de milliers de formules.

On y gagne généralement en temps de calcul, d'exécution et de taille du fichier (je parles bien de milliers de formules, surtout dans le cas de matricielles).

Une fonction personnalisée par macro n'existe que pour les cas :

> ou ce type de fonction ne peut être réalisée via des formules classiques, (ce n'est clairement pas le cas ici)

> ou les formules "classiques matricielles" seraient trop lourdes, (c'est peut-être le cas ici)

> de méconnaissance des formules Excel...

Après, VBA nécessite des connaissances pour adapter...

Les formules Excel aussi...

Tout dépend donc du contexte...