XL 2019 Mise en forme des cellules en vba excel

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

patrick2a

XLDnaute Nouveau
Bonjour à tous,
Je suis en train de me former au VBA Excel en suivant des cours en vidéos ou des exercices sur différents sites spécialisés.
Mon but est de sauvegarder une facture dans une base de données.
Mon souci est que je n'arrive pas à sauvegarder certaines données au format voulu.
Je vous mets une partie de mon code.
Feuil10.Activate
Feuil10.Range("A50000").End(xlUp).Offset(1, 0).Select
'Envoi des données de la facture vers la base.
ActiveCell = .Range("g11") (Je voudrais l'enregistrer au format date)
ActiveCell.Offset(0, 1) = .Range("G10") (Je voudrais l'enregistrer au format nombre standard)
ActiveCell.Offset(0, 2) = .Range("C23")
ActiveCell.Offset(0, 3) = .Range("G24")
ActiveCell.Offset(0, 4) = .Range("G25")
'Détail de la facture
ActiveCell.Offset(0, 5) = .Range("C28")
ActiveCell.Offset(0, 6) = .Range("D28")
ActiveCell.Offset(0, 7) = .Range("E28")
ActiveCell.Offset(0, 8) = .Range("F28") (Je voudrais l'enregistrer au format monétaire).
Merci pour votre aide.
Cordialement.
 
Bonjour patrick2a,

Quand tu ne connais pas le code VBA associé à ce que tu souhaites faire, je te conseille de passer par l'enregistreur de macro, ainsi le code généré pourra t'aider.

Grace à l'enregistreur, voici ce qui en sort :
Date :
VB:
.NumberFormat = "d/m/yyyy"
Nombre :
VB:
.NumberFormat = "0.00"
Standard :
VB:
.NumberFormat = "General"
Monétaire :
VB:
.NumberFormat = "#,##0.00 $"
 
Bonjour patrick2a,

Quand tu ne connais pas le code VBA associé à ce que tu souhaites faire, je te conseille de passer par l'enregistreur de macro, ainsi le code généré pourra t'aider.

Grace à l'enregistreur, voici ce qui en sort :
Date :
VB:
.NumberFormat = "d/m/yyyy"
Nombre :
VB:
.NumberFormat = "0.00"
Standard :
VB:
.NumberFormat = "General"
Monétaire :
VB:
.NumberFormat = "#,##0.00 $"
Merci Ikito. Je vais suivre tes conseils.
Cordialement.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
650
Retour