Discussion :

[warrio67]

Bonjour à tous,

Je suis confronté à une difficulté lors de la réalisation de mon programme, tout d’abord je tiens a précisé que je suis novice en programmation et que j’ai essayé de faire avec les quelques notions que j’ai.

J’ai essayé de faire un système de boules pour obtenir des statistiques.
Au début in choisi le nombre de répétition correspondant au nombre de boules du système.


J’ai programmer mes « vannes » avec conditions select case mais ça ne fonctionne pas, il ne me fait pas la succession de conditions.

Merci a tous de votre aide.
Bonne continuation.

[Godzestla]

Bonjour,
si tu regardes l'aide VBA de Select Case, tu verras ton erreur dans les lignes case is = .

[Gorfael]

Salut warrio67 et le forum
Mets ta macro directement sur un poste ete tu auras plus de réponses.
Quelques remarques sur ta macro :

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
Sub STAT()
Dim a As Boolean, b As Boolean, c As Boolean, d As Boolean, e As Boolean, f As Boolean
Dim g As Boolean, h As Boolean, i As Boolean, j As Boolean, k As Boolean, l As Boolean
Dim m As Boolean, n As Boolean, o As Boolean, p As Boolean
Dim w, x, y, z, ligne, col, test, qte
'initialisation
a = Cells(16, "H").Value
'---------------
o = Cells(16, "V").Value
ligne = 3
col = 18 'R
 
'inscription des valeurs dans les cases
Range("R4").Value = a
'---------------------
Range("af10").Value = o
InputBox ("nombre de répétition ? " & qte)
'----
For x = 1 To qte 'repetition
    'test = 1
    For test = 1 To 5
        Select Case test
            Case 1
                Select Case a
                    Case 0
                        ligne = 5
                        col = 10
                        test = 2
                        a = 1
                        With Cells(5, "r").Borders(xlDiagonalDown)
                            .LineStyle = xlContinuous
                            .Weight = xlThick
                            .ColorIndex = 4
                        End With
                        Cells(5, "r").Borders(xlDiagonalUp).LineStyle = xlNone
                    Case 1
                        ligne = 5
                        col = 26
                        test = 2
                        a = 0
                        With Cells(5, "r").Borders(xlDiagonalUp)
                            .LineStyle = xlContinuous
                            .Weight = xlThick
                            .ColorIndex = 4
                        End With
                        Cells(5, "r").Borders(xlDiagonalDown).LineStyle = xlNone
                End Select 'a
 
            Case 2
                Select Case b
                        '-----------

Comme tu déclares tes variables, à part p déclarée en Boolean, toutes les autres sont déclarées en variant.

Ta boucle X :
Tu fixes test à 1, puis tu le refixes à 1 dans la boucle de test => le premier sert à rien
Je n'ai pas tout lu : faire une boucle sert essentiellement à ne pas recoder des lignes. mais là, tu fais une boucle de 1 à 5 pour faire 5 opérations différentes => Tu rajoutes une boucle et un Select qui ne servent à rien (mais il est vrai que je n'ai pas lu jusqu'au bout). Si tu enchaînes directement tes Select Cas a, select case b, etc... tu auras le même résultat, sans la perte de temps du à la boucle.
Dans ton cas, il serait peut-être utile d'utiliser une boucle pour choisir la variable (directement la cellule en incrémentant la colonne), mais faut voir ce qu'on en attend

Select Case a, b, etc...
tes variables on 2 possibilités : 0 ou 1. Un simple if...else...end if est mieux. select case est meilleur pour traiter quand il t a plus de possibilités.

Code :

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

1
2
    Cells(5, "r").Select
    With Selection.Borders(xlDiagonalDown)

Select/Selection : sert surtout à faire perdre du temps et de la lisibilité.
C'est un code issue directement d'une macro apprentissage. pour les formats, Excel met toutes les possibilités, même si elles n'évoluent pas par rapport à la valeur par défaut. mets seulement ce qui change.

Je n'ai pas touché à grand chose dans la présentation, mais en utilisant les indentations, on sait exactement à quel niveau de boucle/test/select se situe l'instruction. Le côté "joli" ne sert à rien, mais savoir qu'on est dans le select case test =2 et dans le select case b si
A+