XL 2019 croisé dynamique - macro

  • Initiateur de la discussion Initiateur de la discussion ZENHA ENT
  • 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 !

ZENHA ENT

XLDnaute Nouveau
Bonsoir,

J'espère que vous allez bien

Je souhaiterai obtenir un TABLEAU à partir des données saisie dans la feuille "donnée ", j'ai essayé avec les croisés dynamique mais je n'ai pas réussi, peut être que c'est faisable avec une macro ou même avec un croisé dynamique avancé (je n'arrive pas à faire ca avec plusieurs parc et plusieurs zones ) ! le résultat que j'essaye d'obtenir est sur la feuille "résultat attendu"
quelqu'un parmi vous peut me donner un coup de main sur le fichier ci-joint et merci d'avance

Cordialement,
 

Pièces jointes

Solution
"ASP" n'est pas le même parc que "as" mais bon pour obtenir le résultat que vous voulez il suffit de trier alphabétiquement le tableau des résultats.

Par ailleurs dans certains cas il est indispensable d'encadrer les noms des machines pour la recherche.

Voyez ce fichier (2) et la macro :
VB:
Private Sub Worksheet_Activate()
Dim d As Object, tablo, i&, x$, y$, n&, dest As Range
Set d = CreateObject("Scripting.Dictionary")
d.CompareMode = vbTextCompare 'la casse est ignotée
tablo = Sheets("DONNEE").[A1].CurrentRegion.Resize(, 13) 'matrice, plus rapide
For i = 2 To UBound(tablo)
    x = tablo(i, 13) & Chr(1) & tablo(i, 11) 'concaténation avec séparateur
    y = tablo(i, 5)
    If d.exists(x) Then
        If y <> "" Then If...
- 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

Réponses
18
Affichages
543
Retour