Format de cellule personnalisé avec texte

nono555 · 24 Juillet 2013

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 · 24 Juillet 2013

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.

Code:

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 · 24 Juillet 2013

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 😱

Format de cellule personnalisé avec texte

nono555

XLDnaute Occasionnel

mécano41

XLDnaute Accro

Gen Rose

XLDnaute Impliqué

Discussions similaires

Format de cellule personnalisé avec texte

nono555

XLDnaute Occasionnel

mécano41

XLDnaute Accro

Gen Rose

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency