Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
Pour ce qui concerne le tableau croisé dynamique, je ne me hasarderai pas à fournir un mode d'emploi. Une recherche permettra de trouver des Ce lien n'existe plus sérieuses.
Bonjour,
Je me permets de revenir sur le sujet en cours car est'il possible aussi de faire apparaitre tous les produits (aussi bien en unité qu'en double) avec le nombre.
merci d'avance
DST
Merci Monique,
mais avec cette formule le fichier est trop lourd et met un temps infini (plusieurs dizaine de minutes) à enregistrer.
Est'il possible d'adapter la solution de Jean-Pierre en transférant les données sur un autre onglet et de les classer par ordre alphabétique (nom et chiffre -> de plus grands au plus petits).
Merci d'avance de toute votre aide.
DST
Sub CompteItems()
Set d = CreateObject("Scripting.Dictionary")
Set champ = Range("B6", [B65000].End(xlUp))
For Each c In champ
d(Trim(c.Value)) = d(Trim(c.Value)) + 1
Next c
Set f = Sheets(2)
f.[A2].Resize(d.Count, 1) = Application.Transpose(d.keys)
f.[B2].Resize(d.Count, 1) = Application.Transpose(d.items)
f.[A2].CurrentRegion.Sort Key1:=f.[B2], Order1:=xlDescending, Key2:=f.[A2], Order2:=xlAscending, Header:=xlGuess
End Sub
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD