XL 2019 Fonction personnelle

[Susuwatari]

Bonjour,

Après de nombreuses heures de recherches et de multiples tentatives je me tourne vers vous pour résoudre ce problème.

Dans le premier onglet "Compte", colonne "€ - RAD", frais "Véhicule", je distingue 2 types de véhicules : La mégane et le jumper.
Cette information provient du dernier onglet "Planning", avant dernière colonne "Véhicule".
Dans ce planning nous avons une liste de salariés et chacun d'entre eux utilise soit la mégane soit le jumper (ou aucun des 2).
Pour savoir a quelle véhicule est associé un salarié, il faut se rendre dans l'onglet "Data_Salariés".

Mon objectif est donc d'obtenir, dans mon onglet "Compte", les valeurs de mon onglet "Planning" triées en fonction des données de mon onglet "Data_Salariés".

En ajoutant, dans l'onglet "Planning", une colonne indiquant les véhicules associés j'arrive a obtenir le résultat escompté grâce à la formule suivante : cf "K17" onglet "Compte"
=SOMMEPROD((Tableau_Planning[Colonne1]=[@Frais]))*Tableau_Planning[Véhicule])

Cependant j'aimerais obtenir ce résultat sans avoir à ajouter cette dernière colonne. J'imagine que la solution est de passer par une fonction personnelle. Mes connaissance étant assez limité sur ce sujet, je vous demande de l'aide.

J'espère avoir été assez clair dans mes explications.

En attente de votre retour,

Susuwatari

[Modération: pièce jointe supprimée, contrevenant au RGPD]

 

[fanch55]

Bpnjour,
Difficile de vous aider sans un petit classeur exemple expurgé .

 

[Susuwatari]

Bonjour,

J'ai joint le fichier lors de la création de ce message cependant il a été enlevé car il "contient des données contrevenant au RGPD".

Je le renvoi via ce message !

[Modération: pièce jointe supprimée, contrevenant au RGPD]

 

[Etoto]

Bonjour,

J'ai joint le fichier lors de la création de ce message cependant il a été enlevé car il "contient des données contrevenant au RGPD".

Je le renvoi via ce message !

Bonjour,

Nous pouvons vous aider seulement si le fichier est en règle vu que le RGPD fait partie du point 1.1 de la Charte XLD.

1.1 - Conformité RGPD
Tout message ou fichier déposé sur ce site ne doit pas comporter de données à caractère personnel contrevenant au RGPD (Réglement Général sur la Protection des Données).
Il convient pour cela d’anonymiser toutes les données permettant d’identifier directement ou indirectement une personne physique ou morale.
XLD ne saurait être tenu responsable au cas où un visiteur du site posterait des données non conformes à la législation en vigueur.
Si vous détectez une non conformité, merci d'alerter le webmaster de ce site en utilisant, dans le post concerné, le bouton "signaler" dédié ou en envoyant un courriel à l'adresse webmaster@excel-downloads.com, nous supprimerons les données dans les plus brefs délais.

 

[Bernard_XLD]

Bonjour susuwatari, fanch55, etoto, le forum

@Susuwatari , vous ne devez en aucun cas poster de fichier contenant des données permettant d'identifier des personnes physiques ou morales, cela contrevient au RGPD, Réglement général européen sur la protection des données, transcrit en droit français. Vous avez déjà été prévenu et vous recommencez pourtant. Vous devez impérativement anonymiser vos données avant, faites un fichier exemple sur votre problème précis sans aucune donnée contraire à la loi.
Si les données contenues peuvent laisser penser qu'elles sont réelles mais sont en fait fictives, vous devez impérativement le préciser pour lever ce doute. Merci de respecter ce principe à l'avenir, il n'y aura pas d'autre avertissement.

Bien cordialement, @+

 

[Susuwatari]

D'accord je comprend mieux pourquoi le fichier est supprimé.

Voici la version anonyme.

 

[fanch55]

D'accord je comprend mieux pourquoi le fichier est supprimé.

Voici la version anonyme.

Bonjour @Yeahou ,
On ne peut pas charger le fichier "anonyme" fourni, peut-être un attribut à modifier au post ...

 

[Bernard_XLD]

Bonjour fanch55, le forum

On ne peut pas charger le fichier "anonyme" fourni, peut-être un attribut à modifier au post ...

non, je le charge sans problème, il est fonctionnel.
le voila

Bien cordialement, @+

 

[fanch55]

Ah ben mince alors, il a fallu que je désactive mon Adblock pour pouvoir charger le fichier.
Les autres discussions fonctionnent normalement ...

 

[fanch55]

Bonjour @Susuwatari ,

Je ne suis pas assez pointu dans les formules matricielles ou à base de sommeprod ,Somme.si avec rechercheV.

Par contre la fonction personnelle ci dessous devrait convenir :

Function Get_Table(Table As Object) As String
    With Table
        Get_Table = "[" & .Worksheet.Name & "$" & .ListObject.Range.Address(False, False) & "]"
    End With
End Function

Function SomVehic(Vehic As String)
    Dim Ado_Conn 'As ADODB.Connection
    Dim Ado_Rst 'As ADODB.Recordset
    Sql_Driver = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" & _
                    "DBQ=" & ThisWorkbook.FullName & ";READONLY=FALSE"
 
    Set Ado_Conn = CreateObject("ADODB.Connection")
        Ado_Conn.Open Sql_Driver
        Set Ado_Rst = CreateObject("ADODB.Recordset")
            Ado_Rst.ActiveConnection = Ado_Conn
                Ado_Rst.Open _
                    "Select Sum(Véhicule) as SomVehic from " & Get_Table([Tableau_Planning]) & _
                    " where Salariés in " & _
                    " ( select Salariés from " & Get_Table([Tableau_DataSalariés]) & _
                    "     where véhicule = '" & Vehic & "')"
                    Select Case True
                        Case Err <> 0:      SomVehic = xlErrRef
                        Case Ado_Rst.EOF:   SomVehic = xlErrNA
                        Case Else:          SomVehic = Ado_Rst!SomVehic
                    End Select
                Ado_Rst.Close
        Set Ado_Rst = Nothing
        Ado_Conn.Close
    Set Ado_Conn = Nothing
End Function

 

[Wayki]

Salut,
Une proposition avec Sommeprod et décaler.
Dans l'attente de te relire.
A +

 

[Susuwatari]

Wayki,
Merci pour ta solution, c'est exactement ce que je cherchais a faire !

Franch55,
Je te remercie pour la fonction personnelle que tu m'a envoyé. Elle répond à ma demande et me servira surement pour de futurs projets !

Cordialement,

Susuwatari