Discussion :

[iio0n]

Bonjour à tous,

Je travaille sur un projet où l'on me demande de réorganiser le fichier excel de façon à ce que se soit plus rapide et facile d'utilisation.
J'ai un problème avec les Checkbox ...
Je souhaiterai que lorsque l'on click sur une checkbox dans un onglet, une checkbox dans l'onglet principal s'active.
Voici la macro que j'ai fait, mais cela ne fonctionne pas...

Code :

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

1
2
3
4
5
Private Sub PA1_Click()
 
If PA1.Value = True Then P1.Value = True
 
End Sub

PA1 est la Checkbox d'un onglet qqc et P1 est la Checkbox de l'onglet principal.

Quelqu'un saurait-il m'aiguiller afin que je puisse avancer s'il vous plaît?

Cordialement,

Marion

[edelweisseric]

Bonjour à tous
Bonjour iio0n et bienvenu

Tu devrais mettre le nom de la feuille devant (Sheets("Feuil2").CheckBox1.Value), VBA sait ce que tu veux faire et en plus cela devrait fonctionner

Eric

[iio0n]

Merci beaucoup!! C'était tout bête en fait!
Bonne journée à vous!!!

Marion

[Philippe Tulliez]

Bonjour,
Bien que ma réponse vienne en écho à celle d'edelweisseric, je la publie tout de même parce-qu'elle a été bloquée par la panne du serveur de dvp.

---

Je suppose que ton checkbox est un contrôle ActiveX or ceux-ci sont liés à la feuille de calcul où il se trouve.
Imaginons un contrôle ActiveX CheckBox nommé chkPA3 se trouvant sur la feuille nommée [Feuil3] et un autre contrôle de nommé chkP3 se trouvant sur la feuille nommée [Principal]

Exemple d'un contrôle CheckBox nommé chkPA3 qui se trouve sur la feuille nommée [Feuil3].
Dans la procédure événementielle Click de l'objet ckkPA3 du module [Feuil3] le code sera

Code :

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

1
2
3
Private Sub chkPA3_Click()
 ThisWorkbook.Worksheets("Principal").chkP3.Value = chkPA3.Value
End Sub

On peut constater que pour le contrôle chkP3 il a fallu préciser ces objets parents (ThisWorkbook.Worksheets("Principal")) alors que pour chkPA3 les objets parents sont implicitement ThisWorkBook et Feuil3

[EDIT]
Si tu souhaites que les deux CheckBox soient synchronisés, j'utiliserais plutôt la propriété LinkedCell et ce sans aucun code VBA.

[edelweisseric]

Bonsoir à tous
Bonsoir Philippe, Marion et bienvenue

Merci Philippe, j'ai encore appris quelque chose

Eric

[iio0n]

Voici ce que j'ai utilisé pour que le programme fonctionne !

Code :

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

1
2
3
4
5
6
7
Private Sub PA1_Click()
If PA1.Value = True Then
Sheets("Contrat d'agence 2014").P1.Value = True
Else
Sheets("Contrat d'agence 2014").P1.Value = False
End If
End Sub

Ce code fonctionne parfaitement du coup

J'aurai une petite question: Qu'est ce que "LinkedCell"? Excusez-moi, je suis encore novice sur excel ... enfin, plus performante qu'avant, mais c'est pas encore ça!^^

Merci pour votre "bienvenue", c'est très sympa!

J'aurai éventuellement une autre question concernant VBA ...
Depuis quelques jours, je m'arrache les cheveux à trouver une solution pour extraire certains graphes dans un fichier PDF...
Voici la démarche que l'on m'a demandé de faire :
Clicker sur des Checkbox afin de sélectionner les onglets où se trouve chaque graphes
Copier les graphes des onglets cochés
Et les extraire tous dans un PDF

Hum, comment dire, compliqué pour moi
Alors j'ai pensé pour faire plus simple, Faire la même démarche mais pour les copier dans un onglet réservé à cet effet et extraire ensuite via Bouton en pdf

J'ai essayé des tonnes de code, mais en vain...
Auriez-vous une petite idée de manip afin de m'aiguiller sur la démarche à suivre svp?

Cordialement,

Marion

[Philippe Tulliez]

Bonjour,
Alors tu traites deux questions dans une même discussion ce qui n'est pas facile à gérer
Pour ce qui concerne la question sur le pdf, tu dois ouvrir une nouvelle discussion ou te diriger vers cette discussion qui est spécialisée sur ce sujet Excel / Word / PDF avec Adobe Acrobat Pro et PDFCreator

J'aurai une petite question: Qu'est ce que "LinkedCell"? Excusez-moi, je suis encore novice sur excel ... enfin, plus performante qu'avant, mais c'est pas encore ça!

En ce qui concerne cette propriété.
Sans VBA, il suffit de donner à deux CheckBox (Contole ActiveX) comme valeur à la propriété LinkedCell une adresse commune d'une cellule du classeur pour que le contrôle ActiveX écrive ou lise la valeur du contrôle. Ce qui permet de synchroniser les deux contrôles.
Pour changer les propriétés d'un contrôle ActiveX, il suffit lorsqu'il est sélectionné de faire un clic droit et sélectionner Propriété dans le menu contextuel.
Prenons un nouveau classeur Excel avec trois feuilles nommées Feuil1, Feuil2 et Feuil3
Nous dessinons sur la feuille nommée [Feuil1] un contrôle ActiveX CheckBox que nous nommons chkQ1Feuil1 et nous dessinons sur la feuille nommée [Feuil2] un autre contrôle CheckBox que nous nommons chkFeuil2 et dans les deux contrôles nous tapons dans la propriété LinkedCel, l'adresse suivante : Feuil3!A1
A partir de maintenant, les deux contrôles sont liés. Si l'on coche ou si l'on décoche l'un deux, l'autre prendra le même état. De même en cellule A1 de la feuille nommée [Feuil3] on verra soit VRAI, soit FAUX. Et en modifiant cette valeur on changera l'état des deux CheckBox.
Tout cela sans aucune ligne VBA.
Cela fonctionne également avec les contrôles formulaires. Là c'est clic droit Format de contrôle... et taper l'adresse de la cellule dans le champ Cellule liée

[iio0n]

Merci beaucoup pour ce petit cours très pratique qui évite les macro!!
C'est très instructif!

Pas de soucis pour ma deuxième question! C'est vrai que ce n'est pas évident à gérer ^^

En tout cas, je vous remercie tous, c'est vraiment gentil de votre part, vous m'avez été d'une grande aide!

Cordialement,

Marion

[Philippe Tulliez]

Bonjour Marion,
Merci pour ton retour.
Si le sujet t'intéresse à lire sur le même sujet (cellule liée) cette contribution A l'aide de 2 listes déroulantes et sans VBA - Comment rechercher une information dans une base de données