XL 2010 Couper coller selon critére ne se fait qu'une ligne sur deux

[Bob654.]

Bonjour,

J'ai créer un dossier pour suivre l'avancée de travaux, mon souhait et que quand cela est fait à 100% et que j’appui sur le bouton valider cela coupe les lignes concernées, et qu'elles soit insérées au dessus de celles déjà validées, mais voilà je m’aperçois que seulement la moitié des lignes sont triées, je n'arrive pas à comprendre pourquoi.
Si quelqu'un pouvait me donner un coup de main, je l'en remercie d'avance.

Bonne journée

 

[Dudu2]

Bonjour,

Tu devrais peut-être faire un tour sur ce site http://vbindent.com/
Concernant tes lignes, est-ce que tu as pensé qu'en supprimant une ligne, les numéros de lignes s'en trouvaient décalés et que la numérotation précédant la suppression en était décalée ?

 

[job75]

Bonsoir Bob654., Dudu2,

Ben alors les amis c'est la panne sèche ?

Sub Che() 'Inserrer en fin de tableau+2 les lignes validées
Dim lig&, i&
With Range("A9").CurrentRegion.Resize(, 12)
    lig = .Rows.Count + 2
    For i = .Rows.Count To 1 Step -1
        If .Cells(i, 1).Interior.Color = RGB(0, 176, 240) And .Cells(i, 10) = 100 Then
            .Rows(i).Cut 'couper
            .Rows(lig).Insert xlDown 'insérer
            lig = lig - 1
        End If
    Next
End With
End Sub

Cliquez comme ça a été dit sur le bouton "Valider".

A+

 

[Dudu2]

Bonsoir @job75,
J'admire ton courage

 

[Bob654.]

Bonjour,

Un grand merci pour votre aide

Bonne journée