Checkbox et caption

[momo2394]

Bonjour le forum

Je cherche à renommer des checkboxs comme dans cette exemple
J'ai testé avec "caption" mais en vain.

Merci

 

[néné06]

Re : Checkbox et caption

Bonjour Momo2394

Au lieu de prendre la propriété "Caption",modifier la propriété "Name" !

A+

René

 

[momo2394]

Salut Néné06

Merci pour la réponse, mais ce n'est pas ce que je voulais, peut être me suis-je mal expliqué
Voilà je voudrais que lorsque j'écris un nom dans la cellule A8, la checkbox prend le nom de cette cellule
et ainsi de suite comme expliqué dans l'exemple, maintenant à savoir si cela est possible.

Merci

 

[néné06]

Re : Checkbox et caption

Re,

Regardes et dis-nous, si j'ai bien compris ?

A+

René

 

[momo2394]

Salut néné06

C'est parfait merci encore

Juste pour info pourquoi dans la macro la selection case démarre en case 8 et non 1

 

[néné06]

Re : Checkbox et caption

Re,

Car la première ligne des noms est la ligne 8 dans ta feuille.

A+

René

 

[momo2394]

Re : Checkbox et caption

Merci et bonne journée

 

[Paf]

Re : Checkbox et caption

Bonjour à tous

une autre version qui précise la zone "sensible"

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim MonObjet
 If Not Intersect(Target, Range("A8:A13")) Is Nothing Then
    MonObjet = "CheckBox" & Target.Row - 7
    ActiveSheet.OLEObjects(MonObjet).Object.Caption = Target.Value
 End If
End Sub

A+

 

[momo2394]

Salut Paf

super, merci à toi