Insertion de ligne automatisée
Résolu
piche110
Messages postés
24
Statut
Membre
-
piche110 Messages postés 24 Statut Membre -
piche110 Messages postés 24 Statut Membre -
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,
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,
1 réponse
-
Bonjour,
Essaie cette macroSub 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+
