Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

extraction en vba

5 réponses
Avatar
AnB
bonsoir

j'ai ceci en A1 : CONCERNANT LA FACTURE 0F00901010311
je ne trouve pas comment reprendre le n° de facture ici 0f00901010311
par une macro. le numéro peut varier en longeur.
merci de votre aide
AnB

5 réponses

Avatar
GVA
Bonsoir,

N'est il pas plus facile de tout reprendre et d'effacer ensuite "CONCERNANT
LA FACTURE"
GVA


"AnB" a écrit dans le message de news:

bonsoir

j'ai ceci en A1 : CONCERNANT LA FACTURE 0F00901010311
je ne trouve pas comment reprendre le n° de facture ici 0f00901010311
par une macro. le numéro peut varier en longeur.
merci de votre aide
AnB





Avatar
Philippe.R
Bonsoir,
Pour traiter une chaîne en inscrivant la partie de droite dans la 1ère
cellule située à droite :

Sub chfr()
On Error Resume Next
For i = 1 To Len(Selection.Value)
If Not IsNumeric(Right(Left(Selection. _
Value, i), 1) + 0) Then
GoTo suite
Else
Selection.Offset(0, 1).Value = Right _
(Selection.Value, Len(Selection. _
Value) - i + 1)
Exit For
End If
suite:
Next i
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"AnB" a écrit dans le message de
news:
bonsoir

j'ai ceci en A1 : CONCERNANT LA FACTURE 0F00901010311
je ne trouve pas comment reprendre le n° de facture ici 0f00901010311
par une macro. le numéro peut varier en longeur.
merci de votre aide
AnB





Avatar
AnB
merci de votre aide
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:
uQq%
Bonsoir,
Pour traiter une chaîne en inscrivant la partie de droite dans la 1ère
cellule située à droite :

Sub chfr()
On Error Resume Next
For i = 1 To Len(Selection.Value)
If Not IsNumeric(Right(Left(Selection. _
Value, i), 1) + 0) Then
GoTo suite
Else
Selection.Offset(0, 1).Value = Right _
(Selection.Value, Len(Selection. _
Value) - i + 1)
Exit For
End If
suite:
Next i
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"AnB" a écrit dans le message de
news:
bonsoir

j'ai ceci en A1 : CONCERNANT LA FACTURE 0F00901010311
je ne trouve pas comment reprendre le n° de facture ici 0f00901010311
par une macro. le numéro peut varier en longeur.
merci de votre aide
AnB








Avatar
Modeste
Bonsour® AnB avec ferveur ;o))) vous nous disiez :

j'ai ceci en A1 : CONCERNANT LA FACTURE 0F00901010311
je ne trouve pas comment reprendre le n° de facture ici 0f00901010311
par une macro. le numéro peut varier en longeur.



MsgBox Evaluate("=MID(A1 , FIND(""FACTURE "" , A1)+8 , 99)")
Avatar
AnB
merci encore pour ce petit code modeste mai efficace
AnB
"Modeste" a écrit dans le message de news:
OOEA%
Bonsour® AnB avec ferveur ;o))) vous nous disiez :

j'ai ceci en A1 : CONCERNANT LA FACTURE 0F00901010311
je ne trouve pas comment reprendre le n° de facture ici 0f00901010311
par une macro. le numéro peut varier en longeur.



MsgBox Evaluate("=MID(A1 , FIND(""FACTURE "" , A1)+8 , 99)")