Perte du format lors de contatener

Résolu

DEVPLUS -
DEVPLUS - 14 avril 2018 à 18:07

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:

Perte du format lors de contatener
Format epub - Guide
Format factory - Télécharger - Conversion & Codecs
Hp usb disk storage format tool - Télécharger - Stockage
Format apfs - Guide
Format bin - Guide

1 réponse

Réponse 1 / 1

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention 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)

DEVPLUS

merci 1000 fois, le problème est résolu.

Votre réponse