[RESOLU] Macro pour déplacer des lignes selon condition

DoubleZero

XLDnaute Barbatruc

• 15 Janvier 2015

• #2

Re : Macro pour déplacer des lignes selon condition

Bonjour, ssassam, le Forum,

Une suggestion en pièce jointe.

A bientôt 🙂

 

Pièces jointes

• 00 - ssassam - Lignes déplacer.xls

  258.5 KB · Affichages: 77

Vote positif 0 Vote négatif

natorp

XLDnaute Barbatruc

• 15 Janvier 2015

• #3

Re : Macro pour déplacer des lignes selon condition

Bjr ssassam

Voir fichier joint avec la macro6

Cordialement, Gérard

 

Pièces jointes

• SSASSAM-TEST-4.xls

  256.5 KB · Affichages: 57

Vote positif 0 Vote négatif

ssassam

XLDnaute Occasionnel

• 15 Janvier 2015

• #4

Re : Macro pour déplacer des lignes selon condition

Merci beaucoup DoubleZero
Merci beaucoup natorp

C'est exactement ce que je veux ,

Merci infiniment pour votre aide mes amis

 

Vote positif 0 Vote négatif

natorp

XLDnaute Barbatruc

• 15 Janvier 2015

• #5

Re : [RESOLU] Macro pour déplacer des lignes selon condition

Re,

DoubleZero : , Je vois bien la macro dans le code de la feuille, mais je peux pas la lancer. Le bouton "Go" est inactif.
Je ne peux pas lui affecter une macro, et il n'y a aucune macro quand je fais Alt+F8
Je dois passer à côté de quelque chose...
Merci pour ton aide, cordialement, Gérard

 

Vote positif 0 Vote négatif

ssassam

XLDnaute Occasionnel

• 15 Janvier 2015

• #6

Re : [RESOLU] Macro pour déplacer des lignes selon condition

Exactement le bouton Go ne marche pas , mais j'ai récupéré la macro elle marche parfaitement la voila :

Code:

Sub DoubleZero()
    Dim i As Long
    Application.ScreenUpdating = False
    For i = Cells(Rows.Count, "d").End(xlUp).Row To 2 Step -1
        If Range("d" & i) Like "*%ANNUL*" Then Rows(i).Cut Destination:=Sheets("BC  (ANNUL)").Range("a" & Rows.Count).End(xlUp)(2)
    Next i
    On Error Resume Next
    Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Application.ScreenUpdating = True
End Sub

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 15 Janvier 2015

• #7

Re : [RESOLU] Macro pour déplacer des lignes selon condition

Re-bonjour, bonjour, natorp,

natorp à dit:

... Le bouton "Go" est inactif.
Je ne peux pas lui affecter une macro, et il n'y a aucune macro quand je fais Alt+F8
Je dois passer à côté de quelque chose...

Cliquez pour agrandir...

Malheureusement, je ne sais pas quelle en est la raison car le bouton est fonctionnel sur mon poste.

Cela dit, j'ai, depuis quelques jours, des ennuis 🙄 avec les contrôles ActiveX...

A bientôt 🙂

 

Vote positif 0 Vote négatif

ssassam

XLDnaute Occasionnel

• 15 Janvier 2015

• #8

Re : [RESOLU] Macro pour déplacer des lignes selon condition

Mr.DoubleZero , vue que je fais tellement confiance a ta façon de programmé , j'ai tout de suite remarqué que vous avez un problème au niveau du fichier et non dan la macro 😀

 

Vote positif 0 Vote négatif