Résultats de la recherche

  1. KenDev

    VBA liste issue d'une combinaison

    Bonjour à tous, J'ai déduit de votre post que tous les caractères sont distincts. Si ce n'est pas le cas vous aurez des doublons. Les résultats sont affichés sur une nouvelle feuille et, éventuellement, sur plusieurs colonnes. Si la sub est stoppée avant son terme, Excel sera en mode calcul...
  2. KenDev

    Comptage entre...

    Bonjour à tous, en F1: =CmbRnk(49;5;A1:E1)-1 en F2 et copier sur la colonne: =CmbRnk(49;5;A2:E2)-CmbRnk(49;5;A1:E1) Function CmbRnk(ByVal a&, ByVal b&, ByVal Rng As Range) As Variant Dim i&, j&, Tb&() Tb = RngToTab(Rng) If UBound(Tb) = 0 Then CmbRnk = CVErr(xlErrNum): Exit Function If...
  3. KenDev

    XL 2016 Rotation

    Bonsoir à tous, @job75, J'ai trouvé cette méthode FAUSSE par moi même oui, n'est pas Blaise Pascal qui veut... La méthode ne fonctionne en effet que dans les cas ou le nombre de tables est un nombre premier ce qui est le cas du 7 demandé, et par un hasard(?) amusant, également le cas des...
  4. KenDev

    XL 2016 Rotation

    Bonjour à tous, Une généralisation méthode uniquement valable pour les 'carrés' de nombres premiers (49 sur 7 tables, 9 sur 3 tables, 2209 sur 47 tables, etc. mais pas 36 sur 6 tables ou 144 sur 12 tables) Pour l'exemple demandé, lancer la sub aaa avec le paramètre 7 Cordialement KD Sub aaa()...
  5. KenDev

    XL 2016 Rotation

    Bonjour à tous, Fait à la main. Une bonne centaine de paires controlées apparaissant une et une seule fois. Cordialement KD Tour 1 1;2;3;4;5;6;7 8;9;10;11;12;13;14 15;16;17;18;19;20;21 22;23;24;25;26;27;28 29;30;31;32;33;34;35 36;37;38;39;40;41;42 43;44;45;46;47;48;49 Tour 2...
  6. KenDev

    Répartition effectifs par postes et selon qualifications sans doublons

    Re : Répartition effectifs par postes et selon qualifications sans doublons Bonjour Joker, Non il n'y a rien à modifier et la sub devrait fonctionner en rajoutant des noms (relancer la sub après les ajouts). Veuillez simplement à veiller à ce que les tableaux Qualifs restent biens entretenus...
  7. KenDev

    Combinaisons d'éléments avec maximum

    Re : Combinaisons d'éléments avec maximum Bonjour à tous, bonjour PierreJean, Tototiti, Une solution 'universelle' dans le code suivant. La sub écrit dans la feuille active. Faire varier les paramètres dans la Sub Main. a = Nombre d'éléments total Debut = Plus petit des rangs choisis...
  8. KenDev

    Répartition effectifs par postes et selon qualifications sans doublons

    Re : Répartition effectifs par postes et selon qualifications sans doublons Bonjour Joker, Bernard, Une possibilité avec le code testé ci-joint adapté au fichier fourni. Une réserve: les données fournies permettent de ne constituer que 8,6,9,8,10,9,9,8 équipes pour les 8 périodes. Si dans le...
  9. KenDev

    Tirage au sort et pourcentage

    Re : Tirage au sort et pourcentage Bonjour Roger, Bravo pour vos 8000 posts de haute qualité ! (à part le 3227ème peut-être). Cordialement KD
  10. KenDev

    Tirage au sort et pourcentage

    Re : Tirage au sort et pourcentage Bonjour à tous, Après avoir vainement chercher la syntaxe d'une fonction renvoyant un tableau sous open office je poste quand même un code excel. La fonction ne produit jamais de n° en doublons et est facilement adaptable en modifiant la 1ere ligne du...
  11. KenDev

    macro combinaison d'elements

    Re : macro combinaison d'elements Re, Correction d'une erreur dans le code du post#7: If i * Tb(1) = Cible Then Call Writing devient If Tb(1) = Cible Then Call Writing Le post #7 est corrigé. Il n'y avait pas d'incidence pour les résultats des données exemples. Cordialement KD
  12. KenDev

    macro combinaison d'elements

    Re : macro combinaison d'elements Bonour à tous, @Eric, Nb de combinaisons sans répétitions: 3&6 = 7*33 = 231 4&5 = 21*34 = 714 3&3&6&6 = 2C7*2C33 = 21*528 = 11088 3&4&5&6 = 33*34*21*7 = 164934 4&4&4&6 = 7*3C34 = 7*5984 = 41888 4&4&5&5 = 2C34*2C21 = 561*210 = 117810 3&5&5&5 =...
  13. KenDev

    macro combinaison d'elements

    Re : macro combinaison d'elements Bonsoir à tous, Une possibilité avec le code ci dessous adapté aux données telles que fournies dans le post #1. Le code calcule toutes les possibilités et ne sera donc pas adapté si le nombres de lignes est très supérieur aux 95 fournies. Ici les 427.455...
  14. KenDev

    Y-a-t-il un nombre maximal d'onglets sous Excel ?

    Re : Y-a-t-il un nombre maximal d'onglets sous Excel ? Re, D'après wikipedia le nombre maximum dépend de la mémoire disponible. Par ailleurs désolé pour la notation automatique 5 étoiles du fil ayant oublié d'accepter les scripts de yahooapis.com (par défaut je refuse tous les scripts) avant...
  15. KenDev

    Y-a-t-il un nombre maximal d'onglets sous Excel ?

    Re : Y-a-t-il un nombre maximal d'onglets sous Excel ? Bonsoir anthoYS, Pour 2007 je crois que la réponse est oui. J'avais une appli qui créait des feuilles et les supprimais massivement et j'étais tombé sur des erreurs mal définies mais résolues par fermeture/réouverture du classeur. Désolé...
  16. KenDev

    comptage

    Re : comptage Bonjour à tous, =INDIRECT("Tab!"&ADRESSE(H5+2;locatecol("BP";"Tab";2;EQUIV("Bicarbonate";Tab!$1:$1;0))))/INDIRECT("Tab!"&ADRESSE(H5+2;locatecol("Gd";"Tab";2;EQUIV("Ancien";Tab!$1:$1;0)))) Cordialement KD
  17. KenDev

    Tirages au sort multiples sans doublon sur plusieurs tours

    Re : Tirages au sort multiples sans doublon sur plusieurs tours Bonjour Titi, Une proposition dans le classeur joint pour la génération du calendrier. Cordialement KD
  18. KenDev

    aide tirage loterie

    Re : aide tirage loterie Re, Je n'avais pas été jusqu'au paragraphe suivant : Ci dessous le code des deux fonctions avec ces améliorations. Entrez le(s) n° optionnels de façon croissante. Exemples : =drumaleaeuromillion(17) =drumaleaeuromillion(3;18;47) =drumaleaeuromillion() Les 4...
  19. KenDev

    aide tirage loterie

    Re : aide tirage loterie Bonjour drum7917, camarchepas, Pierrot93, JBarbe, MJ13, Vous avez omis de mentionner dans votre devis très complet le tarif proposé... Mais comme c'est amusant ci-dessous vous trouverez un code pour répondre à cette partie : J'ai du mal à saisir ne pas être dans...
  20. KenDev

    Afficher toute les combinaisons de chiffres

    Re : Afficher toute les combinaisons de chiffres Bonsoir emmah, Une possibilité avec le code suivant : Sub test() Dim a(), b%(), i&, u&, j&, k&, r& a = Array(6, 7, 8, 9, 10, 11, 12, 13) Sheets.Add For i = 2 To 7 b = CTab(UBound(a) - LBound(a) + 1, i): u =...