Index/ equiv

Y compris Power BI, Power Query et toute autre question en lien avec Excel
h
hem-id
Membre habitué
Membre habitué
Messages : 50
Inscrit le : 29 mars 2017
Version d'Excel : 2016

Message par hem-id » 28 septembre 2017, 09:48

Bonjour,

J'ai travaillé avec la fonction index et equiv pour effectuer mon planning par rapport à mes engins et je n'ai pas arriver à trouver le bon résultat.

Mon besoin c'est d' y faire une synthèse par rapport au palnning des engins (ENGINE 1; 2; et 3) .

Par exemple au niveau de la feuille synthèse je voudrais qu'Excel m'indique par rapport à l'équilibrage les index qui doivent passés en priorité en mentionnant l'Engine.

Merci par avance.
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 414
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 28 septembre 2017, 13:47

Bonjour,

Ta question concerne une recherche multi-feuilles pour consolidation de différents travaux ...

Ci-joint ton fichier test ...

En espèrant que cela t'aide ...
Test Consolidation Equilibrage.xlsm
(27.84 Kio) Téléchargé 15 fois
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
h
hem-id
Membre habitué
Membre habitué
Messages : 50
Inscrit le : 29 mars 2017
Version d'Excel : 2016

Message par hem-id » 28 septembre 2017, 14:24

Merci beaucoup pour la réponse. c'est exactement ce que je cherche.
Pouvez-vous SVP m'expliquer comment vous l'avez programmer pour que je puisse l'utiliser sur autre feuille.



Merci autrefois.
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 414
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 28 septembre 2017, 14:49

Re,

Content que cela fonctionne ...

Merci ... pour tes remerciements ... :smile:

La macro n'est pas cachée ... :wink: ... il suffit de faire Alt + F11 pour y accéder ...

Bon Courage pour la suite ...
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
h
hem-id
Membre habitué
Membre habitué
Messages : 50
Inscrit le : 29 mars 2017
Version d'Excel : 2016

Message par hem-id » 28 septembre 2017, 21:20

Pouvez-vous m'expliquer les grandes lignes de ce programme ?

Option Explicit

Sub Consolidation()

Dim fnd As String, FirstFound As String
Dim FoundCell As Range
Dim myRange As Range
Dim sh As Worksheet, i As Long

Application.ScreenUpdating = False
fnd = Feuil4.Range("B3")
Feuil4.Range("B4:E100").ClearContents

For Each sh In ThisWorkbook.Sheets
If sh.Name <> "Synthèse" Then
Set myRange = sh.UsedRange
Set FoundCell = myRange.Find(what:=fnd, after:=myRange.Cells(1, 1), SearchOrder:=xlByColumns)
If Not FoundCell Is Nothing Then
FirstFound = FoundCell.Address
i = Feuil4.Cells(Application.Rows.Count, "B").End(xlUp).Row + 1
Feuil4.Cells(i, 2) = sh.Name
Feuil4.Cells(i, 3) = sh.Cells(FoundCell.Row, 1)
Feuil4.Cells(i, 4) = sh.Cells(1, FoundCell.Column)
Feuil4.Cells(i, 5) = sh.Cells(2, FoundCell.Column)
Else
GoTo NothingFound
End If

Do Until FoundCell Is Nothing
Set FoundCell = myRange.FindNext(after:=FoundCell)
If FoundCell.Address = FirstFound Then Exit Do
i = Feuil4.Cells(Application.Rows.Count, "B").End(xlUp).Row + 1
Feuil4.Cells(i, 2) = sh.Name
Feuil4.Cells(i, 3) = sh.Cells(FoundCell.Row, 1)
Feuil4.Cells(i, 4) = sh.Cells(1, FoundCell.Column)
Feuil4.Cells(i, 5) = sh.Cells(2, FoundCell.Column)
Loop
NothingFound:
If FoundCell Is Nothing Then Exit Sub
End If
Next sh

i = Feuil4.Cells(Application.Rows.Count, "B").End(xlUp).Row
ActiveWorkbook.Worksheets("Synthèse").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Synthèse").Sort.SortFields.Add Key:=Range("D4:D" & i _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Synthèse").Sort.SortFields.Add Key:=Range("E4:E" & i _
), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Synthèse").Sort
.SetRange Range("B3:E" & i)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Application.ScreenUpdating = True
End Sub
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 414
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 29 septembre 2017, 06:54

