Nommer dese à cocher en vba

[gerard55]

Nommer des case à cocher en vba

Bonjour à tous
Je cherche à nommer des cases à cocher (inscrire le nom dans la case) vba à partir de cellules qui seraient dans une feuille excel. Changer le nom de la cellule permettrait d'incrémenter le nom de la case à cocher. Il y a la propriété CAPTION mais il faudrait qu'elle soit en lien avec une cellule excel.
Je ne sais pas si cela est possible.
Merci pour vos suggestions évenuelles
a +

 

[Papou-net]

Re : Nommer des case à cocher en vba

Bonjour à tous
Je cherche à nommer des cases à cocher (inscrire le nom dans la case) vba à partir de cellules qui seraient dans une feuille excel. Changer le nom de la cellule permettrait d'incrémenter le nom de la case à cocher. Il y a la propriété CAPTION mais il faudrait qu'elle soit en lien avec une cellule excel.
Je ne sais pas si cela est possible.
Merci pour vos suggestions évenuelles
a +

Bonsoir gerard55,

Je pense que tu peux simplement écrire ce code, dans la procédure de chargement de ton userform :

OptionButton1.Caption = Sheets("Feuil1").Range("A1").value

En modifiant bien sûr les noms de feuille et de cellule suivant ton fichier.

Espérant avoir répondu.

Cordialement.

 

[gerard55]

Re : Nommer des case à cocher en vba

Merci Papou-net pour ta réponse mais, ça ne fonctionne pas. Rien ne s'inscrit dans la propriété caption ni dans la case à cocher.

a +

 

[gerard55]

Re : Nommer des case à cocher en vba

En fait le nom s'inscrit dans la case à cocher mais il faut qu'elle soit cochée pour afficher le nom souhaité ensuite, le nom reste. Mais à chaque ouverture de usf il faut recocher la case pour que le nom s'affiche alors que je voudrait qu'il s'affiche toujours.
Gérard
A+

 

[Papou-net]

Re : Nommer des case à cocher en vba

En fait le nom s'inscrit dans la case à cocher mais il faut qu'elle soit cochée pour afficher le nom souhaité ensuite, le nom reste. Mais à chaque ouverture de usf il faut recocher la case pour que le nom s'affiche alors que je voudrait qu'il s'affiche toujours.
Gérard
A+

Essaies donc ce fichier exemple, et tiens-moi au courant.

Cordialement.

 

[mécano41]

Re : Nommer dese à cocher en vba

Bonjour,

Il faut mettre tout ce que tu veux faire lors de l'ouverture dans un Sub Userform_Initialize (placé dans le code du Userform)

(Pour une puce d'option comme l'a fait Papou-Net, cela à l'air de fonctionner sans, mais avec une case à cocher, cela ne va pas ...

Sub Userform_Initialize()
CheckBox1.Caption = Sheets("Feuil1").Range("A1")
CheckBox1.Value = True  ' ou False
End Sub

Cordialement

 

[gerard55]

Re : Nommer dese à cocher en vba

Merci Mecano41 et Papou_net
ça fonctionne parfaitement. Il fallait que le code soit placé au bon endroit.
a +

 

[Papou-net]

Re : Nommer dese à cocher en vba

Bonjour,

Il faut mettre tout ce que tu veux faire lors de l'ouverture dans un Sub Userform_Initialize (placé dans le code du Userform)

(Pour une puce d'option comme l'a fait Papou-Net, cela à l'air de fonctionner sans, mais avec une case à cocher, cela ne va pas ...

Sub Userform_Initialize()
CheckBox1.Caption = Sheets("Feuil1").Range("A1")
CheckBox1.Value = True  ' ou False
End Sub

Cordialement

Bonjour à tous,

RE mécano41,

Pardon de te contredire, mais ça marche également avec un CheckBox. La preuve sur le fichier joint.
Le fait de mettre le code dans le module Initialize ne mettra à jour les libellés des contrôles que lors du Load/Unload de l'UserForm. Il est préférable de le mettre dans l'Activate, ainsi la mise à jour s'effectue dans tous les cas et surtout si on utilise Show/Hide.

Bonne journée.

Cordialement.

 

[mécano41]

Re : Nommer dese à cocher en vba

Bonjour Papou-Net,

Désolé, j'avais fait une mauvaise manip et c'est pour cela que ça n'avait pas fonctionné ... 🙁

Cordialement