Date manquante en colonneA

[chrisdu73]

bonjour a tous,

j'ai un tableau avec en colonne A une serie de date, mais il me manque pour le mois de juillet le 14/07/2008, comment faire pour inserer automatiquement se jour la, sachant que plusieurs serie de date existe dans la colonne.

merci pour votre aide
chris

 

[skoobi]

Re : Date manquante en colonneA

Bonjour,

un fichier exemple serait bienvenue et surtout, quel événement fera déclencher cette insertion?

 

[chrisdu73]

Re : Date manquante en colonneA

j'ai trouvé ceci mais cela ne fonctionne pas

Sub BoucherTrousDates()
Dim i As Integer, Derlig As Integer
Derlig = Range("A65000").End(xlUp).Row
Range("A2" & Derlig).Sort Key1:=Range("A2"), Order1:=xlAscending
For i = Derlig To 2 Step -1
If Cells(i - 1, 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

 

[chrisdu73]

Re : Date manquante en colonneA

help me 😡

 

[JCGL]

Re : Date manquante en colonneA

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit

Sub BoucherTrousDates()
Dim i As Integer, Derlig As Integer
Derlig = Range("A65000").End(xlUp).Row
[COLOR=Red] Range("A2:A" & Derlig)[/COLOR].Sort Key1:=Range("A2"), Order1:=xlAscending
For i = Derlig To 2 Step -1
If Cells(i - 1, 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

Attention, je n'ai fait que permettre l'exécution du code.

A+

Edition : Salut Tibo et je te rejoins tout à fait (ainsi que Skoobi)

 

[Tibo]

Re : Date manquante en colonneA

Bonsoir,

Je ne suis pas spécialiste VBA, mais comme te le demandais skoobi, joins nous un extrait de ton fichier.

C'est sans doute clair dans ton esprit, mais beaucoup moins pour ceux qui n'ont pas connaissance de ton fichier.

Le fichier à joindre : zippé de préférence, sans données confidentielles et taille < 48.8 ko

@+

Edit : Bing ! Salut Jean-Claude.

@+

 

[chrisdu73]

Re : Date manquante en colonneA

merci GCJL,
ok y a plus de message d'erreur mais il me creer un calendrier a l'infini, 😀

mais voici mon fichier ou il me manque les dimanches et certains jours comme le 13 et 14 juillet.
je voudrais tout simplement avoir une macro qui me rajoute ca avant traitement de mon cru.

avec tout mes remerciements pour votre aide
chris

 

[JCGL]

Re : Date manquante en colonneA

Pas de problème du73Chris arf arf

Je regarde après le miam-miam

A+ à tous

 

[Cousinhub]

Re : Date manquante en colonneA

Bonsoir,

Bon appétit, JC 🙂

Code Edité

 

[Cousinhub]

Re : Date manquante en colonneA

Re-,

Remarque, dans ton fichier, tu as une erreur en ligne 497, tu passes du 21/10/08 au 30/01/08, en ligne 197, tu passes du 13/12/08 au 30/05/08, en ligne 461, tu passes du 15/11/08 au 04/08/08...
En ligne 1189, tu passes du 26/08/08 au 10/09/08, en ligne 479, tu passes du 25/08/08 au 01/10/08

Donc, avant de lancer le code, mets un peu d'ordre dans le fichier 😉

 

[chrisdu73]

Re : Date manquante en colonneA

merci BHBH

y a un probleme ca me rajoute des lignes en grand nombre a l'infini.

je vois pas ou est le probleme !
arfff

 

[Cousinhub]

Re : Date manquante en colonneA

Re-,

Si, je l'ai vu, Wait and See 😛

A moins que Jc profite de sa digestion pour pondre un code....😀

 

[chrisdu73]

Re : Date manquante en colonneA

re

dans mon fichier c'est exact que j'ai des plages de date car en colonne D j'ai 4 sites a gerer

j'ai une macro qui me rajoute les dimanches mais pas le 13 et 14 juillet

Sub test()
For Each cel In Range("A3:A1500")

If cel.Value = cel.Offset(-1, 0).Value + 2 Then
cel.Select
Selection.EntireRow.Insert
cel.Offset(-1, 0).Value = cel.Offset(-2, 0).Value + 1
End If
Next cel

End Sub

 

[Cousinhub]

Re : Date manquante en colonneA

Re-,

comme dit un peu plus haut :

Wait and See

C'est pas si simple que cela.....😉

 

[Cousinhub]

Re : Date manquante en colonneA

See....


J'ai rajouté une colonne G, ne sachant la structure finale de ton fichier, mais je la supprime en fin de code :

Sub dates_manquantes()
[G:G].Insert
Columns("A:F").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess
[G3].FormulaR1C1 = "=RC[-6]-R[-1]C[-6]"
Columns("G:G").NumberFormat = "General"
[G3].AutoFill Destination:=Range("G3:G" & [A65000].End(xlUp).Row)
Do While Application.CountIf([G2:G50000], ">1") <> 0
For i = [A65000].End(xlUp).Row To 3 Step -1
    If Cells(i, 1) - Cells(i - 1, 1) > 1 Then
        Cells(i, 1).EntireRow.Insert
    End If
Next i
With Range("A2:A" & [A65000].End(xlUp).Row)
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C+1"
    .Value = .Value
End With
[G3].FormulaR1C1 = "=RC[-6]-R[-1]C[-6]"
Columns("G:G").NumberFormat = "General"
[G3].AutoFill Destination:=Range("G3:G" & [A65000].End(xlUp).Row)
Loop
On Error Resume Next
With Range("A2:A" & [A65000].End(xlUp).Row)
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C+1"
    .Value = .Value
End With
[G:G].Delete
End Sub

J'espère....😱