Problème boucle For

craig974 · 24 Février 2011

Bonjour à tous

je souhaite changer cette partie de code :

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

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.

@+

craig974 · 24 Février 2011

Re : Problème boucle For

Re,

j'ai trouvé d’où vient le problème c'est en voulant simplifier cette partie :

Code:

If CheckBox1.Value = True And (ComboBox3.Value = "1" Or ComboBox5.Value = "1" Or ComboBox7.Value = "1" Or ComboBox9.Value = "1") Then
  MsgBox "L'adresse 1 est déjà utilisée", vbCritical
  Exit Sub
ElseIf CheckBox2.Value = True And (ComboBox3.Value = "2" Or ComboBox5.Value = "2" Or ComboBox7.Value = "2" Or ComboBox9.Value = "2") Then
  MsgBox "L'adresse 2 est déjà utilisée", vbCritical
  Exit Sub
ElseIf CheckBox3.Value = True And (ComboBox3.Value = "3" Or ComboBox5.Value = "3" Or ComboBox7.Value = "3" Or ComboBox9.Value = "3") Then
  MsgBox "L'adresse 3 est déjà utilisée", vbCritical
  Exit Sub
ElseIf CheckBox4.Value = True And (ComboBox3.Value = "4" Or ComboBox5.Value = "4" Or ComboBox7.Value = "4" Or ComboBox9.Value = "4") Then
  MsgBox "L'adresse 4 est déjà utilisée", vbCritical
  Exit Sub
ElseIf CheckBox5.Value = True And (ComboBox3.Value = "5" Or ComboBox5.Value = "5" Or ComboBox7.Value = "5" Or ComboBox9.Value = "5") Then
  MsgBox "L'adresse 5 est déjà utilisée", vbCritical
  Exit Sub
ElseIf CheckBox6.Value = True And (ComboBox3.Value = "6" Or ComboBox5.Value = "6" Or ComboBox7.Value = "6" Or ComboBox9.Value = "6") Then
  MsgBox "L'adresse 6 est déjà utilisée", vbCritical
  Exit Sub
ElseIf CheckBox7.Value = True And (ComboBox3.Value = "7" Or ComboBox5.Value = "7" Or ComboBox7.Value = "7" Or ComboBox9.Value = "7") Then
  MsgBox "L'adresse 7 est déjà utilisée", vbCritical
  Exit Sub
ElseIf CheckBox8.Value = True And (ComboBox3.Value = "8" Or ComboBox5.Value = "8" Or ComboBox7.Value = "8" Or ComboBox9.Value = "8") Then
  MsgBox "L'adresse 8 est déjà utilisée", vbCritical
  Exit Sub
Else: CommandButton2.Enabled = True
  CommandButton2.Visible = True
End If

que sa bloqué la partie suivante

Donc merci pour les solutions proposées plus haut qui étaient bonnes (est peut etre que ce que je proposais marchait aussi...) Maintenant faut que je trouve comment bien simplifier ce bout de code

craig974 · 24 Février 2011

Re : Problème boucle For

Complètement résolu. Encore merci à vous et désolé de vous avoir fait perdre du temps sur une bêtise un next i mal placé dans l'instruction précédente .....

@++

Guest · 24 Février 2011

Re : Problème boucle For

Re,

Pas de problème. Si tu savais le nombre d'erreur que je fait parfois!!!!

A+

Problème boucle For

craig974

XLDnaute Occasionnel

craig974

XLDnaute Occasionnel

craig974

XLDnaute Occasionnel

Guest

Guest

Discussions similaires

Problème boucle For

craig974

XLDnaute Occasionnel

craig974

XLDnaute Occasionnel

craig974

XLDnaute Occasionnel

Guest

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency