Discussion :

[Romain92]

Bonjour à tous,

J'ai écris la fonction ci-dessous ou plutôt, pour être tout à fait honnête avec vous, je l'ai trouvé sur le net.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
        Public Function AjouteCoche(cellule As Range) As Variant
        Dim o As OLEObject
        Set o = cellule.Worksheet.OLEObjects.Add(ClassType:="Forms.Checkbox.1", _
        Left:=cellule.Left, Top:=cellule.Top, _
        Width:=cellule.Width, Height:=cellule.Height)
        o.LinkedCell = cellule.Cells(1).Address
        AjouteCoche = 0
End Function

Cette fonction, permet de créer une checkbox dans une cellule demandée.

Lorsque j'appelle cette fonction à partir d'une autre fonction, je n'ai aucun soucis. La fonction marche nickel.

En revanche, lorsque j'appelle cette fonction directement à partir d'une cellule excel (=AjouteCoche(F5)) par exemple, j'obtiens le message d'erreur suivant :

#VALEUR!

Ma question est la suivante : est il possible de créer une checkbox ou autre objet de formulaire en appelant la fonction vba directement depuis une cellule excel ? Si oui, auriez vous une piste car pour le coup je suis un peu bloqué ?

D'avance, merci pour votre aide et votre retour.

Romain

[Jean-Philippe André]

Salut,

le problème lorsque l'on fait appelle à une fonction dans une cellule, la fonction en question ne doit pas faire perdre le focus à la cellule d'origine, sous peine de s'arrêter en plein milieu.

Donc non tu ne peux pas effectuer ton appel de fonction de cette façon depuis une autre cellule Excel

[Romain92]

Bonjour jpcheck,

Merci pour ta réponse !!! Je suppose que la création d'un objet de formulaire fait perdre le focus...
Je ne comprenais pas pourquoi ma fonction s'arrêtait. C'est chose faite maintenant