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

XL 2013 Ajout hiérarchie dans résultat

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Dudesson
  • Date de début Date de début

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

Dudesson

XLDnaute Junior
bonjour le forum,
bonjour à tous,
je cherche de l'aide pour ajouter une condition de hiérarchie dans les résultats du code du fichier joint.
il trouve les emplacements et les donne dans l'ordre qu'ils sont sur la feuille Stocks, mais je souhaiterais modifier cet ordre pour que l'emplacement qui a la plus petite quantité en colonne H de la feuille stocks soit affichée la première et ainsi de suite.
concrètement : sur feuille planning, pour le lot 192706 (lignes 3 et 4) , il devrait d'abord afficher en colonne H = EL227 (qui n'a qu'une quantité de 5000 (en colonne H de la feuille Stocks) et ensuite ECM81 (qui compte 25000 en colonne H de la feuille Stocks).
il va sans dire que si le lot n'existe qu'une seule fois en colonne G de la feuille Planning, alors le résultat affiché est l'emplacement en colonne E de la feuille Stocks qui a la plus petite quantité en colonne H (de la feuille Stocks).
j'espère avoir été clair et compréhensible dans mes explications.
merci d'avance.
Pedro.
 

Pièces jointes

Trier par date Trier par votes
Bonjour Dudesson, chris,

Dans la feuille "Planning" sélectionner la cellule H2 et définir le nom matrice par :
Code: 
=SI((Planning!$G2<>"")*(-Stocks!$C$4:$C$1000=-Planning!$G2);Stocks!$H$4:$H$1000+LIGNE(Stocks!$H$4:$H$1000)/"1E6")
La limite 1000 des plages doit être ajustée au besoin.

Formule en H2 :
Code: 
=SIERREUR(INDEX(Stocks!$E$4:$E$1000;EQUIV(PETITE.VALEUR(matrice;NB.SI(G$2:G2;G2));matrice;0));"")
A+
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour et merci pour votre proposition je test quand je rentre. Mais dans mon fichier la feuille planning fait plus de 10000 lignes et +/_ 700 lignes sur la feuille stocks, donc si possible, une solution en Vba. Sincères salutations
 
Vote positif 0 Vote négatif
Dudesson à dit:
donc si possible, une solution en Vba.
Cliquez pour agrandir...
Pas de problème, voyez ce fichier (2) et la macro du bouton :
VB: 
Private Sub CommandButton1_Click()
Dim tablo, d1 As Object, d2 As Object, i&, resu, x As Variant, s, n&
With Sheets("Stocks").[A3].CurrentRegion 'adapter éventuellement
    .Columns(3).Insert xlToRight 'colonne auxiliaire
    .Columns(3) = "=--(""""&RC[1])" 'convertit en nombre ce qui peut être convertit
    .Resize(, 10).Sort .Columns(3), xlAscending, .Columns(9), , xlAscending, Header:=xlYes 'tri sur 2 colonnes
    tablo = .Columns(3).Resize(, 4) 'matrice, plus rapide
    .Columns(3).Delete xlToLeft 'supprime la colonne auxiliaire
End With
Set d1 = CreateObject("Scripting.Dictionary")
Set d2 = CreateObject("Scripting.Dictionary")
For i = 2 To UBound(tablo)
    If IsNumeric(tablo(i, 1)) Then _
        d1(tablo(i, 1)) = d1(tablo(i, 1)) & " " & i 'mémorise les numéros des lignes
Next
With [A1].CurrentRegion.Columns(7).Resize(, 2)
    resu = .Value 'matrice, plus rapide
    For i = 2 To UBound(resu)
        resu(i, 2) = ""
        x = resu(i, 1)
        If IsNumeric(CStr(x)) Then
            x = CDbl(x)
            If d1.exists(x) Then
                d2(x) = d2(x) + 1
                s = Split(d1(x))
                n = d2(x)
                If n <= UBound(s) Then resu(i, 2) = tablo(s(n), 4)
            End If
        End If
    Next
    If FilterMode Then ShowAllData 'si la feuille est filtrée
    .Value = resu 'restitution
End With
End Sub
L'exécution est très rapide car on utilise des tableaux VBA et 2 Dictionary sans boucles imbriquées.
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
J'ai testé en recopiant les tableaux sur 10 000 lignes en feuille "Planning" et 700 lignes en feuille "Stocks" :

- recalcul des formules du fichier (1) => 5,7 secondes

- macro du fichier (2) => 0,49 seconde.
 
Vote positif 0 Vote négatif
Bonjour Dudesson, chris, le forum,

Avec ce fichier (3) les numéros des lots sont convertis en textes, c'est indispensable s'ils contiennent des lettres :
VB: 
Private Sub CommandButton1_Click()
Dim tablo, d1 As Object, d2 As Object, i&, x$, resu, s, n&
With Sheets("Stocks").[A3].CurrentRegion 'adapter éventuellement
    .Columns(3).Insert xlToRight 'colonne auxiliaire
    .Columns(3) = "=""""&RC[1]" 'convertit en texte
    .Resize(, 10).Sort .Columns(3), xlAscending, .Columns(9), , xlAscending, Header:=xlYes 'tri sur 2 colonnes
    tablo = .Columns(3).Resize(, 4) 'matrice, plus rapide
    .Columns(3).Delete xlToLeft 'supprime la colonne auxiliaire
