XL 2019 Userform problème optimisation code

crackerwood

XLDnaute Nouveau
Bonjour à la communauté.
Je vous présente mon problème :
J'ai dans une feuille des critères à remplir. Mais l'un des critères à une sélection de détails pour la note. J'ai donc crée un UserForm pour remplir ces critères.
Malheureusement c'est là où je pêche. Je peux avoir énormément de stagiaires (48) et donc j'ai réussi à le faire pour le premier (cellule H6) mais cela m'a demandé tellement de condition que mon code se trouve avec plusieurs centaines de lignes.
Je pense que le problème viens de là.
Je vous fournis le fichier avec les données effacé par obligation.
J'espère que quelqu'un aura une solution ou un indice qui pourrait me débloquer.
En vous remerciant.
 

Pièces jointes

  • macro a test.xlsm
    97.4 KB · Affichages: 6

vgendron

XLDnaute Barbatruc
Bonjour

ci jointe une proposition
il y a surement encore possibilité d'optimisation avec des boucles

mais déja; ce que je te propose fonctionne déjà pour TOUTES les lignes
 

Pièces jointes

  • macro a test.xlsm
    90.8 KB · Affichages: 4

crackerwood

XLDnaute Nouveau
Salut. Déjà merci pour la 1er version que tu m'as donné.
Oui oui on peut le modifier même si je dois retoucher deux trois trucs j'y arriverais je pense.
Encore merci

EDIT : J'ai un bug sur cette ligne
.Range ("AT" & ligne) & "/20" = Label15.Caption
erreur 438

EDIT 2 : J'ai trouvé et réussi à corriger la petite erreur.
J'ai mis à la place Label15.Caption = Range("AT" & ligne) & "/20" et ça passe bien.
Dans tout les cas encore merci bien. Bonne soirée
 
Dernière édition:

crackerwood

XLDnaute Nouveau
Alors j'ai regardé. Effectivement ça marche plutôt bien pour le second mais je comprends rien au code o_O
Je vais resté sur le premier car je peux l'adapter à ma convenance.
Malgré tout un bien grand merci pour ça. Surtout que le premier code montré bah je connaissais un peu mais n'étant pas un habitué je n'y ai pas pensé. En tout cas je garde cette méthode en tête.
 

Discussions similaires

Statistiques des forums

Discussions
312 207
Messages
2 086 233
Membres
103 161
dernier inscrit
Rogombe bryan