Déplacer des données sur une feuille "mémoire"

K

kjin

XLDnaute Barbatruc

• 7 Décembre 2010

• #2

Re : Déplacer des données sur une feuille "mémoire"

Bonsoir ascal44,
Avec 323 au compteur, toujours pas croisé Henry Gistrair de MacRow ?
A+
kjin

 

Vote positif 0 Vote négatif

A

ascal44

XLDnaute Occasionnel

• 7 Décembre 2010

• #3

Re : Déplacer des données sur une feuille "mémoire"

Non je ne l'ai pas croisé.
Je ne comprends pas le sens de la question.

 

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 7 Décembre 2010

• #4

Re : Déplacer des données sur une feuille "mémoire"

Bonsoir ascal, kjin, Henry,

On peut aussi demander au maquereau record d'heure !

A+

 

Vote positif 0 Vote négatif

A

ascal44

XLDnaute Occasionnel

• 7 Décembre 2010

• #5

Re : Déplacer des données sur une feuille "mémoire"

OK , j'ai compris la plaisanterie.
Oui j'ai tenté l'enregistreur de macro.
Mais je ne vois pas comment arranger le code pour copier les valeures à la suite dans la feuille "mémoire"

 

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 7 Décembre 2010

• #6

Re : Déplacer des données sur une feuille "mémoire"

Re-bonsoir ascal,

Tu peux tester ton code sur ton fichier :

VB:

Sub copie()
    Dim li
    With Sheets("Alertes")
        For li = [B6550].End(xlUp).Row To 2 Step -1
            If Cells(li, 2) < Date Then
                Rows(li).Select
                Selection.Cut
                Sheets("memoire").Select
                Cells(Range("B65536").End(xlUp).Row + 1, 1).EntireRow.Select
                ActiveSheet.Paste
                Sheets("Alertes").Select
                Selection.Delete Shift:=xlUp
            End If
        Next
    End With
End Sub

A+

 

Vote positif 0 Vote négatif

A

ascal44

XLDnaute Occasionnel

• 7 Décembre 2010

• #7

Re : Déplacer des données sur une feuille "mémoire"

Merci FredOo , tu as bien compris mon souhait : cela fonctionne.

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 7 Décembre 2010

• #8

Re : Déplacer des données sur une feuille "mémoire"

Bonsoir à tous

Histoire d'accélérer la manœuvre :

Code:

[COLOR=DarkSlateGray][B]Sub copie()
Dim li
  With Application: .ScreenUpdating = 0: .Calculation = -4135: End With
  With Sheets("Alertes")
    For li = .[B6550].End(xlUp).Row To 2 Step -1
      If .Cells(li, 2) < Date Then
        .Rows(li).EntireRow.Cut Destination:=Sheets("memoire").Cells(Sheets("memoire").Range("B65536").End(xlUp).Row + 1, 1)
        .Rows(li).EntireRow.Delete Shift:=xlUp
      End If
    Next
  End With
  With Application: .Calculation = -4105: .ScreenUpdating = 1: End With
End Sub[/B][/COLOR]

ROGER2327
#4699

Samedi 7 Sable 138 (Saint Birbe, juge, SQ)
17 Frimaire An CCXIX
2010-W49-2T23:03:48Z

 

Vote positif 0 Vote négatif