Microsoft 365 Macro pour archivage

[Dycoine]

Bjr à toutes et à tous je débute dans le VBA sur Mac et je cherche à archiver que les lignes contenant le mot soldé se trouvant dans un tableau. merci de votre aide.

 

[Crocs64]

Bonjour Dycoine,

Pour que nous puissions t'aider, il va falloir être un peu plus précis sur ce que tu souhaites.
Que veut dire archiver ?
Quelles sont les données de ton tableau ?
As-tu un fichier exemple que nous pouvons exploiter ? (sans données confidentielles)

Cordialement, Crocs.

 

[Dycoine]

Merci pour votre attention à mon egard je vous envoi le fichier

 

[Dycoine]

Bonjour Dycoine,

Pour que nous puissions t'aider, il va falloir être un peu plus précis sur ce que tu souhaites.
Que veut dire archiver ?
Quelles sont les données de ton tableau ?
As-tu un fichier exemple que nous pouvons exploiter ? (sans données confidentielles)

Cordialement, Crocs.

Merci pour votre attention à mon egard je vous envoi le fichier

 

[Dycoine]

voici le fichier et le bouton archiver recupère les données dans Liste pour les archiver dans Archives. merci pour votre aide d'avance

 

[patricktoulon]

bonjour
pour le filtre c'est assez simple
exemple

Sub test()
    With ActiveSheet.ListObjects("Tableau36").Range
        .AutoFilter Field:=9, Criteria1:="=Soldé"
        Set Rng = .SpecialCells(xlVisible)
        .AutoFilter
    End With
    MsgBox Rng.Address' donne l'adress du  range soldé du tableau 
End Sub

mais c'est quoi "dans archives"!!!!!!

 

[Dycoine]

bonjour
pour le filtre c'est assez simple
exemple

Sub test()
    With ActiveSheet.ListObjects("Tableau36").Range
        .AutoFilter Field:=9, Criteria1:="=Soldé"
        Set Rng = .SpecialCells(xlVisible)
        .AutoFilter
    End With
    MsgBox Rng.Address' donne l'adress du  range soldé du tableau
End Sub

mais c'est quoi "dans archives"!!!!!!

Merci pour ta réaction Archives c'est la feuille où serait archivé les ligne contenant le mot soldé

 

[patricktoulon]

re
dans ce cas la c'est

Sub test()

    With ActiveSheet.ListObjects("Tableau36").Range

        .AutoFilter Field:=9, Criteria1:="=Soldé"

       copy destination:=sheets("archive").cells(rows.count,1).end(xlup).offset(1)

        .AutoFilter

    End With

    MsgBox Rng.Address' donne l'adress du  range soldé du tableau

End Sub

il te faudra peut être gérer un removeduplicates Multi colonne

 

[Dycoine]

Merci pour ta réaction Archives c'est la feuille où serait archivé les ligne contenant le mot soldé

Pourriez vous essai le code avec le fichier en piece jointe puis me renvoyer ça ne marche pas. merci en plus