Discussion :

[avyrex]

Bonjour a tous,

J'ai un probleme avec un code. Dans la colonne D de mon fichier excel, j'ai des cellules vide ainsi que des cellules qui contient des valeurs ex: 11/01/2010 5:00:00 AM,
11/01/2010 6:00:00 AM,
11/01/2010 7:00:00 AM......

Ce que je veux c'est qu'il verifie chaques valeurs de la colonne D et s'il y a des valeurs qui ce double, qu'il augment chaques valeurs en double ou en triple de 1 seconde.

Ex:
Colonne D Avant
11/01/2010 5:00:00 AM

11/01/2010 5:00:00 AM
11/01/2010 5:00:00 AM


11/01/2010 5:00:00 AM
11/01/2010 6:00:00 AM

11/01/2010 7:00:00 AM


Colonne D Après
11/01/2010 5:00:00 AM

11/01/2010 5:00:01 AM
11/01/2010 5:00:02 AM


11/01/2010 5:00:03 AM
11/01/2010 6:00:00 AM

11/01/2010 7:00:00 AM

[Pierre Fauconnier]

Bonjour.

En supposant que les valeurs sont triées

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
Sub IncrementerSeconde()
    Dim Plage As Range
    Dim Cellule As Range
    Dim ValeurTemporaire As Date
    Dim ValeurIncrementee As Date
 
    Set Plage = Range("a2:a16") ' A adapter à ton code
    For Each Cellule In Plage
        If Cellule.Value <> ValeurTemporaire * 1 And Cellule.Value <> "" Then
            ValeurTemporaire = Cellule.Value
            ValeurIncrementee = Cellule.Value
            Else
            ValeurIncrementee = ValeurIncrementee + (1 / 24 / 60 / 60)
            Cellule.Value = ValeurIncrementee
        End If
    Next Cellule
End Sub

[mercatog]

Bonjour,
suite à ton dernier sujet, ci joint proposition

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
Dim LastLig As Long, i As Long
LastLig = Cells(Rows.Count, 4).End(xlUp).Row
For i = 3 To LastLig - 1
    If Range("D" & i + 1).Value = "" Then
        With Range("D" & i + 1)
            If IsDate(Range("D" & i).Value) Then
                .Value = DateAdd("s", 1, Range("D" & i).Value)
            Else
                .Value = Range("D" & i).Value
            End If
            .Font.ColorIndex = 3
            .NumberFormat = "mmm dd, yyyy hh:mm:ss"
        End With
    End If
Next i