Re : Répartition de valeurs en groupes homogènes
salut a tous,
bon ben je n'arrive pas integrer la copie de la derniere ligne saisie dans mon tableau
je dois surment mal m'y prendre !
Sub Répartition()
Groupes = InputBox("Nombres de groupes ?", "Répartition 1")
IndividusParGroupes = InputBox("Nombres d'individus par groupes ?", "Répartition 2")
Application.ScreenUpdating = False
Sheets("Résultat").Cells.ClearContents
Dim DernièreColonne As Integer, Mediane As Double, I As Integer, J As Integer,
DernièreLigne As Integer
DernièreColonne = Sheets("Feuil1").Cells(3, 255).End(xlToLeft).Column
DernièreLigne = Sheets("Feuil1").Cells(65536, 1).End(xlToLeft).Column
Sheets("Feuil1").Range("A3:" & ConversionXC(DernièreColonne) & "4").Copy
Sheets("Feuil1").Range("A" & DernièreLigne & ":" & ConversionXC(DernièreColonne) & DernièreLigne).Copy
Sheets("Résultat").Cells(1, 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
Sheets("Résultat").Select
Columns("A:B").Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
en fait ne ne voit pas ou integrer le 2eme collage transposé , j'ai tout essayé mais ça na fonctionne pas . j'ai bien ajouter la variable dernière ligne puis explicité celle ci ( mais peut etre pas au bon endroit) il faut dire que j'ai encore bien du mal à "lire" le vocabulaire avec des variables
et je pense que le "4" pose un probleme (mais pas sur !)
bon bref je nage !
mais je comprends aussi que donner le code comme ça n'est pas tellement formateur. peut etre est ce encore un peu balaise pour moi c tout . mais bon je me decourage pas
babylonzoo
ci joint un fichier excel qui permet par une analyse de variance de vérifier l'homogénéité des groupe ( la valeur PR>F doit etre supérieure a 0.05 et s'approcher au max de 1 ) ça pourra peut être servir a quelqu'un pour éventuellment faire en premier lieu une répartition homogene et ensuite de la vérifier grace a test ou encore mieux intégrer les 2 dans une seule manip
a+
babylonzoo