[Résolu] CheckBox, Bouton et ScrollBar

[craig974]

Bonjour,
Ce que je désire faire : après choix sur differentes combobox et après avoir cliqué sur un bouton certaines checkbox doivent "se" cocher. On doit pouvoir continuer a faire des choix sur les differentes combobox et réappuyer sur le bouton, mais si tel ou tel checkbox est deja cochée apparait un message d'erreur.

Mon problème: les combobox sont faites, le bouton aussi, les checkbox et tout ce qui s'en suit aussi, le seul probleme est que le message d'erreur apparait dès le premier choix. Ci-après le morceau de code impliqué :

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

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
End If
If 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
End If
If 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
End If
If 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
End If
If 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
End If
If 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
End If
If 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
End If
If 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
End If

Et petite question comment peut on fixer la barre de défilement liée a une textbox en effet la mienne apparait que lorsque l'on clique sur la textbox et je voudrais qu'on la voie avant de cliquer dessus

Merci d'avance pour toute aide.

 

[Pierrot93]

Re : CheckBox, Bouton et ScrollBar

Bonjour,

comprends pas ton code, tu coches une "checkbox" :

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

et après tu t'étonnes qu'elle soit cochée...

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
End If

pas top d'analyser ton affaire avec un bout de code, jeté en l'état sur un post, nous ne savons même pas à quelle procédure il se rapporte, où il se trouve.... comme les contrôles d'ailleurs, sur une feuille où sur un usf.....

peut être qu'un tout petit fichier(2, 3 contrôles), montrant uniquement le problème posé nous aioderait à t'aider...

bonne journée
@+

 

[craig974]

Re : CheckBox, Bouton et ScrollBar

Re

comprends pas ton code, tu coches une "checkbox"
et après tu t'étonnes qu'elle soit cochée..

C'est peut etre ce qu'on comprend par rapport a ce que j'ai écrit mais justement je ne veux pas sa je veux qu'il nous mette ce message si on fait ce choix une deuxieme fois pas dès la première fois.
Il se trouve dans une userform à la procédure commandbutton1_click
je vais essayer de faire un petit fichier comme dit

 

[Pierrot93]

Re : CheckBox, Bouton et ScrollBar

Re,

tu peux peut être faire ceci, à voir... :

If CheckBox1.Value = True Then 
MsgBox "L'adresse 1 est déjà utilisée", vbCritical
exit sub
End If
If ComboBox3.Value = "1" Or ComboBox5.Value = "1" Or ComboBox7.Value = "1" Or ComboBox9.Value = "1" Then
CheckBox1.Value = True
End If

 

[craig974]

Re : CheckBox, Bouton et ScrollBar

Voila le problème.

 

[Pierrot93]

Re : CheckBox, Bouton et ScrollBar

Re,

As tu vu mon post de 7h30 ??

 

[craig974]

Re : CheckBox, Bouton et ScrollBar

je vais essayer ce que tu dis je te tiens au courant de suite

 

[Pierrot93]

Re : CheckBox, Bouton et ScrollBar

OK, préférable que cela convienne, car pas top ton fichier, difficile de travailler sur une image...

 

[craig974]

Re : CheckBox, Bouton et ScrollBar

Sa pose le meme problème.

 

[Pierrot93]

Re : CheckBox, Bouton et ScrollBar

Re,

bizarre, mas comme dit précédemment

OK, préférable que cela convienne, car pas top ton fichier, difficile de travailler sur une image...

 

[craig974]

Re : CheckBox, Bouton et ScrollBar

Voici le fichier sa sera certainement plus compréhensible que l'image (ou pas ) en tout cas plus simple pour tavailler dessus

 

[Pierrot93]

Re : CheckBox, Bouton et ScrollBar

Re,

désolé, mais un peu lourd ton code, de toute évidence si tu testes en premier ta checkbox, comme dans le code donné à 7h30, tu sors de la procédure si cochée.... A noter, à chaque fois que tu ajoutes un item à tes combo, tu relance l'événement change du combo en question... préférer l'événement click....

 

[craig974]

Re : CheckBox, Bouton et ScrollBar

Merci beaucoup j'avais omis le exit sub. sa marche quasiment au premier choix le message ne s'affiche pas c'est deja sa il faut que je rajoute des conditions. Mais le problème en lui meme est résolu saurais tu répondre a la deuxième question concernant les scrollbar ?

 

[craig974]

Re : CheckBox, Bouton et ScrollBar

A part la scrollbar que je pense laisser comme sa (personne n'a apparemment trouvé de solution a ce problème) sa marche comme je veux. Merci encore

 

[Pierrot93]

Re : CheckBox, Bouton et ScrollBar

Re,

A part la scrollbar que je pense laisser comme sa (personne n'a apparemment trouvé de solution a ce problème) sa marche comme je veux. Merci encore

Pas de solution non plus pour la barre de défilement....