Rendre cellulles invisible suivant condition

Fermé
matrice1 Messages postés 31 Date d'inscription lundi 30 janvier 2017 Statut Membre Dernière intervention 1 avril 2023 - 10 févr. 2020 à 15:14
matrice1 Messages postés 31 Date d'inscription lundi 30 janvier 2017 Statut Membre Dernière intervention 1 avril 2023 - 10 févr. 2020 à 16:03
Bonjour,
Je cherche à rendre des cellules invisible suivant condition:
Si la valeur est "F" en B3 les cellules D3/E3/F3 sont masqués en sachant qu'il y a déjà une formule dans D3/E3/F3.
Si la valeur est "O" en B3 les cellulesD3/E3/F3 sont visibles
je vous remercie d'avance.

2 réponses

via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
Modifié le 10 févr. 2020 à 15:39
Bonjour

Pas possible de masquer que certaines cellules c'est la ligne ou la colonne entière

Par contre tu peux masquer le contenu

Avec une petite macro à mettre dans le Worksheet de la feuille considérée (ALT+F11 pour ouvrir l'éditer VBA - double clic sur le nom de la feuille voulue dans l'arborescence - copier et coller la macro dans la page blanche avent de fermer l'éditeur
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3")) Is Nothing Then
If Range("B3") = "F" Then Range("D3:F3").NumberFormat = ";;;" Else If Range("B3") = "O" Then Range("D3:F3").NumberFormat = "0.00"
End If
End Sub

Si O en B cela repasse en format numérique, si un autre format désiré changer (par ex : = "General" pour format Standard)

Par contre si les cellules ne sont pas verrouillées ni la feuille protégée il y a risque d'effacer les formules en écrivant dans les cellules qu'on voient vides

Si tu protèges la feuille il faudra en début de macro rajouter
Activesheet.Unprotect

et en fin de macro
Activesheet.Protect


Cdlmnt
Via

0
matrice1 Messages postés 31 Date d'inscription lundi 30 janvier 2017 Statut Membre Dernière intervention 1 avril 2023
10 févr. 2020 à 16:03
Merci de me répondre,
En faite J’ai réussi autrement en mettant dans MFC : dernier choix =$B$3="O" sans mise en forme et MFC : dernier choix =$B$3="F" avec mise en forme,Format Police Blanc.
0