Modification d'une macro

pierrejean

XLDnaute Barbatruc

• 26 Octobre 2009

• #2

Re : Modification d'une macro

bonjour claude09

en attendant mon ami Job75

une reponse a ta 1ere question

 

Pièces jointes

• DoublonCombinaison(1).zip

  16 KB · Affichages: 25
• DoublonCombinaison(1).zip

  16 KB · Affichages: 28
• DoublonCombinaison(1).zip

  16 KB · Affichages: 27

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 26 Octobre 2009

• #3

Re : Modification d'une macro

Re

Pour la 2eme question voir feuil2

Edit: nous n'avons pas compris la même chose Jean-Marcel et moi a propos de la 1ere question

je prepare une version donnant la liste des combinaisons du 1er tableau (toujours avec additif a la macro de Job)

 

Pièces jointes

• DoublonCombinaison(1).zip

  17.9 KB · Affichages: 29
• DoublonCombinaison(1).zip

  17.9 KB · Affichages: 28
• DoublonCombinaison(1).zip

  17.9 KB · Affichages: 24

Dernière édition: 26 Octobre 2009

Vote positif 0 Vote négatif

C

claude09

XLDnaute Occasionnel

• 26 Octobre 2009

• #4

Re : Modification d'une macro

Merci à Pierre jean et Jean Marcel.Je me suis peut etre mal expliqué.
Concernant la 1° question,serait il possible d'afficher dans une colonne les combinaisons en rose sans doublons?Les autres ne m'interesse pas.
Pour ce qui est de la 2° question,reprendre la macro initiale qui colore les permutations 3à3 pour qu'elle colore les permutations 4à4.
Merci

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 26 Octobre 2009

• #5

Re : Modification d'une macro

Re

J'avais donc bien compris pour la 1ere question
Pour la seconde par contre je ne comprends pas
un doublon je crois savoir cque c'est : un terme exitant deja (donc 2 3 ou plus
d'exemplaires)
un doublon 3 a 3 ?
un doublon 4 a 4 ?

 

Vote positif 0 Vote négatif

Gael

XLDnaute Barbatruc

• 26 Octobre 2009

• #6

Re : Modification d'une macro

Bonjour Claude09, Jean-Marcel et salut PierreJean,

Pas sûr d'avoir bien compris. En modifiant les formules pour afficher les combinaisons de 4 éléments, la macro reste telle quelle.

@+

Gael

 

Pièces jointes

• DoublonCombinaison_V2.xls

  58.5 KB · Affichages: 67

Vote positif 0 Vote négatif

C

claude09

XLDnaute Occasionnel

• 26 Octobre 2009

• #7

Re : Modification d'une macro

Pour ce qui est de la 1° question le tableau est dédoublonné,ce qui débroussaille pas mal.Ce qui serait plus interessant c'est de dédoublonner que les cellules en rose.(6 25 32 se répétent 4 fois).Les cellules en blanc faudrait les supprimer,ne garder que les cellules roses et enlever les doublons.(manuellement c'est possible,mais si on peut automatiser....)
Pour la 2° question,la macro initiale calcule les permutations de 3 nombres pris 3à3(6,25,32;6,32,25;25,32,6;etc) et colore les doublons.Il faudrait la modifier pour qu'elle colore les permutations de 4 nombres pris 4à4(6,25,32,51;6,25,51,32;51,32,25,6 etc).Le plus simple serait de vous envoyer un autre fichier.Merci de votre patience......

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 26 Octobre 2009

• #8

Re : Modification d'une macro

Re

Salut Gael 🙂

En fonction de ce que j'ai pu comprendre

 

Pièces jointes

• DoublonCombinaison(1).zip

  16.5 KB · Affichages: 25
• DoublonCombinaison(1).zip

  16.5 KB · Affichages: 24
• DoublonCombinaison(1).zip

  16.5 KB · Affichages: 23
• DoublonCombinaison_V2.zip

  13.7 KB · Affichages: 29

Vote positif 0 Vote négatif

C

claude09

XLDnaute Occasionnel

• 26 Octobre 2009

• #9

Re : Modification d'une macro

Merci à vous tous pour vos réponses,je vais trouver mon bonheur en bidoullant un peu.Je vous souhaite une bonne aprés midi.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 26 Octobre 2009

• #10

Re : Modification d'une macro

Re

Apres etude de la macro initiale de Job j'en conclus ceci
Les combinaisons restantes qui paraissent ne pas avoir de doublons ( exemple 26 31 2 en H9 ont bien leur double mais sous la forme d'une permutation differente c-a-d
2 26 31 en G6)
ceci resulte du coloriage selon

Code:

  txt = Application.Trim(cel) 'sécurité
  t = Array(CInt(Split(txt, " ")(0)), CInt(Split(txt, " ")(1)), CInt(Split(txt, " ")(2)))
  txt = Application.Min(t) & " " & Application.Small(t, 2) & " " & Application.Max(t)

qui si j'ai bien compris met en ordre la combinaison
Selon toute vraisemblance job et claude etaient d'accord sur ce point et pour ma part j'ai respecté ce point de vue et n'ais fait qu'oter les roses en doublon dans les roses ainsi que les non-roses

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 26 Octobre 2009

• #11

Re : Modification d'une macro

Re

Application.Small(plage,nb) correspond a la fonction

PETITE.VALEUR(MATRICE,K) ou Matrice est la plage de recherche et K le numero dans l'ordre des valeurs classées par orde croissant

le resultat de Application.Small(t, 2) est la valeur qui suit la plus petite valeur de t dans l'ordre croissant

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Octobre 2009

• #12

Re : Modification d'une macro

Bonsoir à tous


Jean-MArcel; pas d'accord avec toi 😉

 

Vote positif 0 Vote négatif

C

claude09

XLDnaute Occasionnel

• 26 Octobre 2009

• #13

Re : Modification d'une macro

Bonsoir Petit Jean et Jean Marcel,je n'avais pas vu que vous continuez la discussion etant occupé ailleurs.Je n'arrive pas à adapter la derniére macro de Petit Jean(enlever les cases blanches et les doublons des roses) a un autre classeur.Ci joint le fichier.Merci.

 

Pièces jointes

• Classeur1 com.xls

  27.5 KB · Affichages: 53

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 27 Octobre 2009

• #14

Re : Modification d'une macro

Bonjour à tous

Je n'y comprends rien, mais comme j'ai bricolé, je livre...​

ROGER2327
#1988

 

Pièces jointes

• claude09_1 com.zip

  29.1 KB · Affichages: 17

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 27 Octobre 2009

• #15

Re : Modification d'une macro

Re

Salut ROGER 🙂 ( je regarde le bricolage )

Voila l'adaptation

 

Pièces jointes

• claude09_Classeur1 com.zip

  15.8 KB · Affichages: 22

Vote positif 0 Vote négatif