Boucle pour lancer Sub

Bonjour,

J'ai un userform avec une cinquantaine d'OptionButton dessus. Chaque optionbutton lance un module sub qui definit l'arrière plan d'une shape (une cinquantaine d'arrière plan possible du coup). J'ai noté comme code pour chaque optionbutton

If OptionButton1= true then 
Sub AAA

If OptionButton2=true then 
Sub BBB 

Du coup comme vous pouvez l'imaginer, l'userform est lourd et long à ouvrir.

Est-il possible d’alléger le code via une boucle pour accélérer l'ouverture du USF ?

Merci par avance

Bonjour,

L'idéal serait d'avoir un fichier exemple.

Tu peux toujours t'inspirer de cette boule:

For i = 1 To 50 ' boucle sur les boutons
    If Controls("OptionButton" & i) = True Then
        ' ton code ....
     else
       'ton code....
      end if
   End if
 Next i

Cdt

je pense que ce qui alourdi ton fichier, ce sont les images.

Bonjour Ddetp88,

Merci pour ton retour. Effectivement mon userform contient autant d'image que d'optionButton. Je pensais que la lenteur venait du code ^^.

Malheureusement la taille des images est déjà réduite au maximum :/

Re,

Pas cool. Qu'est-ce que tu appelles réduites au maximum ?

En fonction de la taille de l'userform, quelques Ko peuvent suffire.

Cdt

J'ai réduit le poids des photos au max, elles font en moyenne 10ko, je pense que si je les réduit plus ce sera illisible :/

Effectivement, 10 Ko c'est le mini.

Désolé de ne pouvoir t'aider plus.

Cdt

Pas de soucis,

Merci à toi d'avoir pris le temps