Bonjour, j'ai conçu un code qui ombrage ou "enabled" certains contrôles d'un
formulaire dépendamment de la valeur de certaines variables. Mon code
fonctionne très bien mais comme je ne suis pas un expert, j'ai l'impression
de faire des codes trop long inutilement. Étant rendu a l'étape de
l'amélioration de l'éfficacité du code j'aurais donc besoin d'aide pour voir
si le code suivant pourrait se simplifier.
Mon code est assez simple a comprendre mais un peut long.....
Select Case TypNbJoueur
Case "Individuel"
Me.CtrTouNom2.Enabled = False
Me.CtrTouPrenom2.Enabled = False
Me.CtrTouNom3.Enabled = False
Me.CtrTouPrenom3.Enabled = False
Me.CtrTouNom4.Enabled = False
Me.CtrTouPrenom4.Enabled = False
Me.CtrTouNom5.Enabled = False
Me.CtrTouPrenom5.Enabled = False
Me.CtrIndex2.Enabled = False
Me.CtrIndex3.Enabled = False
Me.CtrIndex4.Enabled = False
Me.CtrIndex5.Enabled = False
Select Case TitTypIndex
Case "Avec Index"
Me.CtrIndex.Enabled = True
End Select
Case "2 joueurs"
Me.CtrTouNom3.Enabled = False
Me.CtrTouPrenom3.Enabled = False
Me.CtrTouNom4.Enabled = False
Me.CtrTouPrenom4.Enabled = False
Me.CtrTouNom5.Enabled = False
Me.CtrTouPrenom5.Enabled = False
Me.CtrIndex3.Enabled = False
Me.CtrIndex4.Enabled = False
Me.CtrIndex5.Enabled = False
Select Case TitTypIndex
Case "Avec Index"
Me.CtrIndex.Enabled = True
Me.CtrIndex2.Enabled = True
End Select
Case "3 joueurs"
Me.CtrTouNom4.Enabled = False
Me.CtrTouPrenom4.Enabled = False
Me.CtrTouNom5.Enabled = False
Me.CtrTouPrenom5.Enabled = False
Me.CtrIndex4.Enabled = False
Me.CtrIndex5.Enabled = False
Select Case TitTypIndex
Case "Avec Index"
Me.CtrIndex.Enabled = True
Me.CtrIndex2.Enabled = True
Me.CtrIndex3.Enabled = True
End Select
Case "4 joueurs"
Me.CtrTouNom5.Enabled = False
Me.CtrTouPrenom5.Enabled = False
Me.CtrIndex5.Enabled = False
Select Case TitTypIndex
Case "Avec Index"
Me.CtrIndex.Enabled = True
Me.CtrIndex2.Enabled = True
Me.CtrIndex3.Enabled = True
Me.CtrIndex4.Enabled = True
End Select
End Select
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Fabien
Bonjour
Select Case TypNbJoueur
Case "Individuel" : deb = 2
Case "2 joueurs" : deb = 3 Case "3 joueurs" : deb = 4
Case "4 joueurs" : deb= 5 End Select For i = deb to 5 me("CtrTouNom" & I).Enabled = False Me("CtrTouPrenom" & I).Enabled = False me("CtrIndex" & i).Enabled = False next I Me.CtrIndex.Enabled = (TitTypIndex="Avec Index") For i =2 to deb-1 Me("CtrIndex") & I.Enabled = (TitTypIndex="Avec Index") next i
A tester !!
Bonjour
Select Case TypNbJoueur
Case "Individuel" : deb = 2
Case "2 joueurs" : deb = 3
Case "3 joueurs" : deb = 4
Case "4 joueurs" : deb= 5
End Select
For i = deb to 5
me("CtrTouNom" & I).Enabled = False
Me("CtrTouPrenom" & I).Enabled = False
me("CtrIndex" & i).Enabled = False
next I
Me.CtrIndex.Enabled = (TitTypIndex="Avec Index")
For i =2 to deb-1
Me("CtrIndex") & I.Enabled = (TitTypIndex="Avec Index")
next i
Case "2 joueurs" : deb = 3 Case "3 joueurs" : deb = 4
Case "4 joueurs" : deb= 5 End Select For i = deb to 5 me("CtrTouNom" & I).Enabled = False Me("CtrTouPrenom" & I).Enabled = False me("CtrIndex" & i).Enabled = False next I Me.CtrIndex.Enabled = (TitTypIndex="Avec Index") For i =2 to deb-1 Me("CtrIndex") & I.Enabled = (TitTypIndex="Avec Index") next i
A tester !!
Serge L
Merci beaucoup Fabien.
Avec quelques modifications mineures de ton code j'ai réussi. Cela va surement me servir plus tard également.
Serge
Bonjour
Select Case TypNbJoueur
Case "Individuel" : deb = 2
Case "2 joueurs" : deb = 3 Case "3 joueurs" : deb = 4
Case "4 joueurs" : deb= 5 End Select For i = deb to 5 me("CtrTouNom" & I).Enabled = False Me("CtrTouPrenom" & I).Enabled = False me("CtrIndex" & i).Enabled = False next I Me.CtrIndex.Enabled = (TitTypIndex="Avec Index") For i =2 to deb-1 Me("CtrIndex") & I.Enabled = (TitTypIndex="Avec Index") next i
A tester !!
Merci beaucoup Fabien.
Avec quelques modifications mineures de ton code j'ai réussi. Cela va
surement me servir plus tard également.
Serge
Bonjour
Select Case TypNbJoueur
Case "Individuel" : deb = 2
Case "2 joueurs" : deb = 3
Case "3 joueurs" : deb = 4
Case "4 joueurs" : deb= 5
End Select
For i = deb to 5
me("CtrTouNom" & I).Enabled = False
Me("CtrTouPrenom" & I).Enabled = False
me("CtrIndex" & i).Enabled = False
next I
Me.CtrIndex.Enabled = (TitTypIndex="Avec Index")
For i =2 to deb-1
Me("CtrIndex") & I.Enabled = (TitTypIndex="Avec Index")
next i
Avec quelques modifications mineures de ton code j'ai réussi. Cela va surement me servir plus tard également.
Serge
Bonjour
Select Case TypNbJoueur
Case "Individuel" : deb = 2
Case "2 joueurs" : deb = 3 Case "3 joueurs" : deb = 4
Case "4 joueurs" : deb= 5 End Select For i = deb to 5 me("CtrTouNom" & I).Enabled = False Me("CtrTouPrenom" & I).Enabled = False me("CtrIndex" & i).Enabled = False next I Me.CtrIndex.Enabled = (TitTypIndex="Avec Index") For i =2 to deb-1 Me("CtrIndex") & I.Enabled = (TitTypIndex="Avec Index") next i