Microsoft 365 Macro pour archivage

Dycoine · 28 Août 2019

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 · 28 Août 2019

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 · 28 Août 2019

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

Dycoine · 28 Août 2019

Crocs64 à dit:
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 · 28 Août 2019

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 · 28 Août 2019

bonjour
pour le filtre c'est assez simple
exemple

VB:

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 · 28 Août 2019

patricktoulon à dit:
bonjour
pour le filtre c'est assez simple
exemple

VB:

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 · 28 Août 2019

re
dans ce cas la c'est

VB:

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 · 28 Août 2019

Dycoine à dit:
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

Microsoft 365 Macro pour archivage

Dycoine

XLDnaute Nouveau

Crocs64

XLDnaute Nouveau

Dycoine

XLDnaute Nouveau

Dycoine

XLDnaute Nouveau

Dycoine

XLDnaute Nouveau

Pièces jointes

patricktoulon

XLDnaute Barbatruc

Dycoine

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

Dycoine

XLDnaute Nouveau

Discussions similaires