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

excfl

XLDnaute Barbatruc

• 5 Décembre 2020

• #2

Bonjour le forum,

Par formule matricielle :

VB:

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

 

Dernière édition: 5 Décembre 2020

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Décembre 2020

• #3

Bonjour le fil

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

 

Vote positif 0 Vote négatif

P

PhilChx

XLDnaute Nouveau

• 5 Décembre 2020

• #4

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Décembre 2020

• #5

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)

VB:

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)

 

Vote positif 0 Vote négatif

P

PhilChx

XLDnaute Nouveau

• 6 Décembre 2020

• #6

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Décembre 2020

• #7

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.

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 6 Décembre 2020

• #8

Bonjour et Bienvenu sur XLD,
Salut @ tous,

Sous Excel pour Microsoft 365,

En F2 :

VB:

=TRIER(UNIQUE(D2:D7))

En G2 :

Code:

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

Cordialement

 

Vote positif 0 Vote négatif

Solution

Staple1600

XLDnaute Barbatruc

• 6 Décembre 2020

• #9

Bonjour R@chid

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

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 6 Décembre 2020

• #10

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

 

Vote positif 0 Vote négatif

P

PhilChx

XLDnaute Nouveau

• 6 Décembre 2020

• #11

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

 

Pièces jointes

• 1607269548378.png

  275.1 KB · Affichages: 20

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Décembre 2020

• #12

Bonjour

Remplace Formula2 par FormulaLocal

 

Vote positif 0 Vote négatif

P

PhilChx

XLDnaute Nouveau

• 6 Décembre 2020

• #13

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Décembre 2020

• #14

Re


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

VB:

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

 

Vote positif 0 Vote négatif