Transférer au doubleClick sur label le caption du label
Bonjour ,
Dans le fichier ci-joint , un userform dans le lequel il y a trois label , je souhaiterai lorsque je doubleclick sur un label , garder en mémoire le caption du label en question et au doubleclick dans n'importe quelle cellule du fichier actif que la cellule doublecliquée prenne la valeur du caption du label
Merci de votre expertise
Bonjour,
Voici le code pour le Label1, à répéter pour les autres dans le module Userform1 :
Sélectionne une cellule avant de lancer.
Private Sub Label1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ActiveCell = Label1.Caption
Unload UserForm1
End SubBonjour,
Une solution avec la mémorisation de la légende du Label sur double clic puis copie de cette légende dans une cellule sur double clic.
A+
Bonjour ,
merci pour cette réponse , quelle modification apporter à la macro si je souhaite sélectionner une plage de cellules ,
Merci
Désolé, je ne comprends pas la question.
Quel rapport avec la précédente ?
A+
En faite je souhaiterai selectionner une plage de cellules et au double click sur la premiere cellule de plage afficher la legende dans l ensemble des cellules de la plage . MERCI
Le double clic sur une plage sélectionnée n’est pas une super idée car lorsque tu vas cliquer sur la première cellule de la plage tu vas désélectionner la plage.
Dans l’exemple joint, la copie est effectuée par la macro "Test".
Le lancement est effectué avec la touche de raccourci ctrl + q.
A+
Re,
Essaye de sélectionner une plage et fais le double clique. Tu verras si c'est possible de rester sur la plage
Merci à vous pour votre aide précieuse , du coup cette alternative me convient .
J'en profite également pour remercier les membres actifs du forum et j'espère que bientôt moi aussi je pourrais apporter ma contribution , je me forme !!!!
Bonjour ,
après avoir récupéré la légende du label , j'aimerai maintenant récupérer la couleur du label pour la transférer dans la cellule lors du double clic .
merci
Bonjour ,
encore moi ,
je souhaiterai récupérer en plus la couleur du texte du label.
merci
Bonjour,
Suivant le même principe, tu peux déclarer dans le module standard
Public Memo3
Puis dans la procédure Test
cel.Font.Color = Memo3
et enfin ajouter dans le code USF
Memo3 = Me.Label1.ForeColor (idem pour les autres Labels)
A+