Bloquage sur code

Bonjour le forum,

Je suis en train d'essayer deconstruire un planning dont j'ai pas mal avancé mais une chose bloque au niveau de UserForm.

Il y un Formulaire récupérant les codes de la feuilles "Parametre Couleurs" qui peu fonctionner jusqu'à 16 codes, actuellement j'en ai 10 et des lors que j'en ajoute 1 alors ça bug.

j'ai tenter de modifier dans les macros mais rien n'y fais. Grrrrrr

quelqu'un pourrait-il m'aider sur ce sujet, svp?

merci

Cdlt

pompaero

6planning-essai.xlsm (157.66 Ko)

Le nombre de "couleurs" est censés être égal au nombre de boutons dans le UserForm.

Le bouton Efface étant compté comme une couleur...

Ce nombre est défini dans le code du UserForm :

Dim Btn(1 To 11) As New ClasseBoutons

Private Sub UserForm_Initialize()

For b = 1 To 11: Set Btn(b).GrBoutons = Me("bouton" & b): Next b

For i = 1 To Application.CountA(Range("mescouleurs"))

Me("bouton" & i).Caption = Range("mescouleurs")(i).Value

Me("bouton" & i).BackColor = Range("mescouleurs")(i).Interior.Color

Me("bouton" & i).ControlTipText = Range("MotifsCongés")(i).Value

Next

Me("bouton" & i).Caption = "Efface"

For c = i + 1 To 11: Me("bouton" & c).Visible = False: Next

Me.Width = 37 * i + 5

End Sub

A+

Bonjour Galopin01

Merci de ton soutien.

C'est bien ce que je pensais comprendre, mais quand je modifie 1 To 11 en 1 To 14, par exemple, ben ça bug tout de même... c'est pour cela que je comprends pas pourquoi ça ne fonctionne pas et que je demande de l'aide, du coup.

Je vais réessayer tout de même.

Cdlt

pompaero

Les 3 boutons que tu crées doivent s'appeler Bouton12, Bouton13, Bouton14...

Chez moi ça ne pose pas de pb.

A+

Re

Ah oui !! quel idiot je fais, j'ai pas penser à créer les boutons

je viens d'essayer et ça fonctionne bien.

Merci à toi pour tout.

Cdlt

pompaero

Rechercher des sujets similaires à "bloquage code"