insertion de ligne automatisée Résolu/Fermé

Question

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,

Gyrus · Answer

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 WithEnd Sub

A+

Insertion de ligne automatisée

1 réponse

Discussions similaires