XL 2013 Déplacer ligne automatiquement

Angelko · 18 Septembre 2016

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 · 18 Septembre 2016

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

Angelko · 18 Septembre 2016

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 · 18 Septembre 2016

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 · 18 Septembre 2016

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 · 19 Septembre 2016

Bonjour le forum,

Merci encore de votre patience

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

Cordialement,

Angelko

XL 2013 Déplacer ligne automatiquement

Angelko

XLDnaute Junior

Pièces jointes

Staple1600

XLDnaute Barbatruc

Angelko

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

Angelko

XLDnaute Junior

Angelko

XLDnaute Junior

Discussions similaires