OVH Cloud OVH Cloud

Format de cellule

11 réponses
Avatar
Pater Pan
Bonjour,
Quel format personnalisé utiliser pour qu'un code IBAN du type
FR7619406370612257018900179 apparaisse ainsi :
FR76 1940 6370 4242 5701 8900 179
Merci d'avance.

10 réponses

1 2
Avatar
JièL Goubert
Bonjoir(c) Pater Pan

@@@@ @@@@ @@@@ @@@@ @@@@ @@@
ah zut, c'est pour Access ça ;-)

Pour Excel, il faudrait ne pas saisir le "FR" au début et le mettre dans
le format, mais le pb c'est qu'il y a bien trop de chiffre et que du coup
Excel arrondi la "valeur"

JièL toujours aussi marteau ;-)

Le 07/07/2005 17:17 vous avez écrit ceci :
Bonjour,
Quel format personnalisé utiliser pour qu'un code IBAN du type
FR7619406370612257018900179 apparaisse ainsi :
FR76 1940 6370 4242 5701 8900 179
Merci d'avance.


Avatar
Pater Pan
Bonjour,
Oter le "FR" du début n'est pas une solution dans la mesure ou il peut aussi
y avoir des lettres dans le numéro de compte (ex: FR76 4520 0004 5687 89XC
8005 289)
Une autre idée, quelqu'un ?



Bonjoir(c) Pater Pan

@@@@ @@@@ @@@@ @@@@ @@@@ @@@
ah zut, c'est pour Access ça ;-)

Pour Excel, il faudrait ne pas saisir le "FR" au début et le mettre dans
le format, mais le pb c'est qu'il y a bien trop de chiffre et que du coup
Excel arrondi la "valeur"

JièL toujours aussi marteau ;-)

Le 07/07/2005 17:17 vous avez écrit ceci :
Bonjour,
Quel format personnalisé utiliser pour qu'un code IBAN du type
FR7619406370612257018900179 apparaisse ainsi :
FR76 1940 6370 4242 5701 8900 179
Merci d'avance.





Avatar
rgi
bonjour

mettre en format texte ou mettre un apostrophe devant

'FR76 1940 6370 6122 5701 8900 179

salutations

Gilbert

"Pater Pan" a écrit dans le message de
news:
Bonjour,
Oter le "FR" du début n'est pas une solution dans la mesure ou il peut
aussi
y avoir des lettres dans le numéro de compte (ex: FR76 4520 0004 5687 89XC
8005 289)
Une autre idée, quelqu'un ?



Bonjoir(c) Pater Pan

@@@@ @@@@ @@@@ @@@@ @@@@ @@@
ah zut, c'est pour Access ça ;-)

Pour Excel, il faudrait ne pas saisir le "FR" au début et le mettre dans
le format, mais le pb c'est qu'il y a bien trop de chiffre et que du coup
Excel arrondi la "valeur"

JièL toujours aussi marteau ;-)

Le 07/07/2005 17:17 vous avez écrit ceci :
Bonjour,
Quel format personnalisé utiliser pour qu'un code IBAN du type
FR7619406370612257018900179 apparaisse ainsi :
FR76 1940 6370 4242 5701 8900 179
Merci d'avance.







Avatar
Pater Pan
Bonjour,
Le contenu de la cellule n'est pas saisi mais importé d'une base Access. Je
cherche le moyen de séparer les caractères par groupes de 4 pour des raisons
de lisibilité.
Merci quand même.


bonjour

mettre en format texte ou mettre un apostrophe devant

'FR76 1940 6370 6122 5701 8900 179

salutations

Gilbert

"Pater Pan" a écrit dans le message de
news:
Bonjour,
Oter le "FR" du début n'est pas une solution dans la mesure ou il peut
aussi
y avoir des lettres dans le numéro de compte (ex: FR76 4520 0004 5687 89XC
8005 289)
Une autre idée, quelqu'un ?



Bonjoir(c) Pater Pan

@@@@ @@@@ @@@@ @@@@ @@@@ @@@
ah zut, c'est pour Access ça ;-)

Pour Excel, il faudrait ne pas saisir le "FR" au début et le mettre dans
le format, mais le pb c'est qu'il y a bien trop de chiffre et que du coup
Excel arrondi la "valeur"

JièL toujours aussi marteau ;-)

Le 07/07/2005 17:17 vous avez écrit ceci :
Bonjour,
Quel format personnalisé utiliser pour qu'un code IBAN du type
FR7619406370612257018900179 apparaisse ainsi :
FR76 1940 6370 4242 5701 8900 179
Merci d'avance.












Avatar
AV
S'il s'agit d'un "formatage" à la saisie et pour la cellule A1 :
Dans le module de la feuille :

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Or Len(zz) <> 27 Then Exit Sub
Application.EnableEvents = False
For i = 5 To 25 Step 4
x = x & " " & Mid(zz, i, 4)
Next
zz = Left(zz, 4) & x
Application.EnableEvents = True
End Sub

AV
Avatar
AV
Le contenu de la cellule n'est pas saisi mais importé d'une base Access. Je
cherche le moyen de séparer les caractères par groupes de 4 pour des raisons
de lisibilité.


Alors une boucle ( à adapter à ta plage)

Sub zz_Formate()
For Each c In Range("A2:A" & [A65536].End(3).Row)
For i = 5 To 25 Step 4
x = x & " " & Mid(c, i, 4)
Next
c.Value = Left(c, 4) & x : x = ""
Next
End Sub

AV

Avatar
Pater Pan
Bonjour,
Il ne s'agit pas d'un formatage "à la saisie" mais du résultat d'une
formule. Votre routine fonctionne mais remplace la formule par la valeur
résultante, ce que je ne souhaite pas. Je ne veux modifier que "l'apparence"
de ma cellule.
Merci tout de même.


S'il s'agit d'un "formatage" à la saisie et pour la cellule A1 :
Dans le module de la feuille :

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Or Len(zz) <> 27 Then Exit Sub
Application.EnableEvents = False
For i = 5 To 25 Step 4
x = x & " " & Mid(zz, i, 4)
Next
zz = Left(zz, 4) & x
Application.EnableEvents = True
End Sub

AV





Avatar
AV
.........Je ne veux modifier que "l'apparence" de ma cellule.


C'est pas gagné !
:-)
AV

Avatar
Pater Pan
Merci encore, mais là aussi, cela remplace ma formule par une valeur. Je ne
souhaite pas modifier le contenu de la cellule (pour des raisons de mise à
jour), mais son apparence.


Le contenu de la cellule n'est pas saisi mais importé d'une base Access. Je
cherche le moyen de séparer les caractères par groupes de 4 pour des raisons
de lisibilité.


Alors une boucle ( à adapter à ta plage)

Sub zz_Formate()
For Each c In Range("A2:A" & [A65536].End(3).Row)
For i = 5 To 25 Step 4
x = x & " " & Mid(c, i, 4)
Next
c.Value = Left(c, 4) & x : x = ""
Next
End Sub

AV






Avatar
Pater Pan
Merci pour l'encouragement "optimiste"... :-)


.........Je ne veux modifier que "l'apparence" de ma cellule.


C'est pas gagné !
:-)
AV






1 2