Format de cellule personnalisé

ZEZETTEBULL Messages postés 10 Statut Membre -  
eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

En cet période de confinement, je fais des recommandés en ligne à la pelle via LaPoste.
Afin de gagner du temps, je cherche à mettre en forme, automatiquement, leur n° d'accusé réception au format : xx xxx xxx xxxx x (qui contient 1 lettre)
J'ai essayé la méthode : Format de cellule -> Personnalisée, etc. mais je n'y arrive pas.

Merci d'avance pour votre aide.

2 réponses

  1.
    eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    Bonjour,

    avec une petite macro qui contrôle la validité de la saisie avant.
    Ici supervision de la colonne B : 
    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim s As String
    If Target.Column = 2 Then 'colonne B then
        s = UCase(Target)
        If s Like "#[A-Z]###########" Then Target = Left(s, 2) & " " & Format(Mid(s, 3), "000 000 0000 0")
    End If
End Sub

    https://www.cjoint.com/c/JCEhvTrDCAV
    eric
    2
    1. ZEZETTEBULL Messages postés 10 Statut Membre
       
      Eriic,
      Merci pour ta réponse, c'est exactement ce que je cherche.
      Je ne sais juste pas faire de macro... et je ne vais pas te demander un cours express !
      Je vais m'y mettre...
      Merci encore !
      Bon confinement.
      0
      1. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281 > ZEZETTEBULL Messages postés 10 Statut Membre
         
        Bonjour,
        Tu aurais pu te raser la moustache pour ta photo de profil :-)
        Et sans doute que M-12 aurait apprécié un merci également...
        eric
        0
  2. M-12 Messages postés 1349 Statut Membre 285
     
    Bonjour,
    par le format personnalisé, je ne pense pas que cela soit possible
    par une formule dans une colonne intermédiaire avec pour l'exemple le N° en A1 

    =GAUCHE(A1;2)&" "&STXT(A1;3;3)&" "&STXT(A1;6;3)&" "&STXT(A1;10;4)&" "&DROITE(A1;1)
    1