erreur ponctuelle dans macro Fermé

Question

Bonjour,

Je lance une macro qui me dédouble chaque ligne de mon fichier
le code est: 

Dim i     As Integer
Dim Plage As Range
Set Plage = Range("C3:C" & Range("C3").End(xlDown).Row)

For i = 8764 To 2 Step -1
  
            If (Plage.Cells(i).Value <> 0) Then
            Rows(i).Select
            Application.CutCopyMode = False
            Selection.Copy
            Rows(i + 1).Select
            Selection.Insert Shift:=xlDown
            End If
  
Next i
Et en fait, il s'avère que la macro oublie de copier une ligne de temps en temps...  environ 4 sur 8700 ...
est ce déjà arriver à l'un ou l'une d'entre vous? et comment y avez vous remédier?  car pour le moment, je dois checker visuellement , et ça peut prendre du temps et la tête !!! ^^
merci d'avance ! ;)

Bidouilleu_R · Answer

J'ai testé ton code: il marche
c'est lourd mais ça fonctionne.

tu as mis une boucle bornée


For i = 8764 To 2 Step -1 
tu peux améliorer avec

dim yligne as integer

yligne = Plage.CurrentRegion.Rows.Count

For i = yligne +2 To 2 Step -1  ' +2 car  ligne 1 et 2
sinon ton pb se situe ailleurs

Erreur ponctuelle dans macro

1 réponse

Discussions similaires