Macro excel, Problème affichage date

[Résolu/Fermé]
Signaler
-
 shishumi -
Bonjour,

J'aurais besoin d'aide pour un affichage de date.
Voila j'ai une macro qui me permet de prendre des données sur un autre tableau sur une autre feuille et de les collées sur mon autre feuille. Le problème c'est que mes données dates ce transforme en nombre.

voici mon code :

Sub filtre2()
Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long

Sheets("Alert").Activate ' feuille de destination

Col = "I" ' colonne données non vides à tester'
NumLig = 2 ' alors là ca doit etre le N° de la 1er ligne de données en comptant la ligne 1 = 0 .... ? '
With Sheets("PAR CENTRE") ' feuille source'
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 1 To NbrLig
If .Cells(Lig, 4).Value <> "" Then

Sheets("Alert").Cells(NumLig, 2).Resize(1, 2).Insert Shift:=xlDown
' les 2 colonnes sont décalées pour rester cohérent
Sheets("Alert").Cells(NumLig, 2) = .Cells(Lig, 4)
End If
If IsDate(.Cells(Lig, 12).Value) Then

Sheets("Alert").Cells(NumLig, 3) = .Cells(Lig, 12)

End If
Next Lig
End With
End Sub

voila donc si quequ'un peut m'aider.
merci

2 réponses

Il s'agit probablement du format de la cellule de destination.

Elle reste en format nombre alors qu'elle devrait être en format date.

Avec l'enregistreur de macro enregistre donc une sous-macro qui change le format de cette cellule.
merci ça marche maintenant que j'ai changer le format de ma cellule

dsl pour ce petit dérangement