extraction en vba

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
GVA
Le #18910001
Bonsoir,

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


"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





Philippe.R
Le #18910131
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" 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





AnB
Le #18910401
merci de votre aide
"Philippe.R" 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" 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








Modeste
Le #18910391
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)")
AnB
Le #18910761
merci encore pour ce petit code modeste mai efficace
AnB
"Modeste" 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)")
Publicité
Poster une réponse
Anonyme