XL 2010 Macro cases à cocher

[karakoman1]

Bonsoir à tous,
J' ai une macro qui affiche une image si une case à cocher est effectivement cochée

Sub AfficheImage1()
If Range("a7") = False Then 'case à cocher
ActiveSheet.Shapes("Picture 5").Visible = False
Else
ActiveSheet.Shapes("Picture 5").Visible = True
End If
End Sub

Je voudrais bien transformer cette macro, pour que cette case à cocher se coche si le résultat de la cellule "A11" est = à "Y" et se décoche si le résultat de cette même cellule est = à "N"
Quelqu'un pourrais-t'il m'aider à trouver cette solution?

Merci d'avance et bonne soirée

 

[Staple1600]

Bonsoir le fil, le forum

Quelqu'un pourrais-t'il m'aider à trouver cette solution?

Quelqu'un pourrais-t'il m'aider à trouver la pièce jointe dans le premier message?

 

[karakoman1]

Bonsoir Staple1600
Merci de bien vouloir jeter un œil sur ma demande
Je ne voulais pas trop compliquer l'affaire, mais voila.
Alors je change un peu mes explications.
J'ai u onglet nommé "Données des produits" ou se trouve en colonnes C 1 jusque J1 les fameux "Y" ou "N".
Par un rechercheV je vais faire venir cette donnée en A11 et ainsi de suite pour chaque symbole de danger.
J'aimerais comme expliqué plus haut que si le résultat de chacun de ses symboles est "Y" que la case se coche automatiquement et que par contre si le résultat est "N" que la case soit décochée.

 

[Staple1600]

Re

@karakoman1
Je ne vois aucun recherchev en A11
Ça commence mal

 

[karakoman1]

Re
Par un rechercheV, je "VAIS" faire venir cette donnée en A11

 

[Staple1600]

Re

Les cellules fusionnées me posent des soucis
Et même en les défusionnant et en les centrant sur plusieurs colonnes, le problème persiste.
Donc pour le moment, je passe mon tour.

Sub a()
For Each cb In ActiveSheet.CheckBoxes
If cb.TopLeftCell.Row = 11 Then
MsgBox cb.TopLeftCell.Address
MsgBox Range(cb.TopLeftCell.Address).Offset(-1).Text
End If
Next cb
End Sub

 

[karakoman1]

Re
Je comprends, mais il n'était pas facile de faire un modèle comme ça sans faire de fusion de cellules
Merci quand même. Je pensais que cela aurait été plus facile que ca.
Espérons que quelqu'un d'autre trouve la solution.
Bonne soirée

 

[Staple1600]

Re

Tu as testé ma macro au moins?
Pour voir de quoi je parle.
Et accessoirement où je voulais en venir ensuite...

Sur la ligne 11, on peut utiliser Centrer sur plusieurs colonnes à la place de la fusion de cellules.
Mais telles qu'ont été placées tes cases à cocher, ça bloque pour mettre mon idée de code en place.

 

[karakoman1]

Re
Je l'ai essayé, mais je 'ai pas eu de résultats.
Je dois la mettre ou pour la faire fonctionner?

 

[Staple1600]

Re

Dans un module standard.
Ensuite se mettre sur la feuille Template(2) et lancer la macro.
Quels phénomènes gênants observes-tu alors?

 

[karakoman1]

Re
Je ne comprends pas son fonctionnement, elle m'affiche des
boites de dialogue avec les positions des cellules et le nom des symboles.
Je vois un semblant de fenêtre qui veut s'ouvrir mais disparaît directement.
Mais rien concernant si je mets un "Y" ou un "N" dans la cellule A11.
Peut tu m'expliquer ce qu'elle est censée faire?

 

[Staple1600]

Re,

On observe que la boucle commence à afficher la valeur au dessus des cases à cocher , mais qu'elles ne les affichent pas toutes.
C'est donc ce qui pose problème car ensuite je voulais comparer avec les valeurs de la feuilles Données de produits (cellules C à J) puisque les noms sont les mêmes.
C'est donc pour cela que j'avais écrit

Pour voir de quoi je parle.
Et accessoirement où je voulais en venir ensuite...

Est-ce que désormais, je suis plus clair?

 

[karakoman1]

Re
J'ai vu et pas tout compris, mais il n'est pas possible de faire plus simple?
Par exemple, si aA11 est = à "Y" on coche et si A11 est = à "N" on décoche?

 

[Staple1600]

Re

Comme j'étais bloqué, j'ai changé d'horizon
Et ceci fonctionne

Sub b()
Dim cb As Shape, j&
Application.ScreenUpdating = False
j = 3
For Each cb In Sheet7.Shapes
    If cb.Type = msoFormControl Then
        If cb.FormControlType = xlCheckBox Then
            If cb.TopLeftCell.Row = 11 Then
            cb.OLEFormat.Object.Value = (Sheets("Données des produits").Cells(2, j) = "Y")
            j = j + 1
            End If
        End If
    End If
Next cb
Application.ScreenUpdating = True
End Sub

 

[karakoman1]

Re
Désolé, mais ce n'est toujours pas ce qu'il faut, parce que j'ai mis ta macro dans le module 3, je l'ai fait tourner, mais a part juste cocher les case correspondant à la première ligne de la feuille "données des produits" elle ne fait rien d'autre, ni mettre en couleur quand la case est cochée, ni changer les coches des cases si je change de produit
J'ai mis une formule rechercheV dans la cellule A11 qui dépend du choix fait en "O4" numéro du produit.
Et malgré que je change de produit et que la donnée en A11 change de "N" en "Y" ou inversement, il ne se passe rien, ni couleur rouge sauf si je coche manuellement, ni les coches correspondantes aux données de la feuilles "Données des produits".
Je te joint un nouveau fichier avec les modifications et ta macro dans le Module 3
Bonne nuit