VBA novice

[Rosaliie]

Bonjour,

Je suis très novice sur excel et là je dois faire une automatisation de fichiers càd je mettre dans un autre onglet toutes les commandes dont la date est antérieure à 2019 sous forme de tableau. Ensuite en fonction du produit(escaliers ou ascenseurs) il faut générer un tableau qui va avec . Je ne sais pas si j'ai été suffisamment claire avec vous.

Merci d'avance pour votre aide , je vous joins le fichier

 

[Hasco]

Bonjour et bienvenue sur xld,

Il n'y a aucun début de code vba dans votre fichier.
Peut-être pourriez-vous commencer par faire un Filtrage avancé (élaboré) de vos données vers une autre feuille, avec l'enregistreur de macro et ainsi vous pourriez voir ce qui se passe du côté de VBA. Dans un second temps vous pourriez apprendre ce qu'est une variable et un objet range et adapter le code de la macro avec vos nouvelles connaissances.
tuto filtre élaboré: http://formations-excel.blogspot.com/2016/04/comment-utiliser-des-filtres-elabores.html

Au fait quelle est votre version excel?

Bonne étude

 

[Rosaliie]

Bonjour,

Merci pour votre réponse je suis sous excel 2016 , je vais regarder un cours sur le filtrage avancé et je vous reviens.

Cordialement,

 

[frangy]

Bonjour,

Voici un exemple d'utilisation du filtre avancé comme proposé par Roblochon (que je salue).
Le filtrage s'effectue suivant 2 critères :
- la date (cde_dtecommandeclient)
- le produit

Cordialement.

 

[Rosaliie]

Bonjour,

Voici un exemple d'utilisation du filtre avancé comme proposé par Roblochon (que je salue).
Le filtrage s'effectue suivant 2 critères :
- la date (cde_dtecommandeclient)
- le produit

Cordialement.

 

[Rosaliie]

Bonjour,
Merci pour le fichier ça va m'aider cependant j'arrive pas à trouver le code vba pour le bouton filtrage pourriez vous me dire comment le retrouver merci.

 

[frangy]

Onglet DEVELOPPEUR > Visual Basic > Feuil2 (Filtrage)

Private Sub Filtrer_Click()

Dim WsC As Worksheet, WsS As Worksheet

Dim DerLigS As Long

    Set WsC = Worksheets("Filtrage")

    Set WsS = Worksheets("export_commande_20190412")

    DerLigS = WsS.Range("A" & Rows.Count).End(xlUp).Row

    WsS.Range("A1:C" & DerLigS).AdvancedFilter Action:=xlFilterCopy, _

    CriteriaRange:=WsC.Range("E2:F3"), CopyToRange:=WsC.Range("A7:C7"), Unique:=False

    Set WsC = Nothing: Set WsS = Nothing

End Sub

Cordialement

 

[Rosaliie]

Bonjour,
Merci pour votre réponse , j'ai un autre souci je dois faire un calendrier prévisionnel à la semaine pour les responsables pour ce faire je dois classer les produits (ascenseurs+escaliers, divers et fermetures ) j'ai essayé de faire un filtre avancé mais ça ne marche et ayant aucune base en vba j'aimerai pas m'aventurer à le faire . Pourriez-vous me donner des pistes svp. Je vous joins le fichier si vous avez des questions hésitez pas. J'ai essayé de le faire manuellement mais sachant que je dois le faire chaque semaine ça deviens pénible.

 

[frangy]

Bonjour,

Si je comprends bien, tu souhaites effectuer un filtrage sur la semaine et sur un ou plusieurs produits.
Pour une semaine donnée et 3 groupes de produits distincts, cela représente 3 filtrages. Je ne saisis pas en quoi cela est pénible, le filtre automatique d’Excel me semble largement suffisant.

Aurais-je raté quelque chose ?

Cordialement.