Bloquage sur code Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
p
pompaero
Membre dévoué
Membre dévoué
Messages : 816
Appréciations reçues : 2
Inscrit le : 12 juin 2013
Version d'Excel : 2016

Message par pompaero » 29 mai 2018, 22:31

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
Planning essai.xlsm
(157.66 Kio) Téléchargé 6 fois
Pensez à respecter et faire respecter les gestes barrières.
Image
Avatar du membre
galopin01
Passionné d'Excel
Passionné d'Excel
Messages : 6'575
Appréciations reçues : 174
Inscrit le : 18 septembre 2008
Version d'Excel : 2016
Téléchargements : Mes applications

Message par galopin01 » 30 mai 2018, 01:33

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+
Question portant sur VBA : Je ne répond pas si la question ne comporte pas le classeur KIVABIEN avec.
p
pompaero
Membre dévoué
Membre dévoué
Messages : 816
Appréciations reçues : 2
Inscrit le : 12 juin 2013
Version d'Excel : 2016

Message par pompaero » 31 mai 2018, 00:21

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
Pensez à respecter et faire respecter les gestes barrières.
Image
Avatar du membre
galopin01
Passionné d'Excel
Passionné d'Excel
Messages : 6'575
Appréciations reçues : 174
Inscrit le : 18 septembre 2008
Version d'Excel : 2016
Téléchargements : Mes applications

Message par galopin01 » 31 mai 2018, 08:24

Les 3 boutons que tu crées doivent s'appeler Bouton12, Bouton13, Bouton14...
Chez moi ça ne pose pas de pb.
Planning essai VG.xlsm
(157.02 Kio) Téléchargé 6 fois
A+
Question portant sur VBA : Je ne répond pas si la question ne comporte pas le classeur KIVABIEN avec.
p
pompaero
Membre dévoué
Membre dévoué
Messages : 816
Appréciations reçues : 2
Inscrit le : 12 juin 2013
Version d'Excel : 2016

Message par pompaero » 31 mai 2018, 20:30

Re

Ah oui !! quel idiot je fais, :( j'ai pas penser à créer les boutons ::D
je viens d'essayer et ça fonctionne bien.
Merci à toi pour tout.

Cdlt
pompaero
Pensez à respecter et faire respecter les gestes barrières.
Image
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message