Discussion :

[chuspyto]

bonjour,
j'aimerai savoir si on eut associer plusieurs groupes d'options ensemble dans le sens ou la valeur du 1er groupe + la valeur de 2 eme groupe + la valeur du 3 eme groupe = action
j'ai deja utilisé un premier groupe en utilisant le select case mais je ne sais pas comment l'associer avec le cadre 20.(si cadre 10 and cadre 20=ok)

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
Private Sub Cadre10_afterUpdate()
If Cadre10.Value = 0 Then
   Cadre10.Value = Cadre10.Value + 1
End If
 
Select Case Me.Cadre10.Value
   Case Is = 4
      WindowsMediaPlayer0.URL = "C:\1.avi"
      WindowsMediaPlayer0.Object.Controls.currentPosition = 2
   Case Is = 2
      WindowsMediaPlayer0.URL = "C:\2.mp4"
      WindowsMediaPlayer0.Object.Controls.currentPosition = 2
End Select
 
end sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub Cadre20_afterUpdate()
If Cadre20.Value = 0 Then
   Cadre20.Value = Cadre20.Value + 1
End If
 
Select Case Me.Cadre0.Value
   Case Is = 1
      ?????????????????
   Case Is = 3
      ????????????????
End Select
 
End Sub

[marot_r]

La solution qui me parait la plus simple est d'avoir une seule procédure qui traite les 3 options.

Code :

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

1
2
3
Private Sub Cadre10_afterUpdate()
   call TraiterOption()
end sub

Code :

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

1
2
3
Private Sub Cadre20_afterUpdate()
   call TraiterOption()
end sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
private sub TraiterOption()
   if Me.Cadre10.Value=4 and Me.Cadre20.Value=1 then
        'faire quelque chose
   elseif Me.Cadre10.Value = uneAutreValeur and Me.Cadre20.Value = encoreUneAutreValeur then
        'faire autre chose
   elseif Me.Cadre10.Value = uneAutreAutreValeur and Me.Cadre20.Value = encoreUneAutreAutreValeur then
        'faire autre autre chose
   else
        'Aucun des cas précédents, erreur de codage
        error 5 'Premet de détecter si on a manqué une combinaison
   end if
 
end sub

[chuspyto]

Une petite question dans mon cadre 10 et le cadre 20 se trouvent des cases à cocher . Comment appeler traiter option en fonction de la valeur que renvoi les cases?

[marot_r]

Tu appelle systématiquement TraiterOption() et c'est dans le code TraiterOption() que tu regardes quelle est la valeur.

Le traitement s'effectue dans la série de

Code :

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

1
2
3
4
5
 
if then 
  elseif 
  else 
end if

qui gère les différentes valeurs. Cela permt de centraliser la logique de décision à une seule place.

[chuspyto]

Je te remercie, je vais essayer cela. Et donc cela veut dire que ça ne peut fonctionner avec du sélect case!!

[marot_r]

Non tu pourrais aussi utiliser la clause sélect comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Select Case Me.Cadre10.Value
   Case Is = 4
      select case Me.Cadre20.Value
         case uneValeur
            'Ici du code
         case uneAutreValeur
            'ici du code
      end select
 
   Case Is = 2
      WindowsMediaPlayer0.URL = "C:\2.mp4"
      WindowsMediaPlayer0.Object.Controls.currentPosition = 2
End Select

2 select case imbriqués correspondent à un AND mais je trouve que c'est un peu moins lisible.

A+

A+