XL 2019 croisé dynamique - macro

ZENHA ENT · 14 Juin 2022

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,

job75 · 14 Juin 2022

"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...

job75 · 21 Juin 2022

Si la macro n'est plus dans le module de la feuille il faut ajouter ActiveSheet ici :

VB:

'---colore les cellules---
For Each r In ActiveSheet.UsedRange

Bonne nuit.

ZENHA ENT · 21 Juin 2022

merci beaucoup cher monsieur et bonne fin soirée à vous

XL 2019 croisé dynamique - macro

ZENHA ENT

XLDnaute Nouveau

Pièces jointes

job75

job75

XLDnaute Barbatruc

ZENHA ENT

XLDnaute Nouveau

Discussions similaires