Problème duplication de ligne

Version imprimable

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:

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

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:

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

06/06/2017, 08h39
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
06/06/2017, 10h35
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.
06/06/2017, 11h35
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.

Bonjour,

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

Code:

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

06/06/2017, 15h20
AnthonyL

Merci beaucoup !