XL 2013 Déplacer ligne automatiquement

[Angelko]

Bonjour forum,

Je suis ici pour demander une fois de plus votre aide.

Je cherchais une solution dans le forum, mais je ne ai pu en trouver un approprié pour mon problème.

Je voudrais avoir un bouton avec une commande que chaque fois qu'il y a un contrat qui est pas actif me demande la permission de se déplacer automatiquement la ligne vers le bas dans la zone pas-active.
Par exemple, je peux voir que Stankovic a un contrat pas valide, alors quand je appui le bouton "Bouger" les cellules D, E et F dans la ligne 11 vont directement au-dessous de la ligne "Pas valide" dans les cellules D, E et F.
Ensuite sera McClonney etc., etc.
Merci de votre aide, et je vous souhaitais un beau dimanche.

Angelko

 

[Staple1600]

Bonjour à tous

Angelko (bienvenue sur le forum)
C'est bon avec cette macro?

Sub Button1_Click()
Dim DerLig As Long, k As Long
DerLig = Cells(Rows.Count, "F").End(xlUp).Row
k = 20
For i = 3 To DerLig
If Cells(i, "F") = "NON-ACTIVE" Then
Rows(i).Cut Rows(k)
k = k + 1
End If
Next
End Sub

La même macro mais la demande de permission de déplacement

Sub Button1_Click()
Dim DerLig As Long, k As Long
DerLig = Cells(Rows.Count, "F").End(xlUp).Row
k = 20
If MsgBox("Déplacer les données avec le status : NON-ACTIVE ?", vbYesNo, "Validation Déplacement") = 6 Then
For i = 3 To DerLig
If Cells(i, "F") = "NON-ACTIVE" Then
Rows(i).Cut Rows(k)
k = k + 1
End If
Next
Else
Exit Sub
End If
End Sub

 

[Angelko]

Bonjour Staple 1600, merci beaucoup, c'est déjà parfait.
Juste une question, est-ce possible de les faires bouger un à la fois, pour vérifier par exemple, et pas tous en même temps?
Merci encore, cela m'aide énormément.
Cordialement,

Angelko

 

[Staple1600]

Re

Tu as tester la seconde macro de mon premier message?

Pourquoi vérifier?
Puisque ne seront déplacées que les lignes où figurent NON-ACTIVE en colonne F

On peut le faire mais si tu as par exemple 100 lignes à déplacer il va vite être pénible de cliquer 100 fois sur OK

 

[Angelko]

Merci Staple, J'ai n'avais pas vu le deuxième macro.

En fait, nous n'avons pas beaucoup de lignes, mais c'est parce que nous avons des contrats que nous renouvellons de suite, donc nous n'avons pas besoin de les déplacer normalement.

Merci encore.

 

[Angelko]

Bonjour le forum,

Merci encore de votre patience

Seulement vérifier si quelqu'un pouvait aider à la question ci-dessus?

Cordialement,

Angelko