Bonjour,

Je suis nouveau sur ce forum et en VBA. J'aurais donc besoin de vous pour un petit problème que je rencontre.

J'ai un fichier excel possédant plusieurs colonnes dont une colonne qui correspond au temps mais où le pas de temps n'est pas uniforme. Ayant besoin d'un pas de temps uniforme (pas de temps de 1), je voudrais dupliquer les lignes nécessaire pour "combler" les vides.

Pour cela, j'ai écrit ceci:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub CopierInsererLigneV2()
 
    For i = 6 To 106
        If Cells(i + 1, 1) - Cells(i, 1) = 2 Then
            Cells(i, 1).Select
            Selection.EntireRow.Copy
            Selection.Insert Shift:=xlDown
            Application.CutCopyMode = False
        End If
 
    Next i
 
End Sub
Le problème est que la duplication ne se fait que sur la première ligne où Cells(i+1,1) - Cells(i,1) = 2 est vrai, et ce 100 fois (sur tout la durée de la boucle). Je ne vois cependant pas où est le problème (je me répète, mais je suis novice en VBA ^^).

En espérant avoir été clair (ce qui m'étonnerait :/) et que vous pourrez m'aider.

Anthony