Simplification d'un code

Le
Serge L
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

Merci à l'avance des conseils.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Fabien
Le #6382291
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 !!

Serge L
Le #6381771
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 !!




Publicité
Poster une réponse
Anonyme