LinkedCell d'une checkbox créée en VBA ?

[sergio_bzh]

Bonjour,
je suis en train de créer dynamiquement des CheckBox en VBA mais je bute sur la propriété LinkedCell. Je n'arrive pas à indiquer une cellule d'une autre feuille.

J'ai repris le code de ce post :
https://www.excel-downloads.com/threads/cases-a-cocher-creation-automatique.56149/
En particulier, par rapport au code fourni directement dans le post par MichelXLD, je n'ai qu'une différence, c'est l'utilisation d'une seconde feuille :

Dim i As Integer, j As Integer
Dim Obj As OLEObject

i = Feuil1.Range('D65536').End(xlUp).Row

For j = 2 To i

Set Obj = Feuil1.OLEObjects.Add('Forms.CheckBox.1')
With Obj
.Left = Feuil1.Cells(j + 1, 10).Left
.Top = Feuil1.Cells(j + 1, 10).Top
.Width = Feuil1.Cells(j + 1, 10).Width
.Height = Feuil1.Cells(j + 1, 10).Height
.Object.Caption = 'L' & j - 1
.LinkedCell = [B][U]Feuil2[/U][/B].Cells(j, 5).Address
End With

Next j

Le problème est que la LinkedCell de ma CheckBox est de la forme "$F$5" et non pas "Feuill2!$F$5".

Comment peut-on faire ? Ai-je raté quelque chose ?
Merci.
Sergio

 

[Spitnolan08]

Re : LinkedCell d'une checkbox créée en VBA ?

Bonsoir,

Pour indiquer une feuille il faut utiliser la propriété Sheets(MaFeuille) ou Worksheets(mafeuille) donc :

.LinkedCell = Sheets("Feuil2").Cells(j, 5).Address

Mais ceci est également vrai pour le reste du code.

Cordialement

 

[skoobi]

Re : LinkedCell d'une checkbox créée en VBA ?

Bonjour,

essaye ceci:
.LinkedCell = "Feuil2!" & .Cells(j, 5).Address

Edit: salut Spitnolan08, plus rapide

 

[sergio_bzh]

Re : LinkedCell d'une checkbox créée en VBA ?

Merci pour les réponses rapides.

résultat des courses :

.LinkedCell = Sheets("Feuil2").Cells(j, 5).Address

ne fonctionne pas

mais

.LinkedCell = "Feuil2!" & .Cells(j, 5).Address

fonctionne bien.

C'est curieux car on concatène une chaine et une addresse. Mais par contre si je mets une adresse complète directement dans une chaîne telle "Feuill2!F5", ça ne fonctionne pas.

Décidément Excel VBA ne sera jamais simple !

Encore merci.
Sergio

 

[Spitnolan08]

Re : LinkedCell d'une checkbox créée en VBA ?

Re,

Bravo Skoobi,

En fait je vais en rester là car je ne lis pas bien les questions ce soir...
Donc ma réponse était à côté de la plaque. Désolé Sergio_bzh.

Bonne soirée à tous.

 

[deepsoul94]

Re : LinkedCell d'une checkbox créée en VBA ?

C'est curieux car on concatène une chaine et une addresse. Mais par contre si je mets une adresse complète directement dans une chaîne telle "Feuill2!F5", ça ne fonctionne pas.

Décidément Excel VBA ne sera jamais simple !

Sergio

Je sais que le sujet a été clos depuis longtemps mais cela peut toujours intéresser quelqu'un qui tomberait sur cette discussion comme je l'ai fait.

Cela marche à condition que tu indiques bien les $ . Mettre Feuille2$F$5 marchera.
Et si tu as un espace dans ton nom d'onglet,il faudra rajouter des ' .Par exemple 'feuille 2'!$F$5 .
Et si tu as des espaces plus des ' dans ton nom de fichier, chaque ' doit etre remplacé par 2 '. Exemple 'l''onglet d''hadrien'!$F$5

Bonne journée.