(RESOLUTO)Format personalize (adapter un code)

[Ilino]

Forum Bonsoir
Je vous sollicite à m’aider pour adapter ce code à mon souci suivant
Je souhaite afficher un format personnalisé dans la cellule T10 (fusionnée) ‘Numéro. Initiales ( de la cellule E19) .ILINO .2014
EXEMPLE :
12.AB.ILINO.2014
Ci-dessous un code déjà réalisé « merci bénévole » mais pour un Textbox

Private Sub TextBox9_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Left(TextBox3, 2) = "M " Then
    TextBox9.Value = TextBox9.Value & "." & Mid(TextBox3, 3, 1) & Mid(Right(TextBox3, 2), 1, 1) & "." & "ILINO" & "." & Year(Now())
ElseIf Left(TextBox3, 2) = "Mm" Then
    TextBox9.Value = TextBox9.Value & "." & Mid(TextBox3, 5, 1) & Mid(Right(TextBox3, 2), 1, 1) & "." & "ILINO" & "." & Year(Now())
ElseIf Left(TextBox3, 2) = "Ml" Then
    TextBox9.Value = TextBox9.Value & "." & Mid(TextBox3, 6, 1) & Mid(Right(TextBox3, 2), 1, 1) & "." & "ILINO" & "." & Year(Now())
End If
End Sub

GRAZIE par Avance

 

[job75]

Re : Format personalize (adapter un code)

Bonsoir Ilino,

Private Sub Worksheet_Change(ByVal Target As Range)
Dim o As Range, d As Range, s
Set o = [E19]: Set d = [T10] 'à adapter
If d = "" Then Exit Sub
s = Split(Application.Trim(o.Text) & "  ") 'au moins 2 espaces
Application.EnableEvents = False
d = UCase(Split(d, ".")(0)) & IIf(s(1) = "", "", ".") & _
  UCase(Left(s(1), 1)) & UCase(Left(s(2), 1)) & ".ILINO." & Year(Date)
Application.EnableEvents = True
End Sub

Edit : ajouté la fonction Application.Trim (SUPPRESPACE).

Je te souhaite d'excellentes fêtes de fin d'année 2014.

A+

 

[Ilino]

Re : Format personalize (adapter un code)

Bonsoir MAITRE
sans d'oute ton code fonctionne parfaitement GRAZIE GRAZIE
Moi aussi ,Buon Anno 😱2015
Je te souhaite merveilleuse fêtes de fin d'année 2014.
A+

 

[job75]

Re : (RESOLUTO)Format personalize (adapter un code)

Re,

J'ai édité le post #2, vérifie ce que tu as pris.

A+

 

[Ilino]

Re : (RESOLUTO)Format personalize (adapter un code)

Re,
OKY
A+