Format de cellule personnalisé

T

Titesoeur

XLDnaute Nouveau
Bonjour,

Petit soucis de format personnalisé sous excel 2016.
Je souhaiterais pouvoir mettre en forme une série de chiffres (23) en intégrant des espaces tous les 4 caractères avec seulement 3 caractères sur la dernière partie.

Explication:
Je tape : 12345678901236547896541
et je voudrais : 1234 5678 9012 3654 7896 541

J'ai tout essayé mais rien ne fonctionne. Quand la "mise en forme" fonctionne, les derniers caractères se transforment en 0 :confused: (Normal puisque Excel ne prend pas plus d'un certain nombre de chiffres 15 je crois). Du coup en texte ça fonctionne mais il faut taper les espaces :confused: pas cool...

Je suis preneuse de toute aide venue et je vous remercie tous d'avance.
 
Trier par date Trier par votes
sylvanu

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir,
Une solution en rajoutant une colonne avec :
VB: 
=STXT(D6;1;4)&" " &STXT(D6;5;4)&" " &STXT(D6;9;4)&" " &STXT(D6;13;4)&" " &STXT(D6;17;4)&" " &STXT(D6;21;3)
et en masquant la colonne ayant les nombres.
Attention faire précéder les "nombres" par une apostrophe pour être considérés comme un texte sinon XL tronquera ce nombre.
 
Vote positif 0 Vote négatif
J

jmfmarques

XLDnaute Accro
Bonjour
l'utilisation de vba me parait plus judicieuse dans un tel cas. Elle permet de traiter directement la valeur saisie et d'éviter en outre de formater à nouveau indûment.
Exemple :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)

  If Target.Column = 1 Then

    If Target.Value Like String(23, "#") Then

      Target.Value = Format(Target.Value, "@@@@ @@@@ @@@@ @@@@ @@@@ @@@")

    End If

  End If

End Sub
 
Vote positif 0 Vote négatif
T

Titesoeur

XLDnaute Nouveau
jmfmarques à dit:
Bonjour
l'utilisation de vba me parait plus judicieuse dans un tel cas. Elle permet de traiter directement la valeur saisie et d'éviter en outre de formater à nouveau indûment.
Exemple :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)

  If Target.Column = 1 Then

    If Target.Value Like String(23, "#") Then

      Target.Value = Format(Target.Value, "@@@@ @@@@ @@@@ @@@@ @@@@ @@@")

    End If

  End If

End Sub
Cliquez pour agrandir...



:( Sniff, ça ne fonctionne pas.

Après, j'ai déjà plusieurs macro sur le fichier, donc je pense que ça doit coincer quelque part.

Je joins le fichier pour plus de compréhension.

Le format doit se faire dans la colonne AG soit la n°33.

J'en profite pour un autre soucis.
La macro d'insertion fonctionne super bien à l'ouverture du fichier, mais par la suite ça bug (mais uniquement au bureau, pas chez moi). Une idée??? :rolleyes:
 

Pièces jointes

  • Copie de Suivi ATD vierge1.xlsm
    56.9 KB · Affichages: 8
Vote positif 0 Vote négatif
T

Titesoeur

XLDnaute Nouveau
jmfmarques à dit:
Je n'ouvre aucun classeur tiers.
fonctionne sans faille chez moi, pour autant que (relire ce qu'en dit sylvanu) :
Cliquez pour agrandir...

Du coup, voici ta macro avec celle déjà en place sur la même feuille.

Si tu veux bien y jeter un coup d'œil et simplement m'indiquer ce que je dois modifier, tu m'enlèverais une sacrée épine du pied. Je me doute que c'est dans le "vocabulaire" (zz et Target" mais je bute.

Je t'en remercie par avance. :D

Private Sub Worksheet_Change(ByVal zz As Range)
On Error Resume Next
If Intersect(zz, [Nom,Organisme,Ville,BIC,Pays]) Is Nothing Then Exit Sub
Application.EnableEvents = False
zz = UCase(zz)
Application.EnableEvents = True

If Target.Column = 33 Then
If Target.Value Like String(23, "#") Then
Target.Value = Format(Target.Value, "@@@@ @@@@ @@@@ @@@@ @@@@ @@@")
End If
End If

End Sub
 
Vote positif 0 Vote négatif
GALOUGALOU

GALOUGALOU

XLDnaute Accro
bonsoir titesoeur, bonsoir le fil, bonsoir le forum
je vous propose une solution par formulaire, qui s'ouvre par un double clic dans une cellule de la colonne ag.
le nombre saisi se met en forme au fur et à mesure de la frappe.
VB: 
Private Sub CommandButton1_Click()
ActiveCell = TextBox1.Text
Unload Me
End Sub

Private Sub TextBox1_Change()

     If TextBox1.TextLength = 4 Or TextBox1.TextLength = 9 Or TextBox1.TextLength = 14 Or TextBox1.TextLength = 19 Or TextBox1.TextLength = 24 Then TextBox1.Text = TextBox1 + " "

End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Dim VT As Integer
    TextBox1.MaxLength = 28
    Select Case KeyAscii
        Case 48 To 57
        Case Else
            KeyAscii = 0
            MsgBox "CARACTERE NON AUTORISE"
    End Select
End Sub
précision : le code de jmfmarques marche très bien, c'est le début de votre code qui plombe la macro qu'il vous a proposé.
cordialement
galougalou
 

Pièces jointes

  • Suivi ATD vierge avec formulaire.xlsm
    64.2 KB · Affichages: 4
Vote positif 0 Vote négatif
T

Titesoeur

XLDnaute Nouveau
GALOUGALOU à dit:
bonsoir titesoeur, bonsoir le fil, bonsoir le forum
je vous propose une solution par formulaire, qui s'ouvre par un double clic dans une cellule de la colonne ag.
le nombre saisi se met en forme au fur et à mesure de la frappe.
VB: 
Private Sub CommandButton1_Click()
ActiveCell = TextBox1.Text
Unload Me
End Sub

Private Sub TextBox1_Change()

     If TextBox1.TextLength = 4 Or TextBox1.TextLength = 9 Or TextBox1.TextLength = 14 Or TextBox1.TextLength = 19 Or TextBox1.TextLength = 24 Then TextBox1.Text = TextBox1 + " "

End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Dim VT As Integer
    TextBox1.MaxLength = 28
    Select Case KeyAscii
        Case 48 To 57
        Case Else
            KeyAscii = 0
            MsgBox "CARACTERE NON AUTORISE"
    End Select
End Sub
précision : le code de jmfmarques marche très bien, c'est le début de votre code qui plombe la macro qu'il vous a proposé.
cordialement
galougalou
Cliquez pour agrandir...


C'est nickel, sauf qu'il peut arriver qu'il y ait une lettre également. Et là ça ne fonctionne plus "CARACTERE NON AUTORISE"...
Merci beaucoup.:D:D:D
 
Vote positif 0 Vote négatif
GALOUGALOU

GALOUGALOU

XLDnaute Accro
re
mais si mais si, cela va fonctionner, il vous suffit de modifier le code
Private Sub TextBox1_KeyPress par le code ci-dessous

VB: 
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Dim VT As Integer
    TextBox1.MaxLength = 28
End Sub
cordialement
galougalou
 
Vote positif 0 Vote négatif
T

Titesoeur

XLDnaute Nouveau
GALOUGALOU à dit:
re
mais si mais si, cela va fonctionner, il vous suffit de modifier le code
Private Sub TextBox1_KeyPress par le code ci-dessous

VB: 
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Dim VT As Integer
    TextBox1.MaxLength = 28
End Sub
cordialement
galougalou
Cliquez pour agrandir...


Super ça fonctionne exactement comme je voulais.
En revanche, un petit problème se pose, c'est que mes formules de la colonne A ne restent pas...
Elles sont toutes simple en A2 j'ai 0 puis A3 j'ai la formule A2+1 et ainsi de suite...
Sauf que lorsque je tape la formule en A3, elle se calcule mais se "convertie" en valeur... La formule envolée... :confused:

Je sais j'abuse un peu de la bonté de tous Merciiiii :)
 
Vote positif 0 Vote négatif
T

Titesoeur

XLDnaute Nouveau
Titesoeur à dit:
Super ça fonctionne exactement comme je voulais.
En revanche, un petit problème se pose, c'est que mes formules de la colonne A ne restent pas...
Elles sont toutes simple en A2 j'ai 0 puis A3 j'ai la formule A2+1 et ainsi de suite...
Sauf que lorsque je tape la formule en A3, elle se calcule mais se "convertie" en valeur... La formule envolée... :confused:

Je sais j'abuse un peu de la bonté de tous Merciiiii :)
Cliquez pour agrandir...


Encore un petit abus... dsl :rolleyes:
Toutes les colonnes se mettent en MAJUSCULES alors que j'ai une macro pour que certaines colonnes uniquement soit en majuscules et pas les autres. En regardant, j'ai vu que vous aviez "bloqué" la partie où je demandais certaines colonnes. Mais quand je la "débloque", il n'y a plus du tout de majuscule.:eek:
Je ne sais pas non plus comment intégrer dans cette même macro le fait que la colonne E soit formater en Nom Propre.

Dix millions de merci à tous pour votre aide.
Mon fichier sera pour ainsi dire parfait grâce à vous tous.;););)
 
Dernière édition:
Vote positif 0 Vote négatif

Discussions similaires

Orson83
  • Résolu(e)
XL 2010 Format de cellule lettres + année + 00
2
Réponses
22
Affichages
773
Orson83
Orson83
D
  • Question
XL 2019 Souci format de nombre personnalisé (diviser par mille)
2 3
Réponses
41
Affichages
3 K
TooFatBoy
TooFatBoy
E
  • Question
XL 2016 Format de cellule texte (afficher les 5 premiers caractères)
Réponses
4
Affichages
2 K
Dudu2
Dudu2
M
  • Question
XL 2016 Export .csv avec conditions sur format de cellule
Réponses
8
Affichages
1 K
JHA
J
laurent950
  • Question
XL 2013 Les Fonctions personnalisé avec Aide à la saisie et Aide boite de dialogue
Réponses
0
Affichages
2 K
laurent950
laurent950
S
  • Question
XL 2016 format de cellule personnalisé
Réponses
3
Affichages
926
JHA
J
patouman
  • Question
FORMAT DE CELLULE PERSONNALISE
Réponses
5
Affichages
841
Dranreb
Dranreb
kdet
  • Question
XL 2016 Format personnalisé : Ajouter des 0 derrières les nombre
Réponses
13
Affichages
5 K
kdet
kdet
Hayholten
  • Question
XL 2016 Actualisation Format de Cellule - Forms vers du Publipostage
Réponses
0
Affichages
1 K
Hayholten
Hayholten
vgendron
  • Question
Format personnalisé - Afficher Unité dans cellule vide
Réponses
5
Affichages
3 K
Yurperqod
Yurperqod

Membres actuellement en ligne

21 membres et 432 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 030
Messages
2 084 780
Membres
102 664
dernier inscrit
LudovicF