Insertion de ligne automatisée

Résolu/Fermé
piche110 Messages postés 24 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 11 mai 2015 - 11 mai 2015 à 11:23
piche110 Messages postés 24 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 11 mai 2015 - 11 mai 2015 à 13:46
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

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
11 mai 2015 à 12:35
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 mercredi 4 mars 2015 Statut Membre Dernière intervention 11 mai 2015
11 mai 2015 à 13:46
Ca marche, merci beaucoup !
0