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
 

Pièces jointes

  • bouger ligne.xlsm
    15.1 KB · Affichages: 34

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:

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.
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 947
Membres
101 849
dernier inscrit
florentMIG