XL 2019 croisé dynamique - macro

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

  • mx.xls
    35 KB · Affichages: 9
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...

Discussions similaires

Statistiques des forums

Discussions
314 656
Messages
2 111 613
Membres
111 225
dernier inscrit
arnaud3110