Discussion :

[SalesTradingStruct]

Lorsque je lance maintenant mon inputbox marche bien avec des nombres à décimales mais il bloque lorsque je souhaite calculer mon MAX de cette façon:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Sub M_Case()
 
Dim i As Integer
Dim j As Integer
 
Worksheets("Feuil3").Activate
 
 
i = 2
While i < 24
j = 2
While j < 24
Tab_Bord(i - 1, j - 1) = Cells(i, j).Value
j = j + 1
Wend
i = i + 1
Wend
 
 
i = 3
 
While i < 23
j = 3
While j < 23
Tab_Max(i - 2, j - 2) = WorksheetFunction.Max(Cells(i - 1, j - 1).Value, Cells(i - 1, j).Value _
, Cells(i - 1, j + 1).Value, Cells(i, j - 1).Value, Cells(i, j).Value, Cells(i, j + 1).Value, Cells(i + 1, j - 1).Value, Cells(i + 1, j).Value, Cells(i + 1, j + 1).Value)
j = j + 1
Wend
i = i + 1
Wend
 
i = 3
While i < 23
j = 3
While j < 23
Sheets("Feuil3").Cells(i, j).Value = Tab_Max(i - 2, j - 2)
j = j + 1
Wend
i = i + 1
Wend
End sub

Pourquoi cela ne fonctionne pas ?
Cordialement.

[unparia]

Bonjour
Je lis "Problème InputBox avec fonction MAX" et ne vois nulle part dans ton code où est cette inputbox ni dans quelle variable tu as stocké la valeur qui y a été saisie !.

Et on ne voit pas non plus où et comment tu as déclaré et dimensionné les deux matrices utilisées (tab_max et tab_bord)

[SalesTradingStruct]

Pardon, voici mon inputbox:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
50
51
52
53
54
55
56
57
Public T As Integer
Public D As Double
Public C As Integer
 
 
Sub Trahison()
T = Application.InputBox("Quelle prime souhaitez vous donner à la stratégie T ?", Type:=1)
D = InputBox("Combien de défectueux (le nombre de coopératif en sera déduit) ?", "Individus défectueux")
End Sub
 
C'est dans ma grande matrice que je stock la valeur qui a été saisie:
 
Sub Sim_Matrix()
 
    [Input_User].Trahison
    Worksheets("Feuil3").Activate
 
 
    Dim i As Integer
    Dim j As Integer
    Dim Sim_Globale(20, 20) As Double
    Dim ligne_plage As Integer
    Dim colonne_plage As Integer
    Dim Nombre_cases As Integer
    Dim NbreAlea As Integer
    Randomize
    Dim V As Integer
 
    Nombre_cases = 20 * 20
    ligne_plage = 20
    colonne_plage = 20
    C = Nombre_cases - D
    i = 3        'On initialise à 3 pour pouvoir se décaler et laisser de la place pour les cellules cachées'
 
    While i < ligne_plage + 3
        j = 3
 
        While j < colonne_plage + 3
            V = Int(((C + D) * Rnd) + x)
 
            If V >= D Then
                C = C - 1
                Cells(i, j).Interior.ColorIndex = 34
                Cells(i, j) = 0
            Else
                Cells(i, j) = 0
                D = D - 1
                Cells(i, j).Interior.ColorIndex = 9
            End If
 
            j = j + 1
        Wend
 
        i = i + 1
    Wend
 
End Sub

[Marc-L]

‼‼

Les règles du forum ont-elles au moins été lues ?!
Car il y a même une démonstration visuelle pour les moins doués en utilisant l'icône # !

[SalesTradingStruct]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Sub Sim_Matrix()
 
    [Input_User].Trahison
    Worksheets("Feuil3").Activate
 
 
    Dim i As Integer
    Dim j As Integer
    Dim Sim_Globale(20, 20) As Double
    Dim ligne_plage As Integer
    Dim colonne_plage As Integer
    Dim Nombre_cases As Integer
    Dim NbreAlea As Integer
    Randomize
    Dim V As Integer
 
    Nombre_cases = 20 * 20
    ligne_plage = 20
    colonne_plage = 20
    C = Nombre_cases - D
    i = 3        'On initialise à 3 pour pouvoir se décaler et laisser de la place pour les cellules cachées'
 
    While i < ligne_plage + 3
        j = 3
 
        While j < colonne_plage + 3
            V = Int(((C + D) * Rnd) + x)
 
            If V >= D Then
                C = C - 1
                Cells(i, j).Interior.ColorIndex = 34
                Cells(i, j) = 0
            Else
                Cells(i, j) = 0
                D = D - 1
                Cells(i, j).Interior.ColorIndex = 9
            End If
 
            j = j + 1
        Wend
 
        i = i + 1
    Wend
 
 
 
End Sub

[unparia]

As-tu lu le message de Marc_L ?
Lis-le. Saisis cette occasion pour lire également les règles de ce forum
Corrige ton message (balises code) et expose (tenants et aboutissants) ce qui ne "va pas".
C'est un minimum.