Macro EXCEL Probleme de DATE
Résolu
mathrap65
-
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
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:
- Macro EXCEL Probleme de DATE
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Nombre de jours entre deux dates excel - Guide
- Déplacer colonne excel - Guide
1 réponse
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
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
ca marche Super.