Insertion de ligne automatisée

Résolu
piche110 Messages postés 24 Date d'inscription   Statut Membre Dernière intervention   -  
piche110 Messages postés 24 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour à tous,

Je rencontre un problème dans une série de données dates et heures correspondant à des hauteurs d'eau. Ce sont des données à la minute mais il manque parfois (de manière aléatoire) une ou deux minutes dans la série de données. Je souhaiterais donc insérer une ligne avec la date et l'heure manquante sans mettre de hauteur d'eau correspondante mais pour que ma colonne date et heure soit bien complète. Etant donnée la quantité de données que j'ai à traiter, je souhaiterais automatiser cette manipulation est-ce possible ?

Pour être plus clair voici un exemple.
http://www.cjoint.com/data3/3EllL7ZdiAY.htm
Merci d'avance pour vos propositions,
A voir également:

1 réponse

Réponse 1 / 1
Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   526
 
Bonjour,

Essaie cette macro 
Sub Test()
Dim Ligne As Long
    With Worksheets("Feuil1")
        For Ligne = .Range("A" & Rows.Count).End(xlUp).Row To 3 Step -1
            If .Range("A" & Ligne) > .Range("A" & Ligne - 1) + 1 / 1440 Then
                .Rows(Ligne).Insert
                .Range("A" & Ligne) = .Range("A" & Ligne - 1) + 1 / 1440
                .Range("A" & Ligne).Interior.ColorIndex = 6
            End If
        Next Ligne
    End With
End Sub


A+
1
piche110 Messages postés 24 Date d'inscription   Statut Membre Dernière intervention  
 
Ca marche, merci beaucoup !
0

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?
veroaaa -
Pat -

10 réponses