XL 2019 Après modifications, j'ai des complication dans vba.

vgendron

XLDnaute Barbatruc

• 16 Mai 2022

• #2

Bonjour

dans ton fichier joint, comment lances tu la macro?

 

Vote positif 0 Vote négatif

P

Paulle

XLDnaute Occasionnel

• 16 Mai 2022

• #3

Bonjour,
Je lance la macro avec la liste déroulante en P1 de la feuille Decompte.

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 16 Mai 2022

• #4

tes zones "A Ascenseur" et "B Ascenseur" ne sont pas définies dans le gestionnaire de nom

je ne comprend pas ce que fait ton fichier...
j'ai du mal à voir quelles sont les données d'entrée, et celle de sortie.
dans ta feuille décompte, il y a à la fois des formules et à la fois des donnée "importées" par ta macro..

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 16 Mai 2022

• #5

Bonjour Paulle, Vgendron,
Je ne vois pas comment ça peut marcher.
Si je choisis A, je rapatrie les valeurs de Tantiemes dans Decompte, puis je filtre sur Escalier avec comme valeur A. Ca, ça marche.
Si je choisis Chauffage, je rapatrie les valeurs de Tantiemes dans Decompte, ça, c'est ok. Puis je filtre sur Escalier avec Chauffage. Le retour est vide puisque dans la première colonne qui est filtrée il n'y a jamais Chauffage.
On pourrait peut être filtrer sur le field=7 avec contenu non nul. Tout dépend de ce que vous voulez voir.
Un essai en PJ, on filtre sur l'item 7 avec des valeurs >0 :

VB:

    With loDecompte
        ' annulation des filtre précedents
        .Range.AutoFilter field:=7
        ' copies des valeurs de tantièmes
        .ListColumns("Tantiemes").DataBodyRange.Value = loTantièmes.ListColumns(LeQuel).DataBodyRange.Value
        '
        ' au besoin filtrer le tableau Decompte
        '
        If LeQuel <> "Pl_Sol_et_cloture" Then
            .Range.AutoFilter _
                    field:=7, Criteria1:=">0", _
                    Operator:=xlFilterValues

        End If
    End With

Mais est ce que ça correspond au besoin ???

 

Pièces jointes

• Repartition05H (1).xlsm

  40.7 KB · Affichages: 3

Vote positif 0 Vote négatif

P

Paulle

XLDnaute Occasionnel

• 16 Mai 2022

• #6

vgendron,
j'ai défini les zones "A Ascenseur" et "B Ascenseur".

sylvanu,
Cela me convient.

Si je suis un peu long à répondre, c'est que j'essaie de comprendre en même temps.

Il y a encore les Ascenseurs A et B que je n'ai pas réussi à régler.
Le nouveau fichier joint avec les zones nommées et la solution du chauffage.

Merci pour votre aide.

 

Pièces jointes

• Repartition03F1.xlsm

  47.2 KB · Affichages: 7

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 16 Mai 2022

• #7

Re,
Dans votre dernière PJ, Ascenseur_A et Ascenseur_B passent sans générer d'erreur.
Quel point n'avez vous pas résolu ?

 

Vote positif 0 Vote négatif

P

Paulle

XLDnaute Occasionnel

• 16 Mai 2022

• #8

Pour moi, il y a une erreur générée pour Ascenseur_A et Ascenseur_B.
J'ai mis les copies en PJ.

 

Pièces jointes

• Capture d’écran 2022-05-16 162940.jpg

  224.6 KB · Affichages: 23
• Capture d’écran 2022-05-16 162848.jpg

  151.9 KB · Affichages: 22

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 16 Mai 2022

• #9

Re,
Désolé mais chez moi ça marche :

Etes vous sure de bien entrer Ascenseur_A et Ascenseur_B en P1 ?
Sur votre image je vois en P1 B ascenceur et non Ascenseur_B

 

Vote positif 0 Vote négatif

P

Paulle

XLDnaute Occasionnel

• 16 Mai 2022

• #10

J'ai mis les noms correctement dans la liste déroulante et cela fonctionne.
Un grand merci. Il est vrai qu'au bout d'un certain temps c'est embrouillé dans ma tête.

 

Vote positif 0 Vote négatif

P

Paulle

XLDnaute Occasionnel

• 16 Mai 2022

• #11

je viens de découvrir un dysfonctionnement auquel je n'ai pas trouvé la solution.
Quand je sélectionne "Sol et cloture" les lignes 128 à 134 sont masquées dans la feuille Decompte.
J'ai beaucoup à apprendre.
Merci.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 16 Mai 2022

• #12

Bonsoir,
Apparemment je n'ai pas de souci. Peut être avez vous un filtre actif suivant les configurations précédentes.
Essayez cette version, je supprime tous les filtres potentiels et pas seulement celui de la 7eme colonne.

 

Pièces jointes

• Repartition03F1 (2).xlsm

  40.8 KB · Affichages: 4

Vote positif 0 Vote négatif

goube

XLDnaute Accro

• 16 Mai 2022

• #13

Bonsoir à tous,
Une proposition avec Power Query.
Cordialement.

 

Pièces jointes

• Repartition05H.xlsm

  45.9 KB · Affichages: 6

Vote positif 0 Vote négatif

P

Paulle

XLDnaute Occasionnel

• 16 Mai 2022

• #14

Merci sylvanu et goube, c'est parfait.
Le Power Query, pour moi c'est de l'abstrait étant débutant vba.

 

Vote positif 0 Vote négatif

goube

XLDnaute Accro

• 16 Mai 2022

• #15

Re,
Power query n’a rien à voir avec VBA, c’est beaucoup plus simple à mettre en œuvre , dans ton cas.
Cordialement

 

Dernière édition: 16 Mai 2022

Vote positif 0 Vote négatif