Bonsoir Données en A1 =SI(STXT(A1;CHERCHE("-";A1;1)+1;2)*1>10;STXT(A1;CHERCHE("-";A1;1)+1;2)*1;0)
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "Apitos" a écrit dans le message de groupe de discussion :
Bonsoir à tous,
Quelle formule, me permettra d'extraire la première série de chiffres d'une chaine de caractères.
Exemples :
EDFT2-0&&-63 => 0
EDFT2-64&&-127 => 64
Merci.
Bonsoir
Données en A1
=SI(STXT(A1;CHERCHE("-";A1;1)+1;2)*1>10;STXT(A1;CHERCHE("-";A1;1)+1;2)*1;0)
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Apitos" a écrit dans le message de groupe de discussion :
84de878d-6bdc-4fd5-b8e4-a162ea325265@googlegroups.com...
Bonsoir à tous,
Quelle formule, me permettra d'extraire la première série de chiffres d'une
chaine de caractères.
Bonsoir Données en A1 =SI(STXT(A1;CHERCHE("-";A1;1)+1;2)*1>10;STXT(A1;CHERCHE("-";A1;1)+1;2)*1;0)
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "Apitos" a écrit dans le message de groupe de discussion :
Bonsoir à tous,
Quelle formule, me permettra d'extraire la première série de chiffres d'une chaine de caractères.
Exemples :
EDFT2-0&&-63 => 0
EDFT2-64&&-127 => 64
Merci.
MichD
Bonjour,
Dans un module standard, tu copies cette fonction personnalisée : Elle suppose que la première chaîne de chiffre débute après le premier symbole "-"
Si ta chaîne est dans la cellule A1, dans la cellule de ton choix, tu écris : =Extraire_Chiffres(A1)
'------------------------ Function Extraire_Chiffres(Rg As Range) Dim T As Variant If InStr(1, Rg.Value, "-", vbTextCompare) > 0 Then T = Split(Rg, "-") Extraire_Chiffres = Replace(T(1), "&", "") Else Extraire_Chiffres = "" End If End Function '------------------------
"Apitos" a écrit dans le message de groupe de discussion :
Bonsoir à tous,
Quelle formule, me permettra d'extraire la première série de chiffres d'une chaine de caractères.
Exemples :
EDFT2-0&&-63 => 0
EDFT2-64&&-127 => 64
Merci.
Bonjour,
Dans un module standard, tu copies cette fonction personnalisée :
Elle suppose que la première chaîne de chiffre débute après le
premier symbole "-"
Si ta chaîne est dans la cellule A1, dans la cellule de ton choix, tu écris
:
=Extraire_Chiffres(A1)
'------------------------
Function Extraire_Chiffres(Rg As Range)
Dim T As Variant
If InStr(1, Rg.Value, "-", vbTextCompare) > 0 Then
T = Split(Rg, "-")
Extraire_Chiffres = Replace(T(1), "&", "")
Else
Extraire_Chiffres = ""
End If
End Function
'------------------------
"Apitos" a écrit dans le message de groupe de discussion :
84de878d-6bdc-4fd5-b8e4-a162ea325265@googlegroups.com...
Bonsoir à tous,
Quelle formule, me permettra d'extraire la première série de chiffres d'une
chaine de caractères.
Dans un module standard, tu copies cette fonction personnalisée : Elle suppose que la première chaîne de chiffre débute après le premier symbole "-"
Si ta chaîne est dans la cellule A1, dans la cellule de ton choix, tu écris : =Extraire_Chiffres(A1)
'------------------------ Function Extraire_Chiffres(Rg As Range) Dim T As Variant If InStr(1, Rg.Value, "-", vbTextCompare) > 0 Then T = Split(Rg, "-") Extraire_Chiffres = Replace(T(1), "&", "") Else Extraire_Chiffres = "" End If End Function '------------------------
"Apitos" a écrit dans le message de groupe de discussion :
Bonsoir à tous,
Quelle formule, me permettra d'extraire la première série de chiffres d'une chaine de caractères.
Exemples :
EDFT2-0&&-63 => 0
EDFT2-64&&-127 => 64
Merci.
MichD
Dans la fonction, j'ai omis le *1 sur cette ligne Extraire_Chiffres = Replace(T(1), "&", "") * 1
à toi de l'ajouter!
Dans la fonction, j'ai omis le *1 sur cette ligne
Extraire_Chiffres = Replace(T(1), "&", "") * 1
