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.