XL 2013 Déplacer ligne automatiquement

Angelko

XLDnaute Junior
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
 

Fichiers joints

Staple1600

XLDnaute Barbatruc
Bonjour à tous

Angelko (bienvenue sur le forum)
C'est bon avec cette macro?
VB:
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
VB:
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
 
Dernière édition:

Angelko

XLDnaute Junior
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

XLDnaute Barbatruc
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

XLDnaute Junior
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

XLDnaute Junior
Bonjour le forum,

Merci encore de votre patience

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

Cordialement,

Angelko
 

Discussions similaires


Haut Bas