Affichage de la valeur d'une cellule comme libellé d'une checkbox
Bonjour à tous, et merci de me lire. . .
Relatif débutant en VBA, je me nourris des cours VBA du site, mais je butte sur un petit souci pour lequel je n'ai pas vraiment trouvé de réponse :
Je précise de suite que je suis Ubuntero en privé, mais "obligé" de travailler sous Excel au bureau, sur un ordi non relié réseau et/ou internet . . . lol . . .
Voici :
Base de travail :
- feuille excel (planning) qui pour chaque jour (col A) fait apparaître le nom des deux personnes qui travaillent (col B et C) ;
- les cellules AA2 et AB2 font apparaître les noms de ces personnes, en fonction de la date système et de la recherche dans mon planning (formule qui fonctionne bien) ;
- pour la checkbox1 : le nom figurant dans la cellule AA2
- pour la checkbox2 : le nom figurant dans la cellule AB2
Par ailleurs :
- les cases doivent être décochées à l'ouverture ;
- une seule cache pouvant être cochée par l'utilisateur, je veux ensuite, en fonction de la valeur True de la case cochée, reproduire le nom de la personne (cellule AA2 ou AB2) dans une cellule d'un autre classeur, cette procédure étant destinée à être incluse dans une macro déjà existante et que je veux compléter en faisant apparaître cette nouvelle donnée.
Merci d'avance pour votre aide .
A bientôt
Bonjour,
Propriété "Caption" de l'objet, un essai :
CheckBox1.Caption = Sheets("Planning").Range("AA2").Value
@ bientôt
LouReeD
Déjà une réponse ? Super !
Je teste ça dès la reprise du service, et vous tiens au courant.
Impeccable, ça marche ! Grand merci,
Une partie de ma question non résolue :
J'ai mis dans chaque "Private Sub CheckBox*_Click()", l'instruction à exécuter selon le click sur l'une ou l'autre des cases à cocher, et j'obtiens bien dans ma cellule voulue, la bonne donnée.
Par contre je trouve un "Private Sub Label1_Click()" dont je ne comprends pas l'utilité ? .....
Et dans le "Private Sub UserForm_Click()", je demande juste la fermeture du formulaire ? j'ai essayé avec UserForm.Hide,
ça ne semble pas fonctionner . . .