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

[Paulle]

Bonjour,

J'avais débuté ce fichier et mis au point avec l'aide des membres du forum.

XL 2019 - Simplifier les macros.

Bonjour à tous, J'ai fait un fichier de façon à calculer les charges revenant à chacun suivant où la dépense a été faite. Le choix se fait par la liste déroulante en M1. Est-il possible de simplifier les macros du Module1 ? Merci.

www.excel-downloads.com

J'ai voulu améliorer mon fichier et les problèmes sont apparues.

Sur la feuille "Tantiemes" j'ai ajouté 3 colonnes "Pl_Chauffage" "Pl_Asc_A" "Pl_Asc_B".

J'ai modifié la liste déroulante.

Dans le Module 1, j'ai ajouté 3 lignes.
Case "Pl_Chauffage": Tbl = Array("Chauffage")
Quand je clique sur Chauffage, les lignes jusqu'à 134 sont masquées et impossible de les afficher.

Pour les lignes suivantes :
Case "Pl_Asc_A": Tbl = Array("Ascenseur A")
Case "Pl_Asc_B": Tbl = Array("Ascenseur B")

J'ai : Erreur d'exécution 9: L'indice n'appartient pas à la sélection.

J'y ai passé plusieurs heures sans y parvenir, c'est pourquoi je sollicite votre aide.
Merci.

 

[vgendron]

Bonjour

dans ton fichier joint, comment lances tu la macro?

 

[Paulle]

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

 

[vgendron]

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..

 

[sylvanu]

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 :

    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 ???

 

[Paulle]

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.

 

[sylvanu]

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 ?

 

[Paulle]

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

 

[sylvanu]

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

 

[Paulle]

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.

 

[Paulle]

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.

 

[sylvanu]

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.

 

[goube]

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

 

[Paulle]

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

 

[goube]

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