Comptage de termes dans une feuille

[old_sn4ke]

Bonsoir à tous

Dans le cadre d'un job étudiant qui consiste à faire l'inventaire de panneaux servant à fabriquer des chambres froides, j'ai l'occasion d'utiliser Excel pour repérer lesdits panneaux sur le site de stockage et en donnant les détails.
Pour faire simple le tableur représente la disposition sur le site, et dans chaque cellule on met la description d'un groupe de panneaux sous la forme:

100 3 WW 15
>100 = épaisseur en mm
>3 = longueur en m
>WW = couleurs des deux faces (white/white)
>15 = nombre de panneaux dans le groupe

Indépendamment de toutes ces précisions sur le système, je cherche à savoir s'il existe sur Excel un moyen de requérir une ou plusieurs informations contenues dans les cellules ?
Par exemple "combien y-a-t'il de panneaux de 3m d'épaisseur 100mm ?"

J'ai posé la question autour de moi et on m'a parlé des tableaux croisés mais apparemment ces derniers nécessiteraient que les cellules ne contiennent qu'une seule information.

Des idées ?

Merci d'avance !

 

[DoubleZero]

Re : Comptage de termes dans une feuille

Bonsoir old_sn4ke, le forum,

Un tableau croisé dynamique pourrait-il convenir ?

 

[DoubleZero]

Re : Comptage de termes dans une feuille

Mille excuses, old_sn4ke,

Le fichier joint tentait de répondre à une autre intervention ! Toutefois, le principe du tableau croisé dynamique pourrait répondre à votre besoin...

 

[Softmama]

Re : Comptage de termes dans une feuille

Bonsoir,

Je te propose cette solution :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'mettre en A1 le critère qui doit être compté
'par exemple; mettre en A1 WW, comptera le nbre de panneaux Blanc/Blanc
nbc = 0
crit = Range("A1").Value
For Each c In Range("B2:C1000").SpecialCells(xlCellTypeConstants, 23) ' adapter la bonne plage
    If " " & c & " " Like "* " & crit & " *" Then nbc = nbc + 1
Next
'Le résultat est placé en A2
Range("A2") = nbc
End Sub

 

[Softmama]

Re : Comptage de termes dans une feuille

Re, une variante qui nécessite de préciser dans quelle partie de la chaîne chercher :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'mettre en A1 le critère qui doit être compté
'mettre en A2 quelle partie doit être étudiée (1=épaisseur, 2=longueur, 3=couleur, 4=Nbre panneaux)
nbc = 0
crit = Range("A1").Value
n = Range("A2").Value
For Each c In Range("B1:C1000").SpecialCells(xlCellTypeConstants, 23) ' adapter la bonne plage
    tableau = Split(c, " ")
    If tableau(n - 1) = crit Then nbc = nbc + 1
Next
'Le résultat est placé en A3
Range("A3") = nbc
End Sub

 

[haonv]

Re : Comptage de termes dans une feuille

Bonsoir à tous ,

Une solution par formules matricielles.
Certainement moins rapide qu'avec la macro de Softmama,mais comme je l'avais fait...

Edit: Désolé pour le fichier xlsx ;voici un fichier xls
Amicalement

 

[old_sn4ke]

Re : Comptage de termes dans une feuille

Merci beaucoup à tous les deux ! C'est exactement ce qu'il me fallait ^^ Je vais comparer un peu les deux méthodes dans la pratique !

Merci à Excel Downloads, vraiment tops ce forum et ses membres