Format de cellule personnalisé avec texte

[nono555]

Bonjour,

Peut-on personnalisé le format d'une cellule contenant du texte.

Par exemple, l'utilisateur rentre 7 caractère (chiffre ou lettre) et la cellule rend "c1c c1 c1".

Merci d'avance.

Nono

 

[mécano41]

Re : Format de cellule personnalisé avec texte

Bonjour,

Format personnalisé, je ne pense pas (enfin...je ne sais pas).

Si tu ne trouves pas de solution, tu as toujours cette possibilité en mettant ce bout de code VBA dans la feuille intéressée et en adaptant la zone dans laquelle tu veux appliquer cette contrainte (dans mon code, c'est "A1:A10") et le nombre de caractères imposé est de 7 avec espaces après 3 et après 5.

Option Explicit

Sub Worksheet_Change(ByVal Cible As Range)
If Not Intersect(Cible, Range("A1:A10")) Is Nothing Then
    If Len(Cible.Value) = 7 Then
        Application.EnableEvents = False
        Cible.Value = Left(Cible.Value, 3) & " " & Mid(Cible.Value, 4, 2) & " " & Mid(Cible.Value, 6, 2)
        Application.EnableEvents = True
    Else
        MsgBox "Vous devez entrer 7 caractères"
        Exit Sub
    End If
End If
End Sub

Cordialement

 

[Gen Rose]

Re : Format de cellule personnalisé avec texte

Bonjour mécano41,
nono555, Le Forum,

J'ai trouvé ce fil, question de venir mettre mon petit grain de sel.

La macro semble facile à adapter.

En souhaitant que ça aide!

à plusche 😱