bonjour

je suis entrain de realiser une application indus. l'utilisateur doit parametrer des sonde de température.

J'ai quattre sonde et quattre type de reglage par sonde

J'ai donc diviser en 4 groupe de 4 options

je recupere ainsi la sensibilité entrée.

Au lieu de faire ca j'aimerai faire quelque chose de plus propre

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
      'sonde1
      If Option_Temp_1_Resol_1 Then Sonde_1_Resol = "00"
      If Option_Temp_1_Resol_2 Then Sonde_1_Resol = "01"
      If Option_Temp_1_Resol_3 Then Sonde_1_Resol = "10"
      If Option_Temp_1_Resol_4 Then Sonde_1_Resol = "11"
      Sonde_1_Type = Left(Right(Combo_Type_Sonde_1.Text, 5), 4)
      'sonde2
      If Option_Temp_2_Resol_1 Then Sonde_2_Resol = "00"
      If Option_Temp_2_Resol_2 Then Sonde_2_Resol = "01"
      If Option_Temp_2_Resol_3 Then Sonde_2_Resol = "10"
      If Option_Temp_2_Resol_4 Then Sonde_2_Resol = "11"
      Sonde_2_Type = Left(Right(Combo_Type_Sonde_2.Text, 5), 4)
      'sonde3
      If Option_Temp_3_Resol_1 Then Sonde_3_Resol = "00"
      If Option_Temp_3_Resol_2 Then Sonde_3_Resol = "01"
      If Option_Temp_3_Resol_3 Then Sonde_3_Resol = "10"
      If Option_Temp_3_Resol_4 Then Sonde_3_Resol = "11"
      Sonde_3_Type = Left(Right(Combo_Type_Sonde_3.Text, 5), 4)
      'sonde4
      If Option_Temp_4_Resol_1 Then Sonde_4_Resol = "00"
      If Option_Temp_4_Resol_2 Then Sonde_4_Resol = "01"
      If Option_Temp_4_Resol_3 Then Sonde_4_Resol = "10"
      If Option_Temp_4_Resol_4 Then Sonde_4_Resol = "11"
      Sonde_4_Type = Left(Right(Combo_Type_Sonde_4.Text, 5), 4)


genre ca :

je voudrais qu'a chaque changement de ma valeur i il scrute automatiquement les valeur .

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
    Dim I As Long
    Dim Sonde_Resol(1 To 4) As Long
 
 
 
    For I = 1 To 4
     If Option_Temp_"I"_Resol_1.Value = True Then
         Sonde_Resol(I) = "00"
     Else
         If Option_Temp_"I"_Resol_2.Value = True Then
            Sonde_Resol(I) = "01"
         Else
            If Option_Temp_"I"_Resol_3.Value = True Then
                Sonde_Resol(I) = "10"
            Else
               If Option_Temp_"I"_Resol_4.Value = True Then
                   Sonde_Resol(I) = "11"
               Else
                   MsgBox ("vous n'avez pas précisé les informations pour la sonde" & Str(I))
               End If
            End If
         End If
     End If
   ' Sonde_% I_Type = Left(Right(Combo_Type_Sonde_%I.Text, 5), 4)
    MsgBox Sonde_Resol(I)
    Next


Ceci est ma premiere application en vb alors excusez moi si c'est confut.

amicalement