Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Trouver tout les prix grâce à une seule référene

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
F

floriane12

XLDnaute Nouveau
Bonjour,

Gros soucis!!!
Je n'arrive pas à trouver les prix dans mon tableau sachant qu'il y a plusieurs références les mêmes. A la base il y avait un transport dans la référence( par exemple: BE11ROT, BE11SCA) mais j'ai dû le supprimer donc il ne reste plus que le pays et code postal (Par exemple: BE11) mais du coup j'ai plusieurs références en BE11.

Donc j'ai la référence verticalement et j'ai le nombre de palettes gerbables et non gerbables horizontalement. Toutes ses données se trouve dans la feuille database.

Je voudrais faire en sorte d'avoir tout les prix correspondant au nombre de palettes et à toutes les références. Par exemple je voudrais le prix pour la référence BE11 et pour 12 palettes gerbables. Je voudrais que Excel affiche tout les prix des transporteurs.

Ma formule de base est celle-ci( avec celle-ci je ne sais pas avoir tous les prix pour toute les même références): =IF(ISERROR(INDEX(DATABASE!D7:BQ2709,MATCH('Liste déroulante'!B13,DATABASE!A7:A2709,0),MATCH(RATES!G14,Pallets,0)))=TRUE,0,INDEX(DATABASE!D7:BQ2709,MATCH('Liste déroulante'!B13,DATABASE!A7:A2709,0),MATCH(RATES!G14,Pallets,0)))

Ma formule se trouve dans la feuille RATES en G19. Je voudrais avoir les autres prix en I19 et K19.

J'espère avoir été claire.

Merci à tous

Floriane F.
 

Pièces jointes

Trier par date Trier par votes
Remplace la fonction ligx par :
VB: 
Private Function ligx(dep As String, pal As String, idx As Long) As Long
    Dim numlig
    numlig = Split(dictDep(dep), ",")
    If idx - 1 <= UBound(numlig) Then ligx = CLng(numlig(idx - 1))
End Function
eric

edit 15:47 : du coup j'ai pu simplifier la fonction.
On pourrait simplifier encore en l'intégrant aux 2 précédentes fonctions. Elle n'a plus beaucoup de raison d'être.
 
Dernière édition:
Vote positif 0 Vote négatif
Désolé mais je ne comprends pas où dois-je l'intégrer
 
Vote positif 0 Vote négatif
Tu as vu que j'avais modifié à nouveau à 15:47 ? Prend la dernière version.
Peut-être une petite désynchronisation suite à tes manips.
Va sur la feuille DATABASE, reviens et teste à nouveau, en changeant un des paramètre pour forcer le recalcul.
Pour que la fonction soit rapide la base est chargée et les dictionaries sont initialisés à l'ouverture et à la désactivation de DATABASE (en cas de modif)

PS : je dois m'absenter
 
Vote positif 0 Vote négatif

Merci je regarde à ça demain matin
 
Vote positif 0 Vote négatif
J'ai repris les fonctions pour supprimer ligx() qui s'était trop allégé.
Voici ce que tu dois avoir dans Module1 :
VB: 
Option Explicit

Dim initBaseOk As Boolean
Dim datas, dictDep, dictPallet, dictPays

Function Forwarding(pays As String, codePostal, palette As String, index As Long)
    Dim lig As Long, numlig
    If Not initBaseOk Then initbase
    numlig = Split(dictDep(dictPays(pays) & codePostal), ",")
    If index - 1 <= UBound(numlig) Then lig = CLng(numlig(index - 1))
    If lig > 0 Then Forwarding = datas(lig, 2) Else Forwarding = ""
End Function

Function cout(pays As String, codePostal, palette As String, index As Long)
    Dim lig As Long, numlig
    If Not initBaseOk Then initbase
    numlig = Split(dictDep(dictPays(pays) & codePostal), ",")
    If index - 1 <= UBound(numlig) Then lig = CLng(numlig(index - 1))
    If lig > 0 Then cout = datas(lig, dictPallet(palette)) Else cout = ""
End Function

Sub initbase()
    Dim lig As Long, col As Long
    Set dictDep = CreateObject("Scripting.Dictionary")
    Set dictPallet = CreateObject("Scripting.Dictionary")
    Set dictPays = CreateObject("Scripting.Dictionary")

    ' dict pays
    With Sheets("Liste déroulante")
        datas = .[F9:F10].Resize(, .Cells(9, Columns.Count).End(xlToLeft).Column - 5).Value
    End With
    For col = 1 To UBound(datas, 2)
        dictPays(datas(1, col)) = datas(2, col)
    Next col
    ' datas
    datas = Sheets("DATABASE").[A7].CurrentRegion.Value
    ' dict départements
    For lig = 7 To UBound(datas)
        If dictDep.exists(datas(lig, 1)) Then
            dictDep(datas(lig, 1)) = dictDep(datas(lig, 1)) & "," & lig
        Else
            dictDep(datas(lig, 1)) = lig
        End If
    Next lig
    ' dict palettes
    For col = 4 To UBound(datas, 2)
        dictPallet(datas(4, col)) = col
    Next col
    initBaseOk = True
End Sub
plus ta macro.
eric
 
Vote positif 0 Vote négatif
Bonjour,

Tu as raison. J'ai oublié de remonter tout d'une ligne après avoir supprimé la ligne 1 vide qui m'embêtait dans DATABASE.
Remplacer ces lignes dans initBase(), les 7 deviennent 6 :
VB: 
    ' datas
    datas = Sheets("DATABASE").[A6].CurrentRegion.Value
    ' dict départements
    For lig = 6 To UBound(datas)
eric
 
Vote positif 0 Vote négatif
Encore un petit soucis, je désire protéger la database et la matrice mais je n'y arrive pas à cause des MVB et macros. Voici les messages d'erreur que Excel affiche. Je ne trouve pas où est "change group" 🙁
 

Pièces jointes

  • MVB.PNG
    29.1 KB · Affichages: 31
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2016 Marco pour afficher les infos liées à une donnée d'un menu déroulant, tout en gardant le format des cellules
Réponses
1
Affichages
822
!xmusaton
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…