XL 2016 Macro transfert données valide

cmdavid · 1 Avril 2021

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 · 1 Avril 2021

cmdavid à dit:
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"

VB:

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

Jacky67 · 1 Avril 2021

cmdavid à dit:
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"

VB:

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 · 1 Avril 2021

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

XL 2016 Macro transfert données valide

cmdavid

XLDnaute Occasionnel

Pièces jointes

Jacky67

Jacky67

XLDnaute Barbatruc

cmdavid

XLDnaute Occasionnel

Discussions similaires