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