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

[Citronflexe]

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

 

[Lone-wolf]

Bonjour Citronflexe

Comment veux tu récupérer la ligne, il n'y a rien d'inscrit et pas de textbox pour afficher les données?? 🙄

 

[Citronflexe]

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

 

[Lone-wolf]

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.

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

 

[pierrejean]

Bonjour à tous

Un essai

 

[Lone-wolf]

Bonjour pierrejean 🙂

 

[Citronflexe]

Bonjour Lone-wolf, pierrejean ,

Merci pour vos réponses, et désolé de cette réponse tardive.

J'ai réussi à faire ce que je voulais en m'aidant de vos propositions, merci encore !

Je classe le topic en résolu

Bruno