probleme exel

K

krimosys

Guest

• 2 Août 2011

• #16

Ha ok j'avais pas vu!

Peux tu me dire ou je doit écrire le code?

 

Vote positif 0 Vote négatif

K

krimosys

Guest

• 2 Août 2011

• #17

Peux tu me dire ou je dois écrire ton code?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 3 Août 2011

• #18

Re : probleme exel

Re


Mon code ne sert qu'à créer les chiffres.

Tu fais ALT+F11 puis Insertion/Module
là tu colles le code VBA
puis tu éxécutes la macro.

 

Vote positif 0 Vote négatif

K

krimosys

Guest

• 3 Août 2011

• #19

Pour compliquer les chose je suis sur Mac donc pas de F11

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 3 Août 2011

• #20

Re : probleme exel

Re

Désolé mais là je vais au dodo.

Un autre prendra la suite
Une autre suivra
(et vice versa)

Bonne nuit.

 

Vote positif 0 Vote négatif

K

krimosys

Guest

• 3 Août 2011

• #21

Un grand merci à toi!

Bonne nuit

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 3 Août 2011

• #22

Re : probleme exel

Bonsoir, krimosys.

Un début de solution à tes problèmes en pièce jointe.
🙂

 

Pièces jointes

• Krimosys.xls

  41.5 KB · Affichages: 52
• Krimosys.xls

  41.5 KB · Affichages: 52
• Krimosys.xls

  41.5 KB · Affichages: 51

Vote positif 0 Vote négatif

K

krimosys

Guest

• 3 Août 2011

• #23

Bonsoir victor,

Merci pour ton aide mais je ne vois pas comment je doit m'en servir.

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 3 Août 2011

• #24

Re : probleme exel

Bonsoir, krimosys.

je ne vois pas comment je doit m'en servir

Cliquez pour agrandir...

Oublie, c'était une plaisanterie : en cliquant sur le bouton, après avoir activé les macros, le code corrige les fautes, et inscrit une liste de nombres de 1 à 80, et une autre de 1 à 15.

Pour redevenir sérieux,
Il existe 11 050 084 695 manières de combiner 95 chiffres 7 à 7.

=combin(95;7)

Cliquez pour agrandir...

(A titre de comparaison, il y a 16 777 216 cellules* dans une feuille Excel 2003, ce qui veut dire que toutes les combinaisons possibles tiendraient dans 660 feuilles Excel pleines !!!)

Il existe encore 1 581 580 manières de combiner 80 chiffres 4 à 4
Et encore 455 manières de combiner 15 chiffres 3 à 3.

En formule, je ne crois pas qu'Excel puisse te donner ce que tu souhaites.
Et en VBA, je crains que le temps de calcul ne soit rédhibitoire, et que l'affichage des opérations effectuées ne soit indigeste.

Si tu nous disais quel est le but d'un tel calcul ?


* J'espère ne pas m'être trompé, je les ai re-comptées 2 fois 😛

 

Vote positif 0 Vote négatif

K

krimosys

Guest

• 4 Août 2011

• #25

Bonjour

Victor je te mets donc dans la catégorie plaisantin 😉
Sinon je ne cherche pas le nombre de combinaison possible pour 80 ou 15 chiffres.
Mais bien de trouver le nombre de combinaison possible dans ces 2 plages (1:80) et (1:15) en additionnant 4 chiffres dans la (1:80) et 3 chiffres dans la (1:15) en sachant que l'addition des deux résultats doivent être égal à un chiffre donné par avance.

Exemple: 180 = (77+42+15+9) + (12+14+11)

Encore merci pour votre aide et j'espères que l'énoncé est plus claire comme ça.

A oui j'allai oublier, c'est pour un jeux que l'on essaie de faire avec mon neveu😉

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Août 2011

• #26

Re : probleme exel

Bonsoir


krimosys
Il est d'usage de signaler lorsqu'on poste une question sur plusieurs forums.
(cf crossposting)

Merci d'avance.

 

Vote positif 0 Vote négatif

K

krimosys

Guest

• 5 Août 2011

• #27

Bonsoir

Désolé de ne pas l'avoir signalé mais désespéré de ne pas trouvé de solution je viens de posté à droite et à gauche ce même
message afin de trouver de l'aide.

Merci à vous

PS: si jamais la solution est trouvé ailleurs je viendrai quand même la poster ici 😉

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Août 2011

• #28

Re : probleme exel

Re

A oui j'allai oublier, c'est pour un jeux que l'on essaie de faire avec mon neveu😉

Cliquez pour agrandir...

Le jeu et le désespoir ca ne va vraiment ensemble non ?

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 5 Août 2011

• #29

Re : probleme exel

Bonsoir, krimosys.

Un début de solution, largement perfectible 😱 en pj.
Je te demande toute ton indulgence, je ne suis pas un spécialiste du VBA, et encore moins des boucles...
J'ai volontairement limité le nombre de solutions à 100, sinon dépassement de capacité !!! 😕
Si tu ne veux pas cliquer 100 fois sur OK, Ctrl+Pause arrêtera le décompte.
Le code :

VB:

Option Explicit
Sub test()
    Dim i As Byte
    Dim j As Byte
    Dim k As Byte
    Dim l As Byte
    Dim m As Byte
    Dim n As Byte
    Dim o As Byte
    Dim som As Integer
    Dim cpt
    Dim cpt1

    cpt = 0
    cpt1 = 0

    For i = 1 To 79
        For j = 2 To 78
            For k = 3 To 77
                For l = 4 To 76
                    
                    For m = 1 To 15
                        For n = 2 To 14
                            For o = 3 To 13

                                som = i + j + k + l + m + n + o
                                If som = 180 And i <> j And i <> k And i <> l _
                                    And j <> k And j <> l And k <> l And m <> n And _
                                    m <> o And n <> o Then
                                    cpt = cpt + 1
                                    MsgBox i & "+" & j & "+" & k _
                                        & "+" & l & " + ( " & m & "+" & n & "+" & o _
                                        & " )" & " = " & som
                                cpt = cpt + 1
                                End If

                                
                                If cpt = 100 Then Exit Sub    'Then cpt1 = cpt1 + 1 : MsgBox cpt

                            Next o
                        Next n
                    Next m
                    
                Next l
            Next k
        Next j
    Next i

    'MsgBox cpt1

End Sub

 

Pièces jointes

• Krimosys.xls

  39 KB · Affichages: 35
• Krimosys.xls

  39 KB · Affichages: 36
• Krimosys.xls

  39 KB · Affichages: 34

Dernière édition: 5 Août 2011

Vote positif 0 Vote négatif

K

krimosys

Guest

• 5 Août 2011

• #30

Merci Victor pour ton aide🙂
C'est parfait à un point comment puis je faire pour débrider l'engin 😉

 

Vote positif 0 Vote négatif