Actualité informatique
Test comparatif matériel informatique
Jeux vidéo
Astuces informatique
Vidéo
Télécharger
Services en ligne
Forum informatique
01Business

|-  LOGICIELS


|||-  

Excel: comptage par groupes (sans ordre)

 

1 utilisateur anonyme
Ajouter une réponse
 

 
Page photos
 
     
Vider la liste des messages à citer
 
 Page :
1
Auteur
 Sujet :

Excel: comptage par groupes (sans ordre)

Prévenir les modérateurs en cas d'abus 
JJ82
jj82
Sur la bonne voie (de 100 à 499 messages postés)
  1. Posté le 07/08/2008 à 18:53:25  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonsoir au Forum,
 Je voudrais compter des groupes de nombres identiques :
 les nombres sont dans la plage A1:F5000 par ex
 ex:
 1 0 3 6 9 12
 4 6 0 0 2 1
 3 1 0 9 6 12
 etc...
 je voudrais connaître le nombre de groupes différents(sans tenir compte des nombres permutés).

 Le problème est que les nombres sont mélangés (ex ligne 1 et 3 ) mais comptent pour un même groupe, on aurait donc en G1:L1:

 1 0 3 6 9 12 (avec toutes les permutations possibles de ces 6 nombres dans la plage)= 2 fois (en M1)(pour ce petit ex)

 4 6 0 0 2 1 = 1 fois (en M2)
 etc...

 merci à vous et bonne soirée


willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 07/08/2008 à 21:47:01  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
bonjour
 je réserve la 1ère ligne pour les titres, donc tu mets des données à partir de la 2è ligne (6 données ordonnéés ou pas)
 astuce: je trie les N° puis fais la somme des N° et  je compte les groupes


 voici une macro (provisoire à tester) à copier
 tape F11 et ajoute un module et copie ces lignes


 Sub Macro1()
 'pour trier  6 n° et cherche le nombre groupes
 Application.ScreenUpdating = False
 Sheets("Tirages" ).Select
 L = 2 ' ligne de départ
 Do While Cells(L, 1) <> ""
 L = L + 1
 Loop

 Cells(1, 7) = "SOMME"
 Cells(1, 8) = "Fréquences"

 For i = 2 To L - 1

 Range(Cells(i, 1), Cells(i, 6)).Select
 k = "A" & i & ""

 Selection.Sort Key1:=Range(k), Order1:=xlAscending, Header:=xlGuess, _

OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _

DataOption1:=xlSortNormal

 Cells(i, 7).Select
 ActiveCell.FormulaR1C1 = "=SUM(RC[-6]:RC[-1])"
 Next

 Range(Cells(2, 8), Cells(L - 1, 8)).Select
 zona = "=FREQUENCY(RC[-1]:R[" & L - 3 & "]C[-1],RC[-1]:R[" & L - 3 & "]C[-1])"
 Selection.FormulaArray = zona

  Cells(L, 8).Select
  zonb = "=COUNTIF(R[-" & L - 2 & "]C:R[-1]C,"">0"&#​034; )"
  ActiveCell.FormulaR1C1 = zonb

  Cells(L, 9) = "Groupes"
 End Sub


 ensuite ferme la fenetre des macros, et Nomme la feuille Tirages en cliquant 2 fois fois sur l'onglet de ta feuille contenant les données.
 Puis fais un essai en lançant la macro (crée toi un bouton qui la lance)
 :salut:


---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
(Publicité)
jj82
Sur la bonne voie (de 100 à 499 messages postés)
  1. Posté le 08/08/2008 à 06:33:24  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour Willy et merci pour ta macro.
 Je teste ce we
 Bonne journée

willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 08/08/2008 à 08:37:26  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
rebonjour,
 j'ai corrigé mon programme qui ne testait que sur la somme des nombres.
 on peut avoir des données qui ont la même somme, donc erreur de ma part!

 j'ai pris une autre référence qui marche bien (l'image des 6 données accolées)

 Sub Macro1()
 'pour trier  6 n° et cherche le nombre groupes
 Application.ScreenUpdating = False
 Sheets("Tirages" ).Select

L = 2 ' ligne de départ

Do While Cells(L, 1) <> ""

L = L + 1

Loop

 Cells(1, 7) = "Référence"
 Cells(1, 8) = "Fréquences"

 For i = 2 To L - 1

Range(Cells(i, 1), Cells(i, 6)).Select

k = "A" & i & ""

Selection.Sort Key1:=Range(k), Order1:=xlAscending, Header:=xlGuess, _

OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _

DataOption1:=xlSortNormal

Cells(i, 7).Select

ActiveCell.FormulaR1C1 = "=value(FIXED(RC[-6],0)&FIXED(RC[-5],0)&​;FIXED(RC[-4],0)&FIXED(RC[​-3],0)&FIXED(RC[-2],0)&​;FIXED(RC[-1],0))"

Selection.Font.Bold = True

Selection.Font.ColorIndex = 5

Selection.Interior.ColorIndex = 34

Selection.NumberFormat = "0"

Columns("G:G" ).EntireColumn.Au​toFit

Next

Range(Cells(2, 8), Cells(L - 1, 8)).Select

zona = "=FREQUENCY(RC[-1]:R[" & L - 3 & "]C[-1],RC[-1]:R[" & L - 3 & "]C[-1])"

Selection.FormulaArray = zona

Selection.Font.Bold = True

Selection.HorizontalAlignment = xlCenter

Selection.Font.ColorIndex = 3

Cells(L, 8).Select

Selection.Interior.ColorIndex = 34

Selection.Font.ColorIndex = 3

Selection.Font.Bold = True

Selection.HorizontalAlignment = xlCenter

zonb = "=COUNTIF(R[-" & L - 2 & "]C:R[-1]C,"">0"&#​034; )"

ActiveCell.FormulaR1C1 = zonb

Cells(L, 9) = "Groupes"
 End Sub


 si cela fonctionne mets [Résolu] :salut:


---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
jj82
Sur la bonne voie (de 100 à 499 messages postés)
  1. Posté le 09/08/2008 à 07:04:35  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour,
 J'ai testé et la macro fonctionne super!
 donc résolu
 Bon samedi et merci

(Publicité)
willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 09/08/2008 à 10:17:15  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour,
 suis ravi que cela te convienne, mets [Résolu] dans le titre de ta 1ère demande.
 étant curieux et matheux....,que fais tu avec ces groupes? une Théorie?


---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
 Page :
1

Aller à :
 

Sujets relatifs
Création d'une suite -sur une formule- avec Excel Mot de passe macro excel
Extraire certains valeurs d'un tableau excel mise en forme conditionnelle excel 2007
mise en forme conditionnelle excel 2007 Récupérer les données d'un formulaire Excel
Supprimer un mot de passe EXCEL 2007 Résolu importation de fichier dans word et Excel
Excel 2007 [Résolu] Macro commande Excel 2007
Plus de sujets relatifs à : Excel: comptage par groupes (sans ordre)

Les 5 sujets de discussion précédents Nombre de réponses Dernier message
Ouverture de formulaire access 2007 avec un bouton 1
Gros probleme avec Excel d'Office 2007 7
lire mails increditmail à partir d'un autre ordinateur 1
Regrouper 160 fichiers word en un seul, comment faire ? 1
logiciel pour budget 2