Code Vba pour l'optimisation de câble

zean-Missel

XLDnaute Nouveau

• 16 Février 2018

• #16

Bonjour Noel,
je joint le fichier avec plus d'explication.
Si il reste des zone d'ombre n’hésitez pas ! mais ne laissez pas tombé svp !
bonne journée, et merci

 

Pièces jointes

• Combine_Exemple1 5.xlsm

  35.9 KB · Affichages: 42

Vote positif 0 Vote négatif

N

Noel Bedard

XLDnaute Occasionnel

• 17 Février 2018

• #17

Bonjour zean-Missel et le Forum,

Voici:
Je crois bien me rapprocher de vos attentes.
J'ai sortie une liste de 325 paires. combin(26;2) A à Z regroupées en paires.
Avec une sélection de 8 j'ai 28 paires. (8*7)/ 2
Donc dans ma liste de 325 paires je fais une sélection aléatoire du maximum de séries de 28 paires.
Après quoi, je fait un tri de chaque série trouvée et je garde la première lettre des 6 premières paires et les deux lettres de ma dernière qui me donne 8 lettres et cela pour chacune des 11 séries.

Bonne journée
Noël

 

Pièces jointes

• Combine_Exemple1 7.xlsm

  61.1 KB · Affichages: 43

Vote positif 0 Vote négatif

zean-Missel

XLDnaute Nouveau

• 17 Février 2018

• #18

Bonjour Noël et le forum,
Whaou .
Du beau boulot ! merci.
2 questions si vous permettez.
Toutes les paires sont utilisées ?
Comment revenir à la première page ?

Bonne journée
A+

 

Vote positif 0 Vote négatif

zean-Missel

XLDnaute Nouveau

• 17 Février 2018

• #19

Rebonjour Noël,
Comment revenir à la première page ? dsl pardon j'avais pas vu les feuilles en bas dsl.
Çà a l'air de répondre à mes attentes.
J'ai fait des essais en changeant les paramètres dans les choix une fois j'ai eu une ligne avec deux lettres B.
Pour essayer d'affiné le programme et le rendre parfaitement utilisable :
J'aurais besoins de mettre des numéros avec les lettres (ex : A,1,2, G, 26,B, H, etc..) pour un max de 100 éléments (même si je sais que je n'irais jamais au max)
Est ce possible ?
J'aurais besoin aussi de retrouver où ce trouve mes paires en rentrant dans une zone dédié une serie de x lettres et numéros allant de 1 au maximum de la selection (dans notre cas d'école 26).
Est faisable sans trop abusé ?
Peut on modifier la séquence ?

Et enfin il faudrait avec le restant pouvoir les assembler pour faire 1 ou 2 ou 3 (selon le cas) lignes supplémentaires .

En tout cas merci et BRAVO.

A+

 

Vote positif 0 Vote négatif

N

Noel Bedard

XLDnaute Occasionnel

• 18 Février 2018

• #20

Bonsoir à tous,

Voilà j'ai corrigé de petits problèmes.

Bye
Noël

 

Pièces jointes

• Combine_Exemple1 7.xlsm

  77.8 KB · Affichages: 46

Vote positif 0 Vote négatif

zean-Missel

XLDnaute Nouveau

• 20 Février 2018

• #21

Bonjour à tous et à toutes ,
Bonjour Noël,

ça bug a : .VBProject.VBComponents(.Worksheets("Résultats").CodeName).Name = "Feuil3"
Je ne suis pas arrivé à le lancer.
J''ai néanmoins regardé les modifs.
Si on mettait que des chiffres sans les lettres de 1 jusqu’à 100 maxi ce serais plus facile à gérer pour moi en les transposant en code couleur, c'est possible pour vous ?
J'ai pas vu la zone ou je peut repérer mes pairs ?
J'aurais besoin de retrouver où ce trouve mes paires (après les avoir mélanger) en rentrant dans une zone dédié une séries de numéros allant de 1 au maximum de la selection.(comme ça je sais faire une recherche pour les située sur les cartes )
Est faisable sans trop abusé ?
Et enfin il faudrait avec le restant pouvoir les assembler pour faire 1 ligne supplémentaire.
Bye
Merci

 

Vote positif 0 Vote négatif

