Microsoft 365 Masquer case option si non cochée

[raf26]

Bonjour

J'ai sur la même ligne 4 cases d'option (une case sur 4 peut être cochée).

Comment masquer les 3 autres cases lorsque il y en a une de cocher ?

Ou sinon comment ne pas les imprimer si elles sont vides ?

Ci-joint une version de mon fichier.

Merci

Cordialement

 

[sylvanu]

Bonjour Raf,
Quand je ne trouve pas de solution, je contourne le problème.
On peut mettre des X pour les choix en cliquant sur les cellules. Ce qui revient au même pour le résultat que de mettre des cases d'option.
A tester.

 

[sylvanu]

Re Raf,
En plus fun pour éviter les X et revenir à de petits ronds.

 

[raf26]

Bonjour Sylvanu,

Merci pour ton fichier, c'est génial !

Cependant, lorsque je recopie la macro dans mon "vrai" fichier, j'ai une erreur

J'ai bien appliqué à D14:G43 + D47:G70 la mise en forme Webdings (j'ai reproduit la mise en forme d'après ton fichier).

 

[sylvanu]

Bonjour,
Et vous avez appelé les plages SavoirFaire et SavoirEtre ?

 

[sylvanu]

D'autre part, j'ai collé n'importe quoi en code, pour la seconde partie :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Matrice en police Webdings, point = caractère "n"
' Attention à l'offset entre No de ligne et première ligne de la matrice.
' Savoir faire
If Not Application.Intersect(Target, [D14:G43]) Is Nothing Then
    Ligne = Target.Row                                                      ' On récupère le No de ligne
    [SavoirFaire].Range(Cells(Ligne - 13, 1), Cells(Ligne - 13, 4)) = ""    ' On efface la ligne
    Target.Value = "n"                                                      ' On met un point sur la bonne colonne
End If
' Savoir être
If Not Application.Intersect(Target, [D47:G70]) Is Nothing Then
    Ligne = Target.Row
    [SavoirEtre].Range(Cells(Ligne - 46, 1), Cells(Ligne - 46, 4)) = ""
    Target.Value = "n"
End If
End Sub

 

[raf26]

Re Bonjour

Bah évidemment non !

Et cela marche beaucoup mieux avec les plages nommées ...!!

Un grand grand merci pour ce fantastique boulot.

Joyeuses fêtes

Cordialement