Saut de minute dans une incrémentation

Version imprimable

15/04/2011, 10h36
kalemvor

Saut de minute dans une incrémentation

bonjour,

toujours débutant en macro malgré que je progresse j'ai besoin de vous pour réalisé une macro je m'explique:

j'ai un fichier excel qui se fait automatiquement.il me créer trois colonnes
-une avec la date heure minute
-et les deux autre avec des données ( la 3eme colonne n'a pas d'importance)

ex:
22/02/2011 00:00 ; 200 ;1
22/02/2011 00:01 ; 212 ;1
22/02/2011 00:02 ; 222 ;1
22/02/2011 00:03 ; 250 ;1
22/02/2011 00:05 ; 247 ;1

mon souci c'est que lorsque j'ai des données identiques sa me saute une minute comme la, je n'ai pas de ligne qui a été crée en 22/02/2011 00:04 car elle été égale a 250 comme a 00:03

existe il un moyen pour repérer lorsque je passe de 00:03 a 00:05
pour qu'en suite a je puisse rajoute ma ligne 00:04 avec ma donnée de 00:03 dans l'exemple 250.

il arrive aussi que sur plusieurs minute j'ai les Même données ducoup sa me saute plusieurs minute.

le fichier sur le quel je travail va jusqu’a la ligne 242 et sa arrive assez fréquemment que j'ai deux donnée identique.Et donc que sa me saute une minute.

j'ai bien essayer de chercher une fonction qui remarquerez que dans ma première colonne il n'y est pas de suite avec mes minutes.Mais impossible je coince --'

merci d'avance pour votre aide,n'importe quel bout de code suggestion ou idée m'aidera déjà beaucoup.

Cordialement Charly
15/04/2011, 13h15
pgz

Bonjour.

Citation:

Envoyé par kalemvor

j'ai un fichier excel qui se fait automatiquement.il me créer trois colonnes
-une avec la date heure minute
-...
mon souci c'est que lorsque j'ai des données identiques sa me saute une minute

Si tu montres le code qui automatise la création de ces données, on pourrait remédier au pb à la source.

Cordialement,

PGZ
15/04/2011, 13h40
kalemvor

le code n'est pas créer par excel.C'est un appareil qui me sort un tableaux excel.et maintenant je cherche a remédier a mon souci a l'aide d'une macro.

dsl du quiproquo.

merci de t’intéresse a mon cas :)
15/04/2011, 13h42
pgz

Re,

Et en colonne 1 c'est une vraie donnée de type Date/Heure ou une donnée de type string?

PGZ
15/04/2011, 13h52
kalemvor

re,

c'est des donnée de type date/heure

Une proposition à adapter

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim LastLig As Long, i As Long
Dim n As Integer
 
With Sheets("Feuil2")
    LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
    For i = LastLig To 3 Step -1
        On Error Resume Next
        n = DateDiff("n", CDate(.Range("A" & i - 1).Value), CDate(.Range("A" & i).Value))
        On Error GoTo 0
        If n > 1 Then
            .Rows(i - 1).Copy
            .Rows(i & ":" & i + n - 2).Insert
            Application.CutCopyMode = False
            With .Range("A" & i & ":A" & i + n - 2)
                .Formula = "=A" & i - 1 & "+Time(0,1,0)"
                .Value = .Value
            End With
        End If
        n = 0
    Next i
End With

15/04/2011, 14h38
kalemvor

bonjour mercatog ,

bon ben j'ai essayer ta solution qui marche excellentissimement bien!!^^
Merci beaucoup tu marque a adapter mais j'ai même pas besoin .

je vais bien étudier ton code histoire de le comprendre.

Encore merci a toi et tout ceux de developpez.com =)

Bon week-end

Charly