End With
Set d1 = CreateObject("Scripting.Dictionary")
Set d2 = CreateObject("Scripting.Dictionary")
For i = 2 To UBound(tablo)
    x = tablo(i, 1)
    If x <> "" Then d1(x) = d1(x) & " " & i 'mémorise les numéros des lignes
Next
With [A1].CurrentRegion.Columns(7).Resize(, 2)
    resu = .Value 'matrice, plus rapide
    For i = 2 To UBound(resu)
        resu(i, 2) = ""
        x = CStr(resu(i, 1))
        If d1.exists(x) Then
            d2(x) = d2(x) + 1
            s = Split(d1(x))
            n = d2(x)
            If n <= UBound(s) Then resu(i, 2) = tablo(s(n), 4)
        End If
    Next
    If FilterMode Then ShowAllData 'si la feuille est filtrée
    .Value = resu 'restitution
End With
End Sub
La durée d'exécution reste pratiquement la même.

Bonne journée.
 

Pièces jointes

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

V
  • Résolu(e)
Microsoft 365 Barre de recherche : comment rendre éditable le résultat ?
2 3 4
Réponses
52
Affichages
954
dysorthographie
  • Question Question
Microsoft 365 Recherche incomplète planning (problème de dates)
Réponses
13
Affichages
425
p56
R
  • Question Question
XL 2010 Copie de plusieurs plages de cellules spécifiques dans le presse-papier
2
Réponses
20
Affichages
480
Dranreb
M
  • Question Question
XL 2019 Recherche mots dans cellule et résultat dans cellule avec séparateur
2
Réponses
20
Affichages
1 K
job75
G
  • Question Question
Microsoft 365 Ajout de données
Réponses
3
Affichages
490
GClaire
G
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
19
Affichages
2 K
GClaire
G
Z
  • Résolu(e)
Microsoft 365 Récupérer les éléments d'une liste en fonction de leur position
Réponses
2
Affichages
645
Zarnir
Z
C
  • Résolu(e)
XL 2021 Liste dans liste
2 3
Réponses
36
Affichages
3 K
TooFatBoy
I
  • Question Question
XL 2019 Suite à une formule, enlever le doublon dans le résultat avec fonction SI
Réponses
2
Affichages
447
IderMTC
I
M
  • Question Question
XL 2019 Automatiser un planning à l'aide de différents paramètres
Réponses
4
Affichages
685
Matteo-31
M
R
  • Résolu(e)
Autres Masquer des lignes et colonnes en fonction d'une valeur d'un menu déroulant
Réponses
1
Affichages
515
Romain77144
R
R
  • Question Question
Microsoft 365 Automatisation calcul
Réponses
2
Affichages
800
Roran
R
H
  • Résolu(e)
Microsoft 365 Exporter certaines données de lignes dans un autre onglet en fonction de la valeur d’une cellule
Réponses
12
Affichages
1 K
Huggy22
H
M
  • Question Question
XL 2016 Mettre en place une série de croix dans une calendrier à l'aide d'un série de dates et de clés
Réponses
14
Affichages
912
Hasco
G
  • Résolu(e)
Microsoft 365 Formule avec pour référence le résultat d'une autre formule pour indiquer la colonne de référence
Réponses
1
Affichages
731
JHA
J
  • Question Question
Microsoft 365 stock habillement EPI
Réponses
14
Affichages
2 K
JM27
J
E
  • Question Question
Microsoft 365 VBA Calendrier, rien ne se passe.
Réponses
12
Affichages
1 K
fanch55
M
  • Résolu(e)
Microsoft 365 Fichier pratique logistique
Réponses
3
Affichages
835
maxime45
M
T
  • Question Question
Autres Problème de Chr(10) en début de cellule - fusion cellule
Réponses
6
Affichages
666
ted1057
T
  • Question Question
XL 2016 [RESOLU] gestion congés dans un calendrier
Réponses
9
Affichages
979
nightswan
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…