cocher une checkbox à partir d'une autre Résolu/Fermé

Question

Bonjour, 

désolé de vous déranger mais sa fait une semaine que je cherche partout et que je ne trouve pas de réponse. j'ai un problème je souhaiterais cocher une checkbox dans un fichier excel et que ceci me coche en retour une checkbox d'un autre fichier excel. 
alors je me doute qui faut passer par un code vba mais je n'y arrive pas. 
si quelqu'un pouvais m'aider ...

merci

remousse · Answer

ayant fait des macros ainsi que du VBA je n'ai pas le souvenir que ce soit possible.
Entre des feuilles de calculs différentes mais d'un même classeur oui mais entre 2 fichiers excel j'en doute après je peux me tromper.

tomlinson33 · Answer

je n'arrive même plus à trouve le code pour cocher une checkbox d'un second formulaire à partir du premier (sur vb) parce qu'à partir de vb je pense qu'on peut vite se tourner vers vba, j'ai essayé 

private sub CheckBox1() 

     userform2.oleobjects("checkbox2").object.value=true 

end sub 

il me semblais que c'étais un truc du genre mais ca ne marche pas ..

remousse · Answer

normalement de mémoire le code pour cocher une checkbox d'une autre feuille suivant celle d'une feuille doit être:

Private Sub cocher()
    If Sheets("Feuil1").OLEObjects("CheckBox1").Object.Value = True Then
        Sheets("Feuil2").OLEObjects("CheckBox2").Object.Value = True
    End If
End Sub

NB: Code non testé

tomlinson33 · Answer

merci beaucoup ton code marche cependant il marche que pour deux checkbox sur le meme fichier excel, comment je fais pour appelé l'autre fichier excel.  ( je suppose que l'autre fichier est déjà ouvert pour simplifier le problème ) . en fet je connais pas le raccourci pour appeler un autre fichier excel , par quoi dois-je remplacer cette ligne 

Sheets("Feuil2").OLEObjects("CheckBox2").Object.Value = True

remousse · Answer

la j'en suis pas sur du tout car je ne l'ai jamais tester ni fait:

Ouverture du 2ème fichier Excel:

Workbooks.Open ("C:\........xlsx")

Puis à partir de là je pense que tu peux travailler sur ton deuxième fichier en fonction du premier.

Je dis bien je n'en suis pas sur car je ne l'ai jamais fait.

NB: tu as plusieurs propriété importante concernant l'ouverture du 2ème fichier tel que ActiveWindow.Close (SaveChanges = False)

tomlinson33 · Answer

désolé je me suis mal exprimé! mon second fichier excel est déjà ouvert. le seul problème c'est que je peux pas écrire sur vba la formule suivante 

Sheets("Feuil2").OLEObjects("CheckBox2").Object.Value = True

il faudrait un code du genre

nom_2eme_fichier.Sheets("Feuil2").OLEObjects("CheckBox2").Object.Value = True

mais celui la est faux et c'est la que je bloque

remousse · Answer

du coup je pense que tu peux essayer un truc du genre:

Workbooks("nom_fichier.xls").Sheets(....)

Sans tester tout de suite le lien entre les CheckBox test juste un MSgBox ou un truc vraiment simple pour voir si le lien entre les 2 fichier se fait

tomlinson33 · Answer

je sais pas je crois que ça marche pas, mais je n'arrive même plus à faire fonctionner deux checkbox du même dossier excel mais pas le même onglet donc c'est peut-être moi. je commence a saturer de ces checkbox je pensais pas que c'étais si compliqué ! il me dis à chaque fois erreur 9 l'indice n'appartient pas à la sélection

remousse · Answer

la par contre je sèche...
essaie de bien reprendre ton code du début et de vérifier que tu n'a pas de petites erreurs qui pourraient faire planter la suite

tomlinson33 · Answer

C'est bon !!!!
il faut bien appeler la fonction workbooks en revanche elle s'écrit de la manière suivante

workbooks("nom_du_fichier.XLS")

tomlinson33 · Answer

je te remerci beaucoup pour ton aide et pour ton temps remousse

Cocher une checkbox à partir d'une autre

11 réponses

Discussions similaires