Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Simplification d'un code

Simplification d'un code

2 réponses
Avatar
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.
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
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 !!

Avatar
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 !!