Index/ equiv

Y compris Power BI, Power Query et toute autre question en lien avec Excel
h
hem-id
Jeune membre
Jeune membre
Messages : 47
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 : 421
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
Jeune membre
Jeune membre
Messages : 47
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 : 421
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
Jeune membre
Jeune membre
Messages : 47
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 : 421
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 : 6'036
Appréciations reçues : 352
Inscrit le : 16 mars 2017
Version d'Excel : 2010

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.
Prenons soins de nous et de notre vaisseau spatial, nous n’en n’avons qu’un ...notre planète terre
isabelle
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 421
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 : 6'036
Appréciations reçues : 352
Inscrit le : 16 mars 2017
Version d'Excel : 2010

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
Prenons soins de nous et de notre vaisseau spatial, nous n’en n’avons qu’un ...notre planète terre
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
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • index/equiv/na
    par DrakeRamore » 21 février 2018, 14:19 » dans Excel - VBA
    10 Réponses
    290 Vues
    Dernier message par Dug59
    21 février 2018, 16:18
  • Index Equiv
    par brunyon » 27 juin 2014, 21:44 » dans Excel - VBA
    3 Réponses
    209 Vues
    Dernier message par brunyon
    28 juin 2014, 21:02
  • Index/equiv ? #N/A
    par pika83 » 30 novembre 2019, 14:16 » dans Excel - VBA
    9 Réponses
    95 Vues
    Dernier message par xorsankukai
    30 novembre 2019, 17:09
  • Index et equiv
    par btazz34 » 28 avril 2019, 11:13 » dans Excel - VBA
    2 Réponses
    114 Vues
    Dernier message par btazz34
    28 avril 2019, 13:56
  • Index et Equiv
    par Philippe02 » 27 février 2017, 20:10 » dans Excel - VBA
    10 Réponses
    360 Vues
    Dernier message par tulipe_4
    1 mars 2017, 13:02
  • INDEX + EQUIV
    par sophiane » 11 mars 2016, 14:43 » dans Excel - VBA
    51 Réponses
    1298 Vues
    Dernier message par sophiane
    24 mars 2016, 10:17