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

Bob654. · 5 Septembre 2021

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 · 5 Septembre 2021

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 · 5 Septembre 2021

Bonsoir Bob654., Dudu2,

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

VB:

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 · 5 Septembre 2021

Bonsoir @job75,
J'admire ton courage

Bob654. · 7 Septembre 2021

Bonjour,

Un grand merci pour votre aide

Bonne journée

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

Bob654.

XLDnaute Nouveau

Pièces jointes

Dudu2

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

Dudu2

XLDnaute Barbatruc

Bob654.

XLDnaute Nouveau