Macro EXCEL Probleme de DATE

Résolu
mathrap65 -  
 mathrap65 -
Bonjour à Tous,

j'ai une liste de Date qui n'est pas forcement rempli complètement.

DTFVA
01/12/2009

01/12/2009
01/12/2009
01/12/2009
01/12/2009

01/12/2009
01/12/2009
01/12/2009
01/12/2009



dans ma macro je fait

' Chargement "DTFVA"

Range("I2").Select
ActiveCell.NumberFormat = "General"
ActiveCell.Value = "=[" & FicMon & "]Conventions_collectives!$D5"
Selection.AutoFill Destination:=Range("I2:I" & countline), Type:=xlFillCopy


et le résultat me donne ca


DTFVA
01/12/2009
00/01/1900
01/12/2009
01/12/2009
01/12/2009
01/12/2009
00/01/1900
01/12/2009
01/12/2009
01/12/2009
01/12/2009
00/01/1900

comment fait pour avoir des blanc a la place de "00/01/1900"


Merci d'avance



A voir également:

1 réponse

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 714
 
Bonjour,

Copiez ce code a la suite de
Selection.AutoFill Destination:=Range("I2:I" & countline), Type:=xlFillCopy


Dim Plage As Range
Dim Cellule As Range

Set Plage = Range("I2:Ixx") 'Plage a scruter--> a vous de definir la fin de la plage
For Each Cellule In Plage.Cells
If Cellule.Value = "00/01/1900" Then
Cellule.Value = ""
End If
Next Cellule


Bonne suite
0
mathrap65
 
Merci

ca marche Super.
0