Bonjour à tous,
Comment contourner le pb de creation de format de nombre composer de 16
chiffres ou plutot 4 groupes de 4 chiffres séparés par un espace, la solution
du format TEXTE ne me convenant pas ! Je souhaite taper 1234123412341234 et
obtenir automatiquement 1234 1234 1234 1234
Un grand merci pour votre aide et vos réponses
Version Excel 2000
Bonjour à tous, Comment contourner le pb de creation de format de nombre composer de 16 chiffres ou plutot 4 groupes de 4 chiffres séparés par un espace, la solution du format TEXTE ne me convenant pas ! Je souhaite taper 1234123412341234 et obtenir automatiquement 1234 1234 1234 1234 Un grand merci pour votre aide et vos réponses Version Excel 2000
bonjour Uranie,
met au format personnalisé :
####" "####" "####" "####
isabelle
Bonjour à tous,
Comment contourner le pb de creation de format de nombre composer de 16
chiffres ou plutot 4 groupes de 4 chiffres séparés par un espace, la solution
du format TEXTE ne me convenant pas ! Je souhaite taper 1234123412341234 et
obtenir automatiquement 1234 1234 1234 1234
Un grand merci pour votre aide et vos réponses
Version Excel 2000
Bonjour à tous, Comment contourner le pb de creation de format de nombre composer de 16 chiffres ou plutot 4 groupes de 4 chiffres séparés par un espace, la solution du format TEXTE ne me convenant pas ! Je souhaite taper 1234123412341234 et obtenir automatiquement 1234 1234 1234 1234 Un grand merci pour votre aide et vos réponses Version Excel 2000
Uranie
Hello Isabelle, Malheureusement j'avais essayé sans succes, cela ne fonctionne pas car il y a plus de 15 chiffres et excel remplace le 16ième par zero - d'où mon SOS Si j'utilise le format Texte comme précisé dans l'aide il faut taper l'espace ou un séparateur : pas génial Merci tout de même !
bonjour Uranie,
met au format personnalisé :
####" "####" "####" "####
isabelle
Bonjour à tous, Comment contourner le pb de creation de format de nombre composer de 16 chiffres ou plutot 4 groupes de 4 chiffres séparés par un espace, la solution du format TEXTE ne me convenant pas ! Je souhaite taper 1234123412341234 et obtenir automatiquement 1234 1234 1234 1234 Un grand merci pour votre aide et vos réponses Version Excel 2000
Hello Isabelle,
Malheureusement j'avais essayé sans succes, cela ne fonctionne pas car il y
a plus de 15 chiffres et excel remplace le 16ième par zero - d'où mon SOS
Si j'utilise le format Texte comme précisé dans l'aide il faut taper
l'espace ou un séparateur : pas génial
Merci tout de même !
bonjour Uranie,
met au format personnalisé :
####" "####" "####" "####
isabelle
Bonjour à tous,
Comment contourner le pb de creation de format de nombre composer de 16
chiffres ou plutot 4 groupes de 4 chiffres séparés par un espace, la solution
du format TEXTE ne me convenant pas ! Je souhaite taper 1234123412341234 et
obtenir automatiquement 1234 1234 1234 1234
Un grand merci pour votre aide et vos réponses
Version Excel 2000
Hello Isabelle, Malheureusement j'avais essayé sans succes, cela ne fonctionne pas car il y a plus de 15 chiffres et excel remplace le 16ième par zero - d'où mon SOS Si j'utilise le format Texte comme précisé dans l'aide il faut taper l'espace ou un séparateur : pas génial Merci tout de même !
bonjour Uranie,
met au format personnalisé :
####" "####" "####" "####
isabelle
Bonjour à tous, Comment contourner le pb de creation de format de nombre composer de 16 chiffres ou plutot 4 groupes de 4 chiffres séparés par un espace, la solution du format TEXTE ne me convenant pas ! Je souhaite taper 1234123412341234 et obtenir automatiquement 1234 1234 1234 1234 Un grand merci pour votre aide et vos réponses Version Excel 2000
AV
Pour une saisie en A1 (cellule au format texte) Dans le module de la feuille :
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Or Len(zz) <> 16 Then Exit Sub Application.EnableEvents = False For i = 1 To 16 Step 4 x = x & " " & Mid(zz, i, 4) Next Application.EnableEvents = True zz = LTrim(x) End Sub
AV
Pour une saisie en A1 (cellule au format texte)
Dans le module de la feuille :
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Or Len(zz) <> 16 Then Exit Sub
Application.EnableEvents = False
For i = 1 To 16 Step 4
x = x & " " & Mid(zz, i, 4)
Next
Application.EnableEvents = True
zz = LTrim(x)
End Sub
Pour une saisie en A1 (cellule au format texte) Dans le module de la feuille :
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Or Len(zz) <> 16 Then Exit Sub Application.EnableEvents = False For i = 1 To 16 Step 4 x = x & " " & Mid(zz, i, 4) Next Application.EnableEvents = True zz = LTrim(x) End Sub
AV
Uranie
Merci AV pour le code Mon problème : après avoir copier/coller le code dans le module VBA d'excel, que dois-je faire pour que cela s'éxécute ; je ne pratique pas du tout la programmation VBA. Merci pour un complément sur la procédure d'utilisation de votre code.
Pour une saisie en A1 (cellule au format texte) Dans le module de la feuille :
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Or Len(zz) <> 16 Then Exit Sub Application.EnableEvents = False For i = 1 To 16 Step 4 x = x & " " & Mid(zz, i, 4) Next Application.EnableEvents = True zz = LTrim(x) End Sub
AV
Merci AV pour le code
Mon problème : après avoir copier/coller le code dans le module VBA d'excel,
que dois-je faire pour que cela s'éxécute ; je ne pratique pas du tout la
programmation VBA. Merci pour un complément sur la procédure d'utilisation de
votre code.
Pour une saisie en A1 (cellule au format texte)
Dans le module de la feuille :
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Or Len(zz) <> 16 Then Exit Sub
Application.EnableEvents = False
For i = 1 To 16 Step 4
x = x & " " & Mid(zz, i, 4)
Next
Application.EnableEvents = True
zz = LTrim(x)
End Sub
Merci AV pour le code Mon problème : après avoir copier/coller le code dans le module VBA d'excel, que dois-je faire pour que cela s'éxécute ; je ne pratique pas du tout la programmation VBA. Merci pour un complément sur la procédure d'utilisation de votre code.
Pour une saisie en A1 (cellule au format texte) Dans le module de la feuille :
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Or Len(zz) <> 16 Then Exit Sub Application.EnableEvents = False For i = 1 To 16 Step 4 x = x & " " & Mid(zz, i, 4) Next Application.EnableEvents = True zz = LTrim(x) End Sub
AV
jps
bonjour uranie AV vient de partir à l'apéro (il a fait chaud aujourd'hui sur le plateau de millevaches) pour exécuter la proc d'alain, une fois celle-ci installée dans le module de la feuille, il te suffit de taper dans la cellule A1 (ou tout autre mais il faudra modifier le $A$1 en conséquence) que tu auras mise au format texte, les 16 chiffres les uns derrière les autres et après validation, ô miracle, les chiffres se positionnent dans la cellule par bloc de 4 chiffres... alleluia jps
"Uranie" a écrit dans le message de news:
Merci AV pour le code Mon problème : après avoir copier/coller le code dans le module VBA d'excel, que dois-je faire pour que cela s'éxécute ; je ne pratique pas du tout la programmation VBA. Merci pour un complément sur la procédure d'utilisation de votre code.
Pour une saisie en A1 (cellule au format texte) Dans le module de la feuille :
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Or Len(zz) <> 16 Then Exit Sub Application.EnableEvents = False For i = 1 To 16 Step 4 x = x & " " & Mid(zz, i, 4) Next Application.EnableEvents = True zz = LTrim(x) End Sub
AV
bonjour uranie
AV vient de partir à l'apéro (il a fait chaud aujourd'hui sur le plateau de
millevaches)
pour exécuter la proc d'alain, une fois celle-ci installée dans le module de
la feuille, il te suffit de taper dans la cellule A1 (ou tout autre mais il
faudra modifier le $A$1 en conséquence) que tu auras mise au format texte,
les 16 chiffres les uns derrière les autres et après validation, ô miracle,
les chiffres se positionnent dans la cellule par bloc de 4 chiffres...
alleluia
jps
"Uranie" <Uranie@discussions.microsoft.com> a écrit dans le message de news:
ABFA8F40-38D4-442C-8D41-BEA4D2CF0E93@microsoft.com...
Merci AV pour le code
Mon problème : après avoir copier/coller le code dans le module VBA
d'excel,
que dois-je faire pour que cela s'éxécute ; je ne pratique pas du tout la
programmation VBA. Merci pour un complément sur la procédure d'utilisation
de
votre code.
Pour une saisie en A1 (cellule au format texte)
Dans le module de la feuille :
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Or Len(zz) <> 16 Then Exit Sub
Application.EnableEvents = False
For i = 1 To 16 Step 4
x = x & " " & Mid(zz, i, 4)
Next
Application.EnableEvents = True
zz = LTrim(x)
End Sub
bonjour uranie AV vient de partir à l'apéro (il a fait chaud aujourd'hui sur le plateau de millevaches) pour exécuter la proc d'alain, une fois celle-ci installée dans le module de la feuille, il te suffit de taper dans la cellule A1 (ou tout autre mais il faudra modifier le $A$1 en conséquence) que tu auras mise au format texte, les 16 chiffres les uns derrière les autres et après validation, ô miracle, les chiffres se positionnent dans la cellule par bloc de 4 chiffres... alleluia jps
"Uranie" a écrit dans le message de news:
Merci AV pour le code Mon problème : après avoir copier/coller le code dans le module VBA d'excel, que dois-je faire pour que cela s'éxécute ; je ne pratique pas du tout la programmation VBA. Merci pour un complément sur la procédure d'utilisation de votre code.
Pour une saisie en A1 (cellule au format texte) Dans le module de la feuille :
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Or Len(zz) <> 16 Then Exit Sub Application.EnableEvents = False For i = 1 To 16 Step 4 x = x & " " & Mid(zz, i, 4) Next Application.EnableEvents = True zz = LTrim(x) End Sub
AV
Uranie
Bonjour JPS, Ok pour exécuter la proc d'AV mais à présent j'ai Erreur de synthaxe sur la ligne : x = x & " " & Mid(zz, i, 4) et maintenant c'est un SOS que je lance ! Merci d'avance
bonjour uranie AV vient de partir à l'apéro (il a fait chaud aujourd'hui sur le plateau de millevaches) pour exécuter la proc d'alain, une fois celle-ci installée dans le module de la feuille, il te suffit de taper dans la cellule A1 (ou tout autre mais il faudra modifier le $A$1 en conséquence) que tu auras mise au format texte, les 16 chiffres les uns derrière les autres et après validation, ô miracle, les chiffres se positionnent dans la cellule par bloc de 4 chiffres... alleluia jps
"Uranie" a écrit dans le message de news:
Merci AV pour le code Mon problème : après avoir copier/coller le code dans le module VBA d'excel, que dois-je faire pour que cela s'éxécute ; je ne pratique pas du tout la programmation VBA. Merci pour un complément sur la procédure d'utilisation de votre code.
Pour une saisie en A1 (cellule au format texte) Dans le module de la feuille :
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Or Len(zz) <> 16 Then Exit Sub Application.EnableEvents = False For i = 1 To 16 Step 4 x = x & " " & Mid(zz, i, 4) Next Application.EnableEvents = True zz = LTrim(x) End Sub
AV
Bonjour JPS,
Ok pour exécuter la proc d'AV mais à présent j'ai Erreur de synthaxe sur la
ligne :
x = x & " " & Mid(zz, i, 4)
et maintenant c'est un SOS que je lance !
Merci d'avance
bonjour uranie
AV vient de partir à l'apéro (il a fait chaud aujourd'hui sur le plateau de
millevaches)
pour exécuter la proc d'alain, une fois celle-ci installée dans le module de
la feuille, il te suffit de taper dans la cellule A1 (ou tout autre mais il
faudra modifier le $A$1 en conséquence) que tu auras mise au format texte,
les 16 chiffres les uns derrière les autres et après validation, ô miracle,
les chiffres se positionnent dans la cellule par bloc de 4 chiffres...
alleluia
jps
"Uranie" <Uranie@discussions.microsoft.com> a écrit dans le message de news:
ABFA8F40-38D4-442C-8D41-BEA4D2CF0E93@microsoft.com...
Merci AV pour le code
Mon problème : après avoir copier/coller le code dans le module VBA
d'excel,
que dois-je faire pour que cela s'éxécute ; je ne pratique pas du tout la
programmation VBA. Merci pour un complément sur la procédure d'utilisation
de
votre code.
Pour une saisie en A1 (cellule au format texte)
Dans le module de la feuille :
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Or Len(zz) <> 16 Then Exit Sub
Application.EnableEvents = False
For i = 1 To 16 Step 4
x = x & " " & Mid(zz, i, 4)
Next
Application.EnableEvents = True
zz = LTrim(x)
End Sub
Bonjour JPS, Ok pour exécuter la proc d'AV mais à présent j'ai Erreur de synthaxe sur la ligne : x = x & " " & Mid(zz, i, 4) et maintenant c'est un SOS que je lance ! Merci d'avance
bonjour uranie AV vient de partir à l'apéro (il a fait chaud aujourd'hui sur le plateau de millevaches) pour exécuter la proc d'alain, une fois celle-ci installée dans le module de la feuille, il te suffit de taper dans la cellule A1 (ou tout autre mais il faudra modifier le $A$1 en conséquence) que tu auras mise au format texte, les 16 chiffres les uns derrière les autres et après validation, ô miracle, les chiffres se positionnent dans la cellule par bloc de 4 chiffres... alleluia jps
"Uranie" a écrit dans le message de news:
Merci AV pour le code Mon problème : après avoir copier/coller le code dans le module VBA d'excel, que dois-je faire pour que cela s'éxécute ; je ne pratique pas du tout la programmation VBA. Merci pour un complément sur la procédure d'utilisation de votre code.
Pour une saisie en A1 (cellule au format texte) Dans le module de la feuille :
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Or Len(zz) <> 16 Then Exit Sub Application.EnableEvents = False For i = 1 To 16 Step 4 x = x & " " & Mid(zz, i, 4) Next Application.EnableEvents = True zz = LTrim(x) End Sub
AV
jps
attendons le retour de AV, uranie, car chez moi, je n'ai pas d'erreur de syntaxe (par contre, sans "h" chez moi) AVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV au secours!!! jps
"Uranie" a écrit dans le message de news:
Bonjour JPS, Ok pour exécuter la proc d'AV mais à présent j'ai Erreur de synthaxe sur la ligne : x = x & " " & Mid(zz, i, 4) et maintenant c'est un SOS que je lance ! Merci d'avance
bonjour uranie AV vient de partir à l'apéro (il a fait chaud aujourd'hui sur le plateau de millevaches) pour exécuter la proc d'alain, une fois celle-ci installée dans le module de la feuille, il te suffit de taper dans la cellule A1 (ou tout autre mais il faudra modifier le $A$1 en conséquence) que tu auras mise au format texte, les 16 chiffres les uns derrière les autres et après validation, ô miracle, les chiffres se positionnent dans la cellule par bloc de 4 chiffres... alleluia jps
"Uranie" a écrit dans le message de news:
Merci AV pour le code Mon problème : après avoir copier/coller le code dans le module VBA d'excel, que dois-je faire pour que cela s'éxécute ; je ne pratique pas du tout la programmation VBA. Merci pour un complément sur la procédure d'utilisation de votre code.
Pour une saisie en A1 (cellule au format texte) Dans le module de la feuille :
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Or Len(zz) <> 16 Then Exit Sub Application.EnableEvents = False For i = 1 To 16 Step 4 x = x & " " & Mid(zz, i, 4) Next Application.EnableEvents = True zz = LTrim(x) End Sub
AV
attendons le retour de AV, uranie, car chez moi, je n'ai pas d'erreur de
syntaxe (par contre, sans "h" chez moi)
AVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV au secours!!!
jps
"Uranie" <Uranie@discussions.microsoft.com> a écrit dans le message de news:
727AB974-87B6-4205-828C-7E0BBB943B70@microsoft.com...
Bonjour JPS,
Ok pour exécuter la proc d'AV mais à présent j'ai Erreur de synthaxe sur
la
ligne :
x = x & " " & Mid(zz, i, 4)
et maintenant c'est un SOS que je lance !
Merci d'avance
bonjour uranie
AV vient de partir à l'apéro (il a fait chaud aujourd'hui sur le plateau
de
millevaches)
pour exécuter la proc d'alain, une fois celle-ci installée dans le module
de
la feuille, il te suffit de taper dans la cellule A1 (ou tout autre mais
il
faudra modifier le $A$1 en conséquence) que tu auras mise au format
texte,
les 16 chiffres les uns derrière les autres et après validation, ô
miracle,
les chiffres se positionnent dans la cellule par bloc de 4 chiffres...
alleluia
jps
"Uranie" <Uranie@discussions.microsoft.com> a écrit dans le message de
news:
ABFA8F40-38D4-442C-8D41-BEA4D2CF0E93@microsoft.com...
Merci AV pour le code
Mon problème : après avoir copier/coller le code dans le module VBA
d'excel,
que dois-je faire pour que cela s'éxécute ; je ne pratique pas du tout
la
programmation VBA. Merci pour un complément sur la procédure
d'utilisation
de
votre code.
Pour une saisie en A1 (cellule au format texte)
Dans le module de la feuille :
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Or Len(zz) <> 16 Then Exit Sub
Application.EnableEvents = False
For i = 1 To 16 Step 4
x = x & " " & Mid(zz, i, 4)
Next
Application.EnableEvents = True
zz = LTrim(x)
End Sub
attendons le retour de AV, uranie, car chez moi, je n'ai pas d'erreur de syntaxe (par contre, sans "h" chez moi) AVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV au secours!!! jps
"Uranie" a écrit dans le message de news:
Bonjour JPS, Ok pour exécuter la proc d'AV mais à présent j'ai Erreur de synthaxe sur la ligne : x = x & " " & Mid(zz, i, 4) et maintenant c'est un SOS que je lance ! Merci d'avance
bonjour uranie AV vient de partir à l'apéro (il a fait chaud aujourd'hui sur le plateau de millevaches) pour exécuter la proc d'alain, une fois celle-ci installée dans le module de la feuille, il te suffit de taper dans la cellule A1 (ou tout autre mais il faudra modifier le $A$1 en conséquence) que tu auras mise au format texte, les 16 chiffres les uns derrière les autres et après validation, ô miracle, les chiffres se positionnent dans la cellule par bloc de 4 chiffres... alleluia jps
"Uranie" a écrit dans le message de news:
Merci AV pour le code Mon problème : après avoir copier/coller le code dans le module VBA d'excel, que dois-je faire pour que cela s'éxécute ; je ne pratique pas du tout la programmation VBA. Merci pour un complément sur la procédure d'utilisation de votre code.
Pour une saisie en A1 (cellule au format texte) Dans le module de la feuille :
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Or Len(zz) <> 16 Then Exit Sub Application.EnableEvents = False For i = 1 To 16 Step 4 x = x & " " & Mid(zz, i, 4) Next Application.EnableEvents = True zz = LTrim(x) End Sub
