Sujet Précédent Sujet Suivant

Insérer automatiquement une ligne pour dates manquantes

TraderAS Messages postés 119 Statut Membre -  
TraderAS Messages postés 119 Statut Membre -
Bonjour,

je souhaite insérer automatiquement les dates manquantes d'un calendrier, sachant aussi que mes dates ne concernent que les jours ouvrables c'est à dire du Lundi au Vendredi j'ai eu une solution mais qui n'a pas marché :

For i = 1 To 30
If Cells(i, 1) = "" Then fin = i: Exit For
Next i

For i = 1 To fin
If Cells(i + 1, 1) <> SERIE.JOUR.OUVR(Cells(i, 1).Value, 1) Then
Rows(i + 1).Insert
Cells(i + 1, 1) = Cells(i, 1) + 1
End If
Next i
End Sub

mais je crois que j'ai quelques problèmes en faite pour la ligne
If Cells(i + 1, 1) <> SERIE.JOUR.OUVR(Cells(i, 1).Value, 1) Then il y'a l'erreur d'éxecution '424' objet requis, je ne sais pas pourquoi ca ne marche pas sachant que ma colonne est composée de dates comm JJ/MM/AAAA

MERCI
A voir également:

4 réponses

Réponse 1 / 4
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
 
Bonjour,

utilisez fonction WorkDay:

Sub test()
Dim x As Date
x = Application.WorksheetFunction.WorkDay(Now(), 3)
End Sub

Bonne suite
0
Réponse 2 / 4
TraderAS Messages postés 119 Statut Membre 1
 
salut f894009,

voila j'ai cette liste de dates
09/01/2014
08/01/2014
06/01/2014
04/01/2014
02/01/2014
31/12/2013

et j'ai enleveé les dates impairs, sauf que quand j'applique la focntion workday, comme vous l'avez mentionné, rien ne se produit

Trader
0
Réponse 3 / 4
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
 
Bonjour,

sachant aussi que mes dates ne concernent que les jours ouvrables le 04/01/2013 n'est pas un jour ouvrable

essayez avec ce code: 

Sub test()

    derlig = Range("A" & Rows.Count).End(xlUp).Row
    
    For x = 2 To derlig
        date_EC = Range("A" & x - 1)
        If Range("a" & x) <> Application.WorkDay(date_EC, -1) Then
            Rows(x & ":" & x).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            Range("a" & x) = Application.WorkDay(date_EC, -1)
            derlig = Range("A" & Rows.Count).End(xlUp).Row
        End If
    Next x

End Sub
0
Réponse 4 / 4
TraderAS Messages postés 119 Statut Membre 1
 
et ca marche, quand à la date du 04/01/2013, c'est just pour voir si le code peut m'insérer les dates manquantes indépendement du jour

Merci bien f894009 U R A VB MASTER ;)
0
TraderAS Messages postés 119 Statut Membre 1
 
je m'excuse mais que j'ai voulu tester ce code pour ce fichier ca na pas marché:

voici le doc: https://www.cjoint.com/?CDfnHPQECQ8

Merci
0