Discussion :

[kalemvor]

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

[pgz]

Bonjour.

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

[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

[pgz]

Re,

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

PGZ

[kalemvor]

re,

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

[mercatog]

Une proposition à adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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