Bonjour,

Est-ce-que ton fichier réel est très différent du fichier test que tu as posté ...?

Si c'est le cas, tu as intérêt à poster un autre fichier test qui soit véritablement similaire au tien ...
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 5'105
Appréciations reçues : 268
Inscrit le : 16 mars 2017
Version d'Excel : 2010 sur PC

Message par i20100 » 29 septembre 2017, 08:22

Bonjour hem-id, James007,

hem-id, le boulot fait par James007 est excellent, ces macros s'appliquent à un classeur contenant plusieurs feuilles et non à une feuille en particulier.
vu que James007 as déjà fait tous le boulot, je vais essayer de vous expliquer les grandes lignes...
premièrement sur la page code de l'onglet "Synthèse" il y a la macro suivante:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$3" Then Exit Sub
Application.Run ("Consolidation")
End Sub
explication: si la cellule B3 de la feuille "Synthèse" change de valeur,
exécuter la macro "Consolidation" (cette macro est sur le Module 1)
je vais mettre des notes directement dans la macro pour faciliter la lecture,
ps/ au passage il vaut mieux mettre le code entre les balises pour faciliter la lecture.

Édit: les lignes d'explication étant trop longue pour les balises, :?
c'est pourquoi je remet le fichier en pièce joint pour une meilleur lecture
James007-Test Consolidation Equilibrage.xlsm
(28.65 Kio) Téléchargé 5 fois
Modifié en dernier par i20100 le 29 septembre 2017, 08:40, modifié 1 fois.
Merci! de faire un clic sur le bouton résolu pour nous aider à t'aider.
Si vous avez un doute :
annonces/explications-et-regles-a-respecter-t13.html

isabelle
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 414
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 29 septembre 2017, 08:37

Bonjour Isa ... :wink:

Un grand MERCI ..... :D

Pour être honnête ... pas trop le temps de tout commenter ...

Tes explications sont vraiment excellentes ... :!:
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 5'105
Appréciations reçues : 268
Inscrit le : 16 mars 2017
Version d'Excel : 2010 sur PC

Message par i20100 » 29 septembre 2017, 08:47

merci à toi James007, c'est vraiment un plaisir quand le boulot est déjà bien fait !
cordialement,
isabelle

Édit:
ce sujet fait souvent l'objet de question, alors voici une nouvelle version du fichier de James007 avec plus d'explication,.
s.v.p. n'hésitez pas à mettre votre grain de sel au passage.
James007-Test Consolidation Equilibrage.xlsm
(127.48 Kio) Téléchargé 15 fois
Merci! de faire un clic sur le bouton résolu pour nous aider à t'aider.
Si vous avez un doute :
annonces/explications-et-regles-a-respecter-t13.html

isabelle
A
Alu77
Jeune membre
Jeune membre
Messages : 24
Inscrit le : 29 septembre 2017
Version d'Excel : 2013 fr

Message par Alu77 » 29 septembre 2017, 13:51

Merci je vais test et je reviens vers vous pour mettre la solution.

Merci du retour !
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • INDEX + EQUIV
    par sophiane » 11 mars 2016, 14:43 » dans Excel - VBA
    51 Réponses
    1237 Vues
    Dernier message par sophiane
    24 mars 2016, 10:17
  • Index-Equiv
    par criscris11 » 16 octobre 2014, 11:29 » dans Excel - VBA
    2 Réponses
    193 Vues
    Dernier message par criscris11
    16 octobre 2014, 19:06
  • Index Equiv
    par brunyon » 27 juin 2014, 21:44 » dans Excel - VBA
    3 Réponses
    191 Vues
    Dernier message par brunyon
    28 juin 2014, 21:02
  • INDEX/EQUIV
    par Benoist28200 » 11 décembre 2015, 18:48 » dans Excel - VBA
    12 Réponses
    301 Vues
    Dernier message par Benoist28200
    12 décembre 2015, 16:12
  • Index et Equiv
    par Philippe02 » 27 février 2017, 20:10 » dans Excel - VBA
    10 Réponses
    198 Vues
    Dernier message par tulipe_4
    1 mars 2017, 13:02
  • index Bi-equiv
    par Darjelling » 19 janvier 2016, 16:12 » dans Excel - VBA
    4 Réponses
    179 Vues
    Dernier message par DjiDji59430
    19 janvier 2016, 16:55