(RESOLUTO)Format personalize (adapter un code)

Ilino · 21 Décembre 2014

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

Code:

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 · 21 Décembre 2014

Re : Format personalize (adapter un code)

Bonsoir Ilino,

Code:

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 · 21 Décembre 2014

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 · 21 Décembre 2014

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

Re,

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

A+

Ilino · 21 Décembre 2014

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

Re,
OKY
A+

(RESOLUTO)Format personalize (adapter un code)

Ilino

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Ilino

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Ilino

XLDnaute Barbatruc

Discussions similaires

(RESOLUTO)Format personalize (adapter un code)

Ilino

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Ilino

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Ilino

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency