Problème boucle For

[craig974]

Bonjour à tous

je souhaite changer cette partie de code :

If ComboBox3.Value = "1" Or ComboBox5.Value = "1" Or ComboBox7.Value = "1" Or ComboBox9.Value = "1" Then
  CheckBox1.Value = True
End If

If ComboBox3.Value = "2" Or ComboBox5.Value = "2" Or ComboBox7.Value = "2" Or ComboBox9.Value = "2" Then
  CheckBox2.Value = True
End If

If ComboBox3.Value = "3" Or ComboBox5.Value = "3" Or ComboBox7.Value = "3" Or ComboBox9.Value = "3" Then
  CheckBox3.Value = True
End If

If ComboBox3.Value = "4" Or ComboBox5.Value = "4" Or ComboBox7.Value = "4" Or ComboBox9.Value = "4" Then
  CheckBox4.Value = True
End If

If ComboBox3.Value = "5" Or ComboBox5.Value = "5" Or ComboBox7.Value = "5" Or ComboBox9.Value = "5" Then
  CheckBox5.Value = True
End If

If ComboBox3.Value = "6" Or ComboBox5.Value = "6" Or ComboBox7.Value = "6" Or ComboBox9.Value = "6" Then
  CheckBox6.Value = True
End If

If ComboBox3.Value = "7" Or ComboBox5.Value = "7" Or ComboBox7.Value = "7" Or ComboBox9.Value = "7" Then
  CheckBox7.Value = True
End If

If ComboBox3.Value = "8" Or ComboBox5.Value = "8" Or ComboBox7.Value = "8" Or ComboBox9.Value = "8" Then
  CheckBox8.Value = True
End If

par celle ci pour reduire le nombre de ligne de code

For i = 1 To 8
  If ComboBox3.Value = "" & i Or ComboBox5.Value = "" & i Or ComboBox7.Value = "" & i Or ComboBox9.Value = "" & i Then
    Me.Controls("CheckBox" & i).Value = True
  End If
Next i

Le problème c'est que ca ne marche plus, j'ai besoin d'un oeil extérieur pour voir ce qui cloche.

Merci pour toute aide.

@+

 

[Guest]

Re : Problème boucle For

Bonjour,

A tester en situation réelle:

For i = 1 To 8
    For j = 3 To 9 Step 2
        If Me.Controls("ComboBox" & j).Value =cstr(i) Then
            Me.Controls("CheckBox" & i).Value = True
            Exit For
        End If
    Next
Next i

A+

 

[Pierrot93]

Re : Problème boucle For

Bonjour,

essaye ceci, non testé...

For i = 1 To 8
  If ComboBox3.Value = CStr(i) Or ComboBox5.Value = CStr(i) Or ComboBox7.Value = CStr(i) Or ComboBox9.Value = CStr(i) Then
    Me.Controls("CheckBox" & i).Value = True
  End If
Next i

bonne journée
@+

Edition : bonjour Hasco🙂

 

[craig974]

Re : Problème boucle For

Bonjour Hasco, Pierrot93

Merci d'avoir répondu si vite j'ai essayé les deux solutions proposées (meme si elles sont quasiment les memes "on ne sait jamais") Mais elles ne fonctionnent pas, les checkbox reste décochée.

 

[Guest]

Re : Problème boucle For

Bonjour,

Alors il te faut joindre un fichier exemple (<50ko) contenant juste le stricte nécessaire pour comprendre la situation et ce que tu désires.

A+

 

[craig974]

Re : Problème boucle For

Ok le temps de faire quelque chose de correct

A+

 

[craig974]

Re : Problème boucle For

Re,

Voila le petit fichier j'espere qu'il sera compréhensible
j'ai oublié de dire que dans chaque combobox 3, 5, 7, 9 les choix possible sont de 1, 2, 3, 4, 5, 6, 7, 8
et que chaque checkbox correspond à 1, 2, 3, 4, 5, 6, 7, 8 sans différenciation de la combobox

@+

 

[Guest]

Re : Problème boucle For

RE,

Euh il manque les données et leur chargement dans les combobox...?

A+

 

[Pierrot93]

Re : Problème boucle For

Re,

comme le dit Hasco, tu as oublié le code, d'autre part il y a au moins 10 checkbox, dont certaines sont masquées par d'autres.... sinon le code ci-dessous fonctionne chez moi :

Option Explicit
Private Sub CommandButton1_Click()
Dim i As Byte
For i = 1 To 8
  If ComboBox1.Value = CStr(i) Or ComboBox2.Value = CStr(i) Or ComboBox3.Value = CStr(i) Or ComboBox4.Value = CStr(i) Then
    Me.Controls("CheckBox" & i).Value = True
  End If
Next i
End Sub
Private Sub UserForm_Initialize()
Dim c As Control
For Each c In Me.Controls
    If TypeOf c Is MSForms.ComboBox Then c.List = Array(1, 2, 3, 4, 5, 6, 7, 8)
Next c
End Sub

 

[craig974]

Re : Problème boucle For

Voila le fichier sans modification pour diminuer le nombre de ligne (j'en ai fait après plusieurs qui marchait) le problème la se situe à la fin de commandbutton1 .
les 2 mdp sont 1234

 

[craig974]

Re : Problème boucle For

Merci Pierrot93 ta solution fonctionne, il fallait donc rajouter ces 4 lignes à Userform_Initialize.

 

[Pierrot93]

Re : Problème boucle For

Re,

Merci Pierrot93 ta solution fonctionne, il fallait donc rajouter ces 4 lignes à Userform_Initialize.

Euh... histoire d'alimenter les combo, non... sans cela, ca ne peut pas fonctionner....

 

[craig974]

Re : Problème boucle For

Bon alors la je ne comprend plus rien du tout ça ne fonctionne plus je ne sais vraiment plus du tt quoi faire peux tu regarder ce qui cloche avec le fichier zip joint plus haut et en faisant les modifications que tu m'a proposées. je ne peux pas joindre le fichier modifié il est de 4ko trop grand. Merci

@++

 

[Guest]

Re : Problème boucle For

RE,

Dans le fichier joint, ce que je t'ai donné plus précédement fonctionne bien (ou je n'ai pas compris ce que tu voulais😕)

A+

 

[craig974]

Re : Problème boucle For

Non non tu as très bien compris, mais alors la c'est moi qui comprend plus rien par contre. Sa marche très bien merci. En fin de compte le problème vient pas de la vu que sa marche mais en le mettant dans le fichier ou j'ai réduit le nombre de ligne plus haut la sa ne marche pas. j'ai du faire une erreur plus haut je ne sais pas.