Microsoft 365 Extraire le nombre d'occurence d'un texte dans un tableau

[PhilChx]

Bonjour à tous.
Je développe une macro VBA et je souhaiterais extraire les textes qui sont différents dans une colonne (la colonne D dans l'exemple)
et récupérer la liste des textes (résultat en colonne F) et le nombre de textes différents (Colonne G) :

Quand on utilise le bouton Données/Filtre Excel doit forcément les extraire (içi A,B,C) car il affiche l'écran suivant :

J'ai essayé la méthode Range.AutoFilter mais je n'arrive pas à récupérer les infos que je cherche

Bien sur je pourrais développer une boucle qui va lire ligne à ligne, mais mon fichier réel fait plusieurs milliers de lignes et cela risque d'être très lent.
Si une méthode existe dans Excel, elle sera certainement optimisée et très rapide.

Quelqu'un a t - il une idée ?

Merci d'avance,
Amitiés
Philippe

 

[excfl]

Bonjour le forum,

Par formule matricielle :

=INDEX(NUM;MIN(SI(NUM<>"";SI(NB.SI(F$1:F1;NUM)=0;LIGNE(NUM)))))

 

[Staple1600]

Bonjour le fil

Une idée?
Oui
Pourquoi ne pas utiliser un tableau croisé dynamique?

 

[PhilChx]

Merci Staple1600.
Effectivement, ça à l'air la meilleur solution.
Je vais travailler avec un TCD et je vous dirais si je m'en suis sorti.

Merci encore
Phil

 

[Staple1600]

Re

Personnellement, je m'en suis sorti
(merci le confinement)
Si le cœur t'en dit, tu peux tester
(NB:La feuille active doit se nommer Feuil1)

Sub mTest()
Créer_Exemple
Créer_TCD
End Sub
Private Sub Créer_Exemple()
formules = Array("=""NOM""&ROW()-1", "=""PRE""&RC[-1]", "=RANDBETWEEN(22000,35000)", "=CHAR(RANDBETWEEN(65,67))")
[A1:D1] = Array("Nom", "Prénom", "Code Postal", "Postes")
[A2:D2].Formula = formules: [A2:D30].FillDown: [A1:D30] = [A1:D30].Value
End Sub
Private Sub Créer_TCD()
Dim Source$, Desti$, TCD As PivotTable
Source = "Feuil1!R1C1:R30C4": Desti = "Feuil1!R3C7"
Set TCD = ActiveWorkbook.PivotCaches.Create(1, Source).CreatePivotTable(TableDestination:=Desti, TableName:=" ")
With TCD.PivotFields("Postes"): .Orientation = 1: .Position = 1: End With
TCD.AddDataField TCD.PivotFields("Nom"), "Nombre de Nom", xlCount
TCD.CompactLayoutRowHeader = "Postes différents"
TCD.DataPivotField.PivotItems("Nombre de Nom").Caption = "Nombre de postes"
End Sub

PS: J'ai fait cela en VBA pour occuper ce samedi morose et pluvieux
Mais tout cela se fait à la souris (sans macro)

 

[PhilChx]

Merci bcp.
Comme quoi le confinement nous donne le temps de réfléchir !
Deux façons de s'en sortir vraiment intéressantes.
J'ai progressé un peu en TCD, mais je piétinais un peu. Ta macro, Staples1600 m'ouvre de nouvelles perspectives.
Merci
Phil

 

[Staple1600]

Bonjour le fil,

=>PhilCrx
Euh, la macro c'était pas le but
C'était juste pour créer un exemple

C'est plus simple, intuitif et ergonomique de manipuler les TCD manuellement.

NB: j'ai posté ce bout de code simplement par désœuvrement et parce que depuis le 22 mai 1968, trois heures de l’après-midi, je ne joins plus de fichier Excel sur les forums.

 

[R@chid]

Bonjour et Bienvenu sur XLD,
Salut @ tous,

Sous Excel pour Microsoft 365,

En F2 :

=TRIER(UNIQUE(D2:D7))

En G2 :

=NB.SI(D2:D7;F2#)

Cordialement

 

[Staple1600]

Bonjour R@chid

Bah encore mieux que le TCD
(Va falloir que je songe à changer de version d'Excel)

 

[R@chid]

Re,
Eh oui Staple1600, tous les amoureux d'Excel ont changé de version, Excel pour Microsoft 365 vient d'un autre monde, le travail avec devient un jeu d'enfant.

Cordialement

 

[PhilChx]

R@chid,

Merci des fonctions que tu as proposé.
Mais je voudrais créer une feuille depuis la macro et y intégrer ces fonctions
J'ai donc essayé :

Sheets.Add After:=ActiveSheet
ActiveSheet.Name = "Feuil1"

Range("A2") = "UN"
Range("A3") = "DEUX"

'etc ....
'puis

Range("F2").Formula2 = "=UNIQUE(D27)"
Range("G2").Formula2 = "=NBVAL(F2:F7)"

Le problème, c'est que le contenu de la Case G2 obtenue est :

J'obtiens en G2 l'erreur #NOM alors que F2 est OK

Si je monte le curseur dans la zone de saisie au dessus et que je valide :

J'obtiens le bon résultat :

Je ne sais pas d'où vient ce problème .
Quelqu'un a une idée ?

Merci !

Philippe

 

[Staple1600]

Bonjour

Remplace Formula2 par FormulaLocal

 

[PhilChx]

Merci Staple1600,
J'ai testé FormulaLocal , mais cela ne marchait pas.

mais finalement j'ai utilisé l'enregistreur de Macro qui m'a proposé :


Range("F2").Select
ActiveCell.Formula2R1C1 = "=UNIQUE(RC[-2]:R[5]C[-2])"

Range("G2").Select
ActiveCell.FormulaR1C1 = "=COUNTA(RC[-1]:R[5]C[-1])"

et ça fonctionne.
Amitiés

Phil

 

[Staple1600]

Re


Pourtant cela fonctionne chez moi.
A tester sur une feuille vide

Sub test()
Dim R As Range
Set R = [F2:F7]
For i = 2 To 7 Step 2
R(i) = i - 0.5 ^ i - 0.05 'juste pour me divertir
Next
[F1].FormulaLocal = "=NBVAL(F2:F7)"
End Sub