XL 2016 Macro transfert données valide

[cmdavid]

Bonjour à tous,

J’ai un fichier ou dans l’onglet « 1 », j’ai des informations venant de l’onglet « base ». Je souhaite avec une macro pour que les informations de l’onglet « 1 » et que les informations « sans 0 » soit enregistré dans l’onglet « 2 ». voir le fichier joint.

Précision l’onglet »2 » sera utilisé pour créer un fichier XML.

Merci pour votre aide.

 

[Jacky67]

Bonjour à tous,

J’ai un fichier ou dans l’onglet « 1 », j’ai des informations venant de l’onglet « base ». Je souhaite avec une macro pour que les informations de l’onglet « 1 » et que les informations « sans 0 » soit enregistré dans l’onglet « 2 ». voir le fichier joint.

Précision l’onglet »2 » sera utilisé pour créer un fichier XML.

Merci pour votre aide.

Bonjour,
Ce code placé dans le module de la feuille "2"
La mise à jour se fait à chaque sélection de la feuille "2"

Private Sub Worksheet_Activate()
    Dim Plage
    Cells.Clear
    With Feuil4
        If .FilterMode Then .ShowAllData
        Set Plage = .[a1].CurrentRegion
        Plage.AutoFilter Field:=6, Criteria1:="<>0"
        Plage.SpecialCells(xlCellTypeVisible).Copy [a1]
        Plage.AutoFilter
    End With
End Sub

 

[cmdavid]

Bonjour Jacky67,
un grand merci pour ton aide, ça fonctionne parfaitement.
Cordialement,