N

Noel Bedard

XLDnaute Occasionnel

• 20 Février 2018

• #22

Bonjour zean-Missel et le Forum,

Voilà, j'ai apporté quelques modifications.

Pour la question des chiffres de 1 à 100, il faudra trouver un autre volontaire, je ne suis pas assez qualifié pour cela, présentement la routine fait des paires, caractère par caractère tandis qu'avec des chiffres il me faudrait trouver une routine que travaille avec 2 caractères à la fois 01,02,03,88,99.

Je n'ai rien fais dans cette feuille, j'ai uniquement copié des bouts de routines pour arriver à ce résultat.

Je crois que j'ai fait le tour.

Bonne journée
Noël

 

Pièces jointes

• Combine_Exemple1 8.xlsm

  90.7 KB · Affichages: 28

Vote positif 0 Vote négatif

zean-Missel

XLDnaute Nouveau

• 21 Février 2018

• #23

Bonjour à tous et à toutes,
Bonjour Noël,
En tout les cas je vous remercie pour votre aide.
Je vais tester ces "bouts de routines" et reviendrait surement vers vous ,Noël, si il y a des questions.
Si vous êtes d'accord bien sur.
Bonne journée.
Merci encore.

 

Vote positif 0 Vote négatif

zean-Missel

XLDnaute Nouveau

• 21 Février 2018

• #24

Bonjour Noël,
J ai trouvé pour générer avec des chiffres de 1 à 100, peut être que ça vous intéresse et que l'on peu l’appliquer a votre code ?
Voir feuille ci jointe

 

Pièces jointes

• essais de moi.xlsm

  17.2 KB · Affichages: 23

Vote positif 0 Vote négatif

N

Noel Bedard

XLDnaute Occasionnel

• 21 Février 2018

• #25

Bonjour zean-Missel et le Forum,

Avec un tel code vous n'avez absolument pas besoin de moi, ça dépasse largement mes connaissances.

Il est certain que ça ferait l'affaire, juste a convertir une cellule dans laquelle les lettres seraient séparer d'une virgule. Au lieu de prendre une colonne par lettre.

Bonne journée
Noël

 

Vote positif 0 Vote négatif

zean-Missel

XLDnaute Nouveau

• 21 Février 2018

• #26

Bonjour Noël,
Je l'ai récupérer ce code et non pas créé.
Je suis un nul en vba .
Vous ne pourriez pas le faire svp ?
Bonne Journée

 

Vote positif 0 Vote négatif

N

Noel Bedard

XLDnaute Occasionnel

• 21 Février 2018

• #27

Bonsoir zean-Missel et le Forum,

J'ai triché un peu, j'ai gardé ma feuille et fais une conversion à la fin de la routine.
Attention vous entrez caractères,caractères,caractères,caractères et le programme fera le reste.

Bye
Noël

 

Pièces jointes

• Combine_Exemple1 9.xlsm

  98.1 KB · Affichages: 29

Vote positif 0 Vote négatif

zean-Missel

XLDnaute Nouveau

• 22 Février 2018

• #28

Bonjour Noël,
Je vous remercie pour tout vos effort et patience.
Je suis assez content du resultat même si j'aimais bien la version d'avant avec les 3 feuilles.
Je vais avancer dans mon étude.
Puis je reviendrai surement dans le forun, si vous le souhaitez (histoire de suivre votre bb) je vous tiendrai informé.
bye.
Jean-Mi

 

Vote positif 0 Vote négatif

zean-Missel

XLDnaute Nouveau

• 22 Février 2018

• #29

Re-bonjour Noël, et le forum

Bon ben ça marche pas
Je ne peut pas aller au dela de 26 et ça bug.

 

Vote positif 0 Vote négatif

N

Noel Bedard

XLDnaute Occasionnel

• 22 Février 2018

• #30

Bonjour le Forum,

Oui je l'ai limité à 26 de A -----Z, sinon je dois tout refaire et je n'ai pas le temps présentement.
Au début nous parlions de lettres et à la fin vous êtes arrivé avec des chiffres......

J'ai fait les 3 pages.

 

Pièces jointes

• Combine_Exemple1 9.xlsm

  94.4 KB · Affichages: 24

Vote positif 0 Vote négatif