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 17417 Date d'inscription   Statut Membre Dernière intervention   1 715
 
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