RENAUDcyrille
XLDnaute Nouveau
bonjour tous
J'ai des lignes de code que je doit répéter plus de 25 fois, et cela est un peu gavant car dès que je veux faire une modif dans mon code il faut le faire 25 fois.
j'ai cherché un peu partout ici et sur d'autre site mais je ne trouve pas comment faire pour réduire ces lignes répétitives. D'où mon appel à l'aide.
Voici le topo.
J'ai plusieurs groupe d'objet répétitif comme suivant :
- chaque groupe est composé d'une optionbutton qui sont indicés ex : groupe TA, j'ai optionbuttonTA1, groupe AD j'ai otionbuttonAD ... soit des groupes XX avec OptBXX1
- dans chaque groupe j'ai 2 commandbutton qui sont indicés ex ; groupe TA, j'ai commandbuttonTA11 et commandbuttonTA10, groupe AD j'ai commandbuttonAD11 et commanduttonAD10... soit des groupes XX avec des CdBXX11 et CdBXX10
- pour chaque groupe si on clique sur les CdBXX11 ont déplace de 10 points OpBXX1 vers la gauche et vers la droite pour le CdBXX10.
Voici mon code pour un groupe :
Private Sub CommandButtonTA10_Click()
If OptionButtonTA1.Left > 315 Then
OptionButtonTA1.Left = OptionButtonTA1.Left
Else
OptionButtonTA1.Left = OptionButtonTA1.Left + 10
End If
End Sub
Private Sub CommandButtonTA11_Click()
If OptionButtonTA1.Left < 10 Then
OptionButtonTA1.Left = OptionButtonTA1.Left
Else
OptionButtonTA1.Left = OptionButtonTA1.Left - 10
End If
End Sub
il y a t il possibilité via module ou module de classe de n'écrire qu'une seule fois ce code pour tous les groupes.
Pour l'instant j'ai copier 25 fois ce code en changeant les indices des OpB et CdB à chaque fois mais c'est lourd
Dans l'attente de votre retour.
Si vous avez besoin de plus d'info je me tiens à votre dispo.
PS je travaille sur Excel2019 mais cela doit être compatible avec les VBA des Excels précédents car je ne serais pas le seul à utilisé le programme.
Merci
salutations
Cyrille
J'ai des lignes de code que je doit répéter plus de 25 fois, et cela est un peu gavant car dès que je veux faire une modif dans mon code il faut le faire 25 fois.
j'ai cherché un peu partout ici et sur d'autre site mais je ne trouve pas comment faire pour réduire ces lignes répétitives. D'où mon appel à l'aide.
Voici le topo.
J'ai plusieurs groupe d'objet répétitif comme suivant :
- chaque groupe est composé d'une optionbutton qui sont indicés ex : groupe TA, j'ai optionbuttonTA1, groupe AD j'ai otionbuttonAD ... soit des groupes XX avec OptBXX1
- dans chaque groupe j'ai 2 commandbutton qui sont indicés ex ; groupe TA, j'ai commandbuttonTA11 et commandbuttonTA10, groupe AD j'ai commandbuttonAD11 et commanduttonAD10... soit des groupes XX avec des CdBXX11 et CdBXX10
- pour chaque groupe si on clique sur les CdBXX11 ont déplace de 10 points OpBXX1 vers la gauche et vers la droite pour le CdBXX10.
Voici mon code pour un groupe :
Private Sub CommandButtonTA10_Click()
If OptionButtonTA1.Left > 315 Then
OptionButtonTA1.Left = OptionButtonTA1.Left
Else
OptionButtonTA1.Left = OptionButtonTA1.Left + 10
End If
End Sub
Private Sub CommandButtonTA11_Click()
If OptionButtonTA1.Left < 10 Then
OptionButtonTA1.Left = OptionButtonTA1.Left
Else
OptionButtonTA1.Left = OptionButtonTA1.Left - 10
End If
End Sub
il y a t il possibilité via module ou module de classe de n'écrire qu'une seule fois ce code pour tous les groupes.
Pour l'instant j'ai copier 25 fois ce code en changeant les indices des OpB et CdB à chaque fois mais c'est lourd
Dans l'attente de votre retour.
Si vous avez besoin de plus d'info je me tiens à votre dispo.
PS je travaille sur Excel2019 mais cela doit être compatible avec les VBA des Excels précédents car je ne serais pas le seul à utilisé le programme.
Merci
salutations
Cyrille