Macro compter et trier cellule
Fermé
Cereal
-
20 juin 2010 à 19:28
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 - 21 juin 2010 à 19:08
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 - 21 juin 2010 à 19:08
A voir également:
- Macro compter et trier cellule
- Trier sur excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Excel cellule couleur si condition texte - Guide
- Excel compter cellule couleur sans vba - Guide
- Macro word - Guide
2 réponses
Utilisateur anonyme
Modifié par argixu le 21/06/2010 à 00:02
Modifié par argixu le 21/06/2010 à 00:02
Bonjour,
Je comprends qu'il faut calculer le nombre de codes postaux différents.
Pour ça, il y a la fonction sous.total : par Données / Sous.total en demandant le nombre dans le menu. Les données doivent être triées auparavant.
Pour associer les deux, passer par l'enregistreur de macro avec un raccourci clavier.
Pour les mises à jour, supprimer le sous.total par le menu Données/sous.total et rappeler le raccourci clavier pour avoir les totaux.
Argitxu
Je comprends qu'il faut calculer le nombre de codes postaux différents.
Pour ça, il y a la fonction sous.total : par Données / Sous.total en demandant le nombre dans le menu. Les données doivent être triées auparavant.
Pour associer les deux, passer par l'enregistreur de macro avec un raccourci clavier.
Pour les mises à jour, supprimer le sous.total par le menu Données/sous.total et rappeler le raccourci clavier pour avoir les totaux.
Argitxu
Mytå
Messages postés
2973
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
951
Modifié par Mytå le 21/06/2010 à 19:08
Modifié par Mytå le 21/06/2010 à 19:08
Salut le forum
Tes codes postaux de A2:Ax, les résutalts en C2:Dx
Le code à mettre dans un module VBA
Mytå
Versions installées [MsProject 2003(FR), Excel 2003-2007(FR)]
Tes codes postaux de A2:Ax, les résutalts en C2:Dx
Le code à mettre dans un module VBA
Sub Nbre_Uniques()
Dim MonDico
Dim C As Range
Set MonDico = CreateObject("Scripting.Dictionary")
For Each C In Range([A2], [A65000].End(xlUp))
MonDico.Item(C.Value) = MonDico.Item(C.Value) + 1
Next C
[C2].Resize(MonDico.Count, 1) = Application.Transpose(MonDico.keys)
[D2].Resize(MonDico.Count, 1) = Application.Transpose(MonDico.items)
End Sub
Mytå
Versions installées [MsProject 2003(FR), Excel 2003-2007(FR)]
21 juin 2010 à 15:01
21 juin 2010 à 18:55
D'accord, mais qu'est-ce que tu n'as pas compris ? Je te redis différemment.
Tu veux trier et calculer le nombre de codes postaux identiques.
Pour cela, ton tableau doit avoir une ligne d'entête et ne doit pas avoir de lignes vides.
=> Pour trier : d'abord, tu te positionnes sur n'importe quelle cellule de la colonne des codes postaux, sans rien sélectionner, et tu fais (avec version 2003) : Données / trier / vérifies que la bonne colonne remonte dans le 1er tri / OK
(Avec 2007, onglet Accueil / groupe édition / Trier)
=> Puis, pour compter le nombre de code postaux identiques : fais Données / sous.total (valable pour les deux versions). Dans le menu
- A chaque changement : tu pointes les codes
- Utiliser la fonction : choisis nombre
- Ajouter un sous-total : choisis code
- OK
Tu auras le nombre de codes postaux identiques.
Là peux pas faire plus clair ! :)
Essaye déjà ça.