Date manquante en colonneA

skoobi

XLDnaute Barbatruc

• 3 Juin 2008

• #2

Re : Date manquante en colonneA

Bonjour,

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

 

Vote positif 0 Vote négatif

C

chrisdu73

XLDnaute Occasionnel

• 3 Juin 2008

• #3

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

 

Vote positif 0 Vote négatif

C

chrisdu73

XLDnaute Occasionnel

• 3 Juin 2008

• #4

Re : Date manquante en colonneA

help me 😡

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 3 Juin 2008

• #5

Re : Date manquante en colonneA

Bonjour à tous,

Peux-tu essayer avec :

Code:

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)

 

Dernière édition: 3 Juin 2008

Vote positif 0 Vote négatif

Tibo

XLDnaute Barbatruc

• 3 Juin 2008

• #6

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.

@+

 

Vote positif 0 Vote négatif

C

chrisdu73

XLDnaute Occasionnel

• 3 Juin 2008

• #7

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

 

Pièces jointes

• fichier.zip

  30.1 KB · Affichages: 25
• fichier.zip

  30.1 KB · Affichages: 22
• fichier.zip

  30.1 KB · Affichages: 21

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 3 Juin 2008

• #8

Re : Date manquante en colonneA

Pas de problème du73Chris arf arf

Je regarde après le miam-miam

A+ à tous

 

Dernière édition: 3 Juin 2008

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 3 Juin 2008

• #9

Re : Date manquante en colonneA

Bonsoir,

Bon appétit, JC 🙂

Code Edité

 

Dernière édition: 3 Juin 2008

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 3 Juin 2008

• #10

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 😉

 

Vote positif 0 Vote négatif

C

chrisdu73

XLDnaute Occasionnel

• 3 Juin 2008

• #11

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

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 3 Juin 2008

• #12

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....😀

 

Vote positif 0 Vote négatif

C

chrisdu73

XLDnaute Occasionnel

• 3 Juin 2008

• #13

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

 

Dernière édition: 3 Juin 2008

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 3 Juin 2008

• #14

Re : Date manquante en colonneA

Re-,

comme dit un peu plus haut :

Wait and See

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 3 Juin 2008

• #15

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 :

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....😱

 

Vote positif 0 Vote négatif