Cacher une ligne sous conditions [Résolu]

Signaler
-
Messages postés
1183
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
28 octobre 2020
-
Bonjour,

J'aurais besoin d'une aide concernant une formule VBA à créer.

Si la cellule C10 = "Entreprises", tu affiches les lignes 15 et 16.

Si la cellule C10 <>"Entreprises", tu masques les lignes 15 et 16.

Le but c'est que cela se fasse automatiquement sans avoir de bouton macro pour activer....

Merci d'avance de votre aide.

6 réponses

Top, c'est parfait.
Merci beaucoup.

Bonne journée à vous et merci
Messages postés
1183
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
28 octobre 2020
117
Bonjour,

à tester :

Sub masquer()
If Range("C10").Value <> "Entreprises" Then
Range("15:16").Select
    Selection.EntireRow.Hidden = True
    Else
Range("15:16").Select
    Selection.EntireRow.Hidden = False
    End If
End Sub


La macro fonctionne mais j'aimerais la meme chose sans utiliser un bouton relié à la macro.

Est-ce possible de le faire en automatique dans la feuille?
Messages postés
16279
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
30 octobre 2020
3 056
bonjour,

Oui, mais à condition que tu écrives "Entreprises" manuellement
Cela ne fonctionne pas en automatique. Même si je l'écris manuellement....

Il manquerait un code pour qu'il se fasse sans macro peut etre?
Messages postés
16279
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
30 octobre 2020
3 056
Re
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$10" Then
If Target = "Entreprises" Then
Rows("15:16").Hidden = True
Else
Rows("15:16").Hidden = False
End If
End If
End Sub


A intaller dans la fenètre "général" : this worksheet et dans la fenetre "déclaration": "change"

Messages postés
1183
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
28 octobre 2020
117
Pas eu le temps de répondre avant, merci michel_m (salutations) d'avoir pris la relève ;)
Messages postés
16279
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
30 octobre 2020
3 056 >
Messages postés
1183
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
28 octobre 2020

salut Yoyo

Pad'koi! pour une fois que je m'étais privé de sieste...

Cordialement
Messages postés
1183
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
28 octobre 2020
117 >
Messages postés
16279
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
30 octobre 2020

J'ai même remarqué l'écriture de ton code, d'une autre façon sans qu'il n'y ait de Select ;)