XL 2013 [Résolu] Manipulation des ComboBox + Label dans UserForm

Citronflexe

XLDnaute Junior
Bonjour à tous,

Dans le fichier ci-joint, j'aimerais pouvoir, lorsque j'ai choisi un sujet dans la ComboBox, changer la couleur du Label correspondant à la position du point rouge dans le tableau d'avancement.

J'ai réussi à initialiser l'UserForm comme je le souhaitais, mais je ne sais pas comment récupérer la ligne correspondant à mon choix dans la ComboBox1_Change() pour continuer.

J'aimerais également faire déplacer le point en cliquant sur les différents Labels correspondants aux colonnes du tableau d'avancement, et que l'UserForm se mette à jour en conséquence, en changeant la couleur du Label en fonction du choix...

D'avance merci,

Bruno
 

Pièces jointes

  • test_project.xlsm
    21.7 KB · Affichages: 16

Citronflexe

XLDnaute Junior
Bonjour @Lone-wolf ,
Merci pour ta réponse,

Je sais pas si je me suis bien exprimé, au final j'ai réussi à faire quelque chose pour "récupérer la ligne" cf fichier ci joint :

Lorsque je sélectionne un "Subject X" dans la combo box, le nom de la colonne dans laquelle le point rouge se situe se colore en rouge dans l'UserForm.

Je cherche encore comment faire bouger le point en cliquant sur les Label ...



Bruno
 

Pièces jointes

  • test_project.xlsm
    26.4 KB · Affichages: 12

Lone-wolf

XLDnaute Barbatruc
Re Bruno

Moi j'ai fait comme ceci. Dans Userfom Activate: Range("a6").Select
Mais il faudrait ajouter un label et mettre ActiveCell.Offset(1, 0).select et ensuite tu continue avec les autres.

VB:
Private Sub Label2_Click()
ActiveCell.Offset(0, 1).Select

With ActiveCell
.Copy
.Offset(0, 0).PasteSpecial Paste:=xlPasteAll
End With
Application.CutCopyMode = 0

End Sub

Private Sub Label3_Click()
ActiveCell.Copy
ActiveCell.Offset(0, 1).Select
ActiveCell.Offset(0, 0).PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = 0
ActiveCell.Offset(0, -1).ClearContents
End Sub

Private Sub Label4_Click()
ActiveCell.Copy
ActiveCell.Offset(0, 1).Select
ActiveCell.Offset(0, 0).PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = 0
ActiveCell.Offset(0, -1).ClearContents
End Sub

Private Sub Label5_Click()
ActiveCell.Copy
ActiveCell.Offset(0, 1).Select
ActiveCell.Offset(0, 0).PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = 0
ActiveCell.Offset(0, -1).ClearContents
End Sub

Private Sub Label6_Click()
ActiveCell.Copy
ActiveCell.Offset(0, 1).Select
ActiveCell.Offset(0, 0).PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = 0
ActiveCell.Offset(0, -1).ClearContents
ActiveCell.Offset(1, -5).Select
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
311 740
Messages
2 082 047
Membres
101 880
dernier inscrit
Anton_2024