format personnalise

Re : format personnalise

Bonjour Guiv,

Apres moult essais je pense que cela fonctionne, je te met le code si tu as des observations.

Private Sub CommandButton1_Click()
Dim Lettre As String, nombre As String, Indice As String

With Sheets(1)
Lettre = UCase(Left(.Range("E5"), 1))
Indice = UCase(Right(.Range("E5"), 3))
nombre = Mid(.Range("E5"), 2, 15)

.Range("E5") = Lettre & Mid(nombre, 1, 3) & "." & Mid(nombre, 4, 5) & "." & Mid(nombre, 9, 3) & "." & Mid(nombre, 12, 2) & "." & Indice & Mid(nombre, 1, 0)

End With
End Sub

Encore merci pour tout. je pense que je te contacterai a nouveau pour un sujet tout autre : un plan d'appro avec extraction de donnees via odbc si cela te branche.