Macro Parcours Colonne Date et insère les dates manquates

Arvensis

XLDnaute Nouveau
Bonjour à tous ,

Je voudrais créer une macro qui parcoure une colonne contenant des dates, et qui insère des lignes contenant les dates manquantes entre deux dates non successives :

Exemple :

Avant :

Colonne Date

02/03/2011
03/03/2011
06/03/2011

Après

Colonne Date

02/03/2011
03/03/2011
>04/03/2011
>05/03/2011

06/03/2011


Je vous remercie d'avance .
 

CBernardT

XLDnaute Barbatruc
Re : Macro Parcours Colonne Date et insère les dates manquates

Bonjour à tous,

Une solution ave la liste des dates en colonne A de la feuille "Feuil1"

Sub ListeDateCroissante()
Dim Derlig As Long, i As Long

With Sheets("Feuil1")
Derlig = .Range("A65000").End(xlUp).Row
For i = Derlig To 2 Step -1
If IsDate(.Cells(i - 1, 1)) Then
If .Cells(i, 1) - .Cells(i - 1, 1) > 1 Then
.Cells(i, 1).Insert Shift:=xlDown
.Cells(i, 1) = .Cells(i + 1, 1) - 1
i = i + 1
End If
End If
Next i
End With
End Sub
 
Dernière édition:

JCGL

XLDnaute Barbatruc
Re : Macro Parcours Colonne Date et insère les dates manquates

Bonjour à tous,
Bonjour Bruno,

Deux dates au moins dans la colonne A sans vides :

VB:
Option Explicit

Sub Remplir_Dates_Manquantes()
Dim i As Integer, DerL As Integer
DerL = Range("A65000").End(xlUp).Row
'Application.ScreenUpdating = 0
Range("A1:A" & DerL).Sort Key1:=Range("A1"), Order1:=xlAscending
On Error Resume Next
For i = DerL To 2 Step -1
If Cells(i - 1, 1) + 1 <> Cells(i, 1) And Cells(i - 1, 1) <> Cells(i, 1) Then
Cells(i, 1).EntireRow.Insert
Cells(i, 1) = Cells(i + 1, 1) - 1
i = i + 1
End If
Next i
End Sub

A+ à tous
 
Dernière édition:

FromOuterSpace

XLDnaute Nouveau
Re : Macro Parcours Colonne Date et insère les dates manquates

Bonjour à tous

Ici en transit

Une autre façon de faire
Code:
Sub a()
Dim nbj&: nbj = ([A65536].End(xlUp) - [A1])
With Range("A1")
    .AutoFill .Resize(nbj + 1), 5
End With
End Sub

A+ avec mon pseudo habituel

JM
 

Discussions similaires

Réponses
2
Affichages
486
Réponses
9
Affichages
835

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T