Bonjour,
est il possible de saisir "au kilometre" une série de chiffres
pour lesquels les 4 premiers iraient dans une cellules les 7 suivants
dans une autre , l suivant dans une autre le deux suivants dans une autre ?
en gros de faire changer de cellule sans la tabulation ou la touche entrée .
Merci :)
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
Philippe.R
Bonsoir Dan
Sub eclate() 'MPFE le 27/11/2003 par philippe R. Dim kilom As String kilom = InputBox("Saisissez votre chaîne de 14 chiffres ci dessous", "M.P.F.E.") [a3] = Left(kilom, 4) [b3] = Right(Left(kilom, 11), 7) [c3] = Right(Left(kilom, 12), 1) [d3] = Right(kilom, 2) End Sub
convient il ? -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"dan" a écrit dans le message de news:
Bonjour, est il possible de saisir "au kilometre" une série de chiffres pour lesquels les 4 premiers iraient dans une cellules les 7 suivants dans une autre , l suivant dans une autre le deux suivants dans une autre ? en gros de faire changer de cellule sans la tabulation ou la touche entrée . Merci :)
Bonsoir Dan
Sub eclate()
'MPFE le 27/11/2003 par philippe R.
Dim kilom As String
kilom = InputBox("Saisissez votre chaîne de 14 chiffres ci dessous", "M.P.F.E.")
[a3] = Left(kilom, 4)
[b3] = Right(Left(kilom, 11), 7)
[c3] = Right(Left(kilom, 12), 1)
[d3] = Right(kilom, 2)
End Sub
convient il ?
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"dan" <direct65@tiscali.fr> a écrit dans le message de news:3FC64FEC.2010001@tiscali.fr...
Bonjour,
est il possible de saisir "au kilometre" une série de chiffres
pour lesquels les 4 premiers iraient dans une cellules les 7 suivants
dans une autre , l suivant dans une autre le deux suivants dans une autre ?
en gros de faire changer de cellule sans la tabulation ou la touche entrée .
Merci :)
Sub eclate() 'MPFE le 27/11/2003 par philippe R. Dim kilom As String kilom = InputBox("Saisissez votre chaîne de 14 chiffres ci dessous", "M.P.F.E.") [a3] = Left(kilom, 4) [b3] = Right(Left(kilom, 11), 7) [c3] = Right(Left(kilom, 12), 1) [d3] = Right(kilom, 2) End Sub
convient il ? -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"dan" a écrit dans le message de news:
Bonjour, est il possible de saisir "au kilometre" une série de chiffres pour lesquels les 4 premiers iraient dans une cellules les 7 suivants dans une autre , l suivant dans une autre le deux suivants dans une autre ? en gros de faire changer de cellule sans la tabulation ou la touche entrée . Merci :)
AV
Pour des saisies en A1:A10 (à adapter) et une ventilation sur Ax;Bx;Cx;Dx Dans le module de la feuille : Private Sub Worksheet_Change(ByVal zz As Range) If Intersect(zz, [A1:A10]) Is Nothing Then Exit Sub If Len(zz) <> 14 Then Application.EnableEvents = False zz.Select: MsgBox "blabla": zz.Resize(1, 4) = "" Application.EnableEvents = True Exit Sub End If x = zz.Row: y = zz Application.EnableEvents = False Cells(x, 1) = Left(y, 4) Cells(x, 2) = Mid(y, 5, 7) Cells(x, 3) = Mid(y, 12, 1) Cells(x, 4) = Right(y, 2) Application.EnableEvents = True End Sub
AV
"dan" a écrit dans le message news:
Bonjour, est il possible de saisir "au kilometre" une série de chiffres pour lesquels les 4 premiers iraient dans une cellules les 7 suivants dans une autre , l suivant dans une autre le deux suivants dans une autre ? en gros de faire changer de cellule sans la tabulation ou la touche entrée . Merci :)
Pour des saisies en A1:A10 (à adapter) et une ventilation sur Ax;Bx;Cx;Dx
Dans le module de la feuille :
Private Sub Worksheet_Change(ByVal zz As Range)
If Intersect(zz, [A1:A10]) Is Nothing Then Exit Sub
If Len(zz) <> 14 Then
Application.EnableEvents = False
zz.Select: MsgBox "blabla": zz.Resize(1, 4) = ""
Application.EnableEvents = True
Exit Sub
End If
x = zz.Row: y = zz
Application.EnableEvents = False
Cells(x, 1) = Left(y, 4)
Cells(x, 2) = Mid(y, 5, 7)
Cells(x, 3) = Mid(y, 12, 1)
Cells(x, 4) = Right(y, 2)
Application.EnableEvents = True
End Sub
AV
"dan" <direct65@tiscali.fr> a écrit dans le message news:
3FC64FEC.2010001@tiscali.fr...
Bonjour,
est il possible de saisir "au kilometre" une série de chiffres
pour lesquels les 4 premiers iraient dans une cellules les 7 suivants
dans une autre , l suivant dans une autre le deux suivants dans une autre ?
en gros de faire changer de cellule sans la tabulation ou la touche entrée .
Merci :)
Pour des saisies en A1:A10 (à adapter) et une ventilation sur Ax;Bx;Cx;Dx Dans le module de la feuille : Private Sub Worksheet_Change(ByVal zz As Range) If Intersect(zz, [A1:A10]) Is Nothing Then Exit Sub If Len(zz) <> 14 Then Application.EnableEvents = False zz.Select: MsgBox "blabla": zz.Resize(1, 4) = "" Application.EnableEvents = True Exit Sub End If x = zz.Row: y = zz Application.EnableEvents = False Cells(x, 1) = Left(y, 4) Cells(x, 2) = Mid(y, 5, 7) Cells(x, 3) = Mid(y, 12, 1) Cells(x, 4) = Right(y, 2) Application.EnableEvents = True End Sub
AV
"dan" a écrit dans le message news:
Bonjour, est il possible de saisir "au kilometre" une série de chiffres pour lesquels les 4 premiers iraient dans une cellules les 7 suivants dans une autre , l suivant dans une autre le deux suivants dans une autre ? en gros de faire changer de cellule sans la tabulation ou la touche entrée . Merci :)
