perte du format lors de contatener Résolu

Question

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



Configuration: Windows / Chrome 65.0.3325.181

yg_be · Answer

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)

Perte du format lors de contatener

1 réponse

Discussions similaires

Newsletters