Perte du format lors de contatener

Résolu
DEVPLUS -  
 DEVPLUS -
Bonjour,
je vous prie de bien vouloir m'aider à surmonter la barrière suivante en vba excel:
  • sur la feuille ("Données Enreg") j'ai les cellules:

- B5=00 ; C5=P ; L2=2018 ; M2=0000
  • sur la feuille ("Dossier Achat") j'ai un bouton de Cde Nouveau et la cellule D6 contient le numero d'achat qui est combiné comme suite B5C5L2M2 dans cette ordre.

- Click sur le bouton nouveau, je n'ai pas le même format que les cellule B5 et M2 dans la Cellule D6.
Sur D6 j'ai exe: 1P201815 au lieu de 01P20180015
Mon code BVA: 
Sub nouvelle_Achat()
'
' nouvelle_Achat Macro
'
Sheets("Données Enreg").Range("B5").Value = Sheets("Données Enreg").Range("B5").Value + 1
Sheets("Données Enreg").Range("M2").Value = Sheets("Données Enreg").Range("M2").Value + 1
Sheets("Dossier Achat").Range("D6").Value = Sheets("Données Enreg").Range("B5").Value + 1 & Sheets("Données Enreg").Range("C5").Value & Sheets("Données Enreg").Range("L2").Value & Sheets("Données Enreg").Range("M2").Value + 1

End Sub


EDIT : Ajout des balises de code



A voir également:

1 réponse

Réponse 1 / 1
yg_be Messages postés 24281 Statut Contributeur Ambassadeur 1 584
 
bonjour, suggestion: 
Sheets("Dossier Achat").Range("D6").Value = _
    Format(Sheets("Données Enreg").Range("B5").Value + 1, Sheets("Données Enreg").Range("B5").NumberFormat) _
    & Sheets("Données Enreg").Range("C5").Value _
    & Sheets("Données Enreg").Range("L2").Value _
    & Format(Sheets("Données Enreg").Range("M2").Value + 1, Sheets("Données Enreg").Range("M2").NumberFormat)
0
DEVPLUS
 
merci 1000 fois, le problème est résolu.
0