Discussion :

[AnthonyL]

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

[Patrice740]

Bonjour,

Quand on insère des lignes, il est préférable de partir de la fin vers le début.

Essaies ce code (mais je pense que d'autres problèmes vont apparaître) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub CopierInsererLigne()
Dim i&, j&, n&
  Application.ScreenUpdating = False
  For i = 106 To 6 + 1 Step -1
    n = Cells(i, 1).Value - Cells(i - 1, 1).Value
    If n > 1 Then
      Rows(i).Copy
      For j = 1 To n - 1
        Rows(i).Insert Shift:=xlDown
        Cells(i, 1).Value = Cells(i + 1, 1).Value - 1
      Next j
    End If
  Next i
  Application.CutCopyMode = False
  Application.ScreenUpdating = True
End Sub

[riaolle]

Bonjour et bienvenue au forum,
En effet comme le dit Patrice740, lorsqu'on insère (ou supprime) des lignes, on utilise une boucle en sens inverse. Voici une explication pour la suppression de ligne, mais qui se transpose facilement pour l'ajout de ligne : https://www.developpez.net/forums/d1...e/#post9204035

[AnthonyL]

Merci beaucoup pour vos réponses !

Le code que vous m'avez donné fonctionne très bien

Merci aussi pour le lien !

Cordialement,

Anthony.

[AnthonyL]

Je me permets de revenir vers vous Patrice740 car j'ai peut être été un peu rapide dans mes tests finalement.

J'ai vu que vous avez généralisé le code pour qu'il fonctionne même quand l'intervalle entre deux valeurs est plus grand que 2 et je vous en remercie d'avoir anticipé cela alors que je n'avais pas été très clair !
Cependant, l'insertion se fait bien pour combler tout l'intervalle avec un nouveau pas de 1, mais le problème est que la ligne i n'est copiée que sur la ligne i-1 mais pas sur les autres nouvelles lignes vides. Savez vous d'où peut venir ce problème ?

Cordialement,

Anthony.

[Patrice740]

Bonjour,

Effectivement, il faut déplacer le copy dans la boucle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub CopierInsererLigne()
Dim i&, j&, n&
  Application.ScreenUpdating = False
  For i = 106 To 6 + 1 Step -1
    n = Cells(i, 1).Value - Cells(i - 1, 1).Value
    If n > 1 Then
      For j = 1 To n - 1
        Rows(i).Copy
        Rows(i).Insert Shift:=xlDown
        Cells(i, 1).Value = Cells(i + 1, 1).Value - 1
      Next j
    End If
  Next i
  Application.CutCopyMode = False
  Application.ScreenUpdating = True
End Sub