Archiver

[phil92350]

Bonjour à tous,

De nouveau un soucis pour archiver des données. Le fichier original malheureusement est trop lourd pour que je puisse le joindre mais j'ai pu créer une feuille reprenant a peu près les codes de l'original. Mon problème et que lorsque je veux archiver (en passant par la macro) , certaines lignes sont copiées et d'autre pour qui les critères sont pourtant vrai, ne sont pas copiées ! pourquoi ? et merci de votre aide.

Bonne soirée à tous

phil

 

[Guest]

Re : Archiver

Bonjour,

Voici qui devrait le faire.

Sub ARCHIVER()
    Sheets("DONNEES").Select  ' sélectionne la feuille "Donnees"
    Set ma_plage = Worksheets("DONNEES").Range("B3:I15")    'Compteur: B3 1° ligne i15 derniere ligne
    nbr = nbr + 6 + Application.WorksheetFunction.CountA(ma_plage)    ' rajout des 6° lignes commence l'opération à la 8 émé ligne ?
    With ma_plage 'Ne travailler que sur la plage de donnée
    For i = 1 To ma_plage.Rows.Count 'Balayer toutes les lignes
        'Si la 7ème colonne de la i ligne des la plage est supérieure à 99 alors
        If .Cells(i, 7) > 99 Then
            'Archiver uniquement les valeurs
            Sheets("Archives").Range("B65536").End(xlUp)(2).Resize(, 8).Value = .Rows(i).Value
            'Nettoyer la ligne en cours
            .Rows(i).ClearContents
        End If
    Next
    End With
End Sub

A+

 

[phil92350]

Re : Archiver

Bonjour asco,

Merci de ton aide mais je ne pense pas que ton code est modifié par rapport au mien.

Bonne soirée

 

[Guest]

Re : Archiver

Bonsoir,

Je viens de re-tester sur ton fichier d'origine, mon code fonctionne, le tien non.
Dans le classeur joint 2 boutons, 1 qui lance ta macro et 1 qui lance la mienne.
A+

 

[phil92350]

Re : Archiver

Merci hasco je vais étudier cela.

Bonne journée

phil