Inversion jour et mois dans cellule - Macro

Bonjour,

Je rencontre un soucis sur excel-vba.

J'ai à la base 5 colonnes dans un tableau que je souhaite extraire avec une macro.

La macro fonctionne sauf que la cellule correspondant à la date inverse le jour et le mois.... Au lieu d'obtenir le 04/01/2018 la date est le 01/04/2018.

Voici ma macro :

Sub EtapeA()

'

Dim ws_ENREGISTRER As Worksheet

Dim ws_PROBLEMEJ As Worksheet

Dim Date_probleme As String

Dim Ligne As String

Dim Machine As String

Dim Rem_Nett As String

Dim Problemes_rencontres As String

Dim lstrw As Long

Dim rwnum As Long

Set ws_ENREGISTRER = Worksheets("ENREGISTRER")

Set ws_PROBLEMEJ = Worksheets("PROBLEMEJ")

Date_probleme = ws_ENREGISTRER.Range("C12").Value

Ligne = ws_ENREGISTRER.Range("D12").Value

Machine = ws_ENREGISTRER.Range("E12").Value

Rem_Nett = ws_ENREGISTRER.Range("F12").Value

Problemes_rencontres = ws_ENREGISTRER.Range("G12").Value

'identifier Derniere ligne

lstrw = ws_ENREGISTRER.Cells(Rows.Count, 5).End(xlUp).Row

'Premiere ligne ligne vide

rwnum = lstrw + 1

'copier coller champ

ws_PROBLEMEJ.Cells(2, "A").Value = Date_probleme

ws_PROBLEMEJ.Cells(2, "B").Value = Ligne

ws_PROBLEMEJ.Cells(2, "C").Value = Machine

ws_PROBLEMEJ.Cells(2, "D").Value = Rem_Nett

ws_PROBLEMEJ.Cells(2, "E").Value = Problemes_rencontres

Date_probleme = ws_ENREGISTRER.Range("C13").Value

Ligne = ws_ENREGISTRER.Range("D13").Value

Machine = ws_ENREGISTRER.Range("E13").Value

Rem_Nett = ws_ENREGISTRER.Range("F13").Value

Problemes_rencontres = ws_ENREGISTRER.Range("G13").Value

'copier coller champ

ws_PROBLEMEJ.Cells(3, "A").Value = Date_probleme

ws_PROBLEMEJ.Cells(3, "B").Value = Ligne

ws_PROBLEMEJ.Cells(3, "C").Value = Machine

ws_PROBLEMEJ.Cells(3, "D").Value = Rem_Nett

ws_PROBLEMEJ.Cells(3, "E").Value = Problemes_rencontres

Date_probleme = ws_ENREGISTRER.Range("C14").Value

Ligne = ws_ENREGISTRER.Range("D14").Value

Machine = ws_ENREGISTRER.Range("E14").Value

Rem_Nett = ws_ENREGISTRER.Range("F14").Value

Problemes_rencontres = ws_ENREGISTRER.Range("G14").Value

'copier coller champ

ws_PROBLEMEJ.Cells(4, "A").Value = Date_probleme

ws_PROBLEMEJ.Cells(4, "B").Value = Ligne

ws_PROBLEMEJ.Cells(4, "C").Value = Machine

ws_PROBLEMEJ.Cells(4, "D").Value = Rem_Nett

ws_PROBLEMEJ.Cells(4, "E").Value = Problemes_rencontres

Date_probleme = ws_ENREGISTRER.Range("C15").Value

Ligne = ws_ENREGISTRER.Range("D15").Value

Machine = ws_ENREGISTRER.Range("E15").Value

Rem_Nett = ws_ENREGISTRER.Range("F15").Value

Problemes_rencontres = ws_ENREGISTRER.Range("G15").Value

'copier coller champ

ws_PROBLEMEJ.Cells(5, "A").Value = Date_probleme

ws_PROBLEMEJ.Cells(5, "B").Value = Ligne

ws_PROBLEMEJ.Cells(5, "C").Value = Machine

ws_PROBLEMEJ.Cells(5, "D").Value = Rem_Nett

ws_PROBLEMEJ.Cells(5, "E").Value = Problemes_rencontres

Date_probleme = ws_ENREGISTRER.Range("C16").Value

Ligne = ws_ENREGISTRER.Range("D16").Value

Machine = ws_ENREGISTRER.Range("E16").Value

Rem_Nett = ws_ENREGISTRER.Range("F16").Value

Problemes_rencontres = ws_ENREGISTRER.Range("G16").Value

'copier coller champ

ws_PROBLEMEJ.Cells(6, "A").Value = Date_probleme

ws_PROBLEMEJ.Cells(6, "B").Value = Ligne

ws_PROBLEMEJ.Cells(6, "C").Value = Machine

ws_PROBLEMEJ.Cells(6, "D").Value = Rem_Nett

ws_PROBLEMEJ.Cells(6, "E").Value = Problemes_rencontres

Date_probleme = ws_ENREGISTRER.Range("C17").Value

Ligne = ws_ENREGISTRER.Range("D17").Value

Machine = ws_ENREGISTRER.Range("E17").Value

Rem_Nett = ws_ENREGISTRER.Range("F17").Value

Problemes_rencontres = ws_ENREGISTRER.Range("G17").Value

End Sub

Est il possible de m'aider svp, pour inverser cette date. A partir du 15 du mois le problème n'apparait plus.

J'utilise excel 2016

Merci par avance pour votre aide

Bonjour,

Essaie :

Dim Date_probleme As Long     'puis...
...
Date_probleme = ws_ENREGISTRER.Range("C12").Value2
...
Date_probleme = ws_ENREGISTRER.Range("C13").Value2
...et ainsi de suite. Le reste sans changement.

A+

Bonjour,

pouvez-vous joindre une copie de votre fichier excel avec les feuilles "ENREGISTRER" et "PROBLEMEJ" ?

Bonjour,

Merci pour les reponses.

J ai essayé la modification mais celle-ci ne fonctionne pas

Avez-vous une autre solution ?

Cordialement

Bonjour,

Fournir le fichier (juste avec les Dates...)

A+

Bonjour,

Désolé du retard je n'ai pas pu répondre avant.

Ci-joint le fichier.

Je ne suis pas expert en macro dsl et j'ai besoin de votre aide car je n'y arrive pas.

J'ai trois macros :

  • 1 pour enregistrer la performance (aucun probleme pour celle-ci)
  • 1 pour enregistrer les problèmes
  • une autre pour enregistrer les problèmes afin de faire une base de données. (je ne sais pas comment faire pour avoir une macro qui prend en compte seulement les celulles non vides et qui permet de faire une base de données pour ainsi avoir un historique)

De plus j'ai des soucis dans les dates (inversion date/mois)

J’espère que vous allez pouvoir m'aider

Merci par avance

18exemple.xlsm (31.12 Ko)

Aidez moi svp

Rechercher des sujets similaires à "inversion jour mois macro"