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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
Bonsoir,
N'est il pas plus facile de tout reprendre et d'effacer ensuite "CONCERNANT
LA FACTURE"
GVA
"AnB" <nospamanb@noos.fr> a écrit dans le message de news:
uSbQUqapJHA.5100@TK2MSFTNGP03.phx.gbl...
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
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
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
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" <nospamanb@noos.fr> a écrit dans le message de
news:uSbQUqapJHA.5100@TK2MSFTNGP03.phx.gbl...
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
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
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
merci de votre aide
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:
uQq%23U1apJHA.1248@TK2MSFTNGP03.phx.gbl...
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" <nospamanb@noos.fr> a écrit dans le message de
news:uSbQUqapJHA.5100@TK2MSFTNGP03.phx.gbl...
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
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
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.
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.
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.
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.
merci encore pour ce petit code modeste mai efficace
AnB
"Modeste" <GD@libre.fr> a écrit dans le message de news:
OOEA%23ZbpJHA.5360@TK2MSFTNGP03.phx.gbl...
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.
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.