Bonjour,
Je souhaite que des numéros de pièces s'affichent avec un préfixe et un
nombre de chiffres définis comme paramètres.
Exemple : A 002 569 ou N° 08 975. Ces valeurs doivent toujours être des
nombres.
Les numéros sont donc 2569 ou 8975 les préfixes A ou N°, et les longueurs
d'affichage sont 6 et 5 dans les exemples ci-dessus.
Pour créer des formats personnalisés, j'ai écrit le code ci-dessous. il
fonctionne bien, sauf que pour certains préfixes (comme B, D, E, G ou AB, N)
cela ne fonctionne pas du tout. Je peux utiliser A° mais pas N°, A ou AC mais
pas AB, par exemple...
Si quelqu'un a des lumières, je suis preneur.
Merci.
Voici ce que j'ai écrit :
Sub Test()
Dim Nombre As Long
Dim Forme As Integer
Dim Longueur As String
Dim Préfixe As String
Dim i As Integer
Nombre = Range("A1").Value ' 12345
Forme = Range("B1").Value ' 9
Préfixe = Range("C1").Value & " " ' N°
Longueur = ""
For i = 1 To Forme
If i Mod 3 = 1 And i > 1 Then
Longueur = "0," & Longueur
Else
Longueur = "0" & Longueur
End If
Next i
Range("A2").Activate
ActiveCell = Nombre
Selection.NumberFormat = "0"
Selection.NumberFormat = Préfixe & Longueur
End Sub