Cacher une ligne sous conditions

Résolu
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

  1. Top, c'est parfait.
    Merci beaucoup.

    Bonne journée à vous et merci
    1
    1. 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


      0
      1. 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?
        0
        1. Contributeur
          bonjour,

          Oui, mais à condition que tu écrives "Entreprises" manuellement
          0
          1. 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?
            0
            1. Contributeur
              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"

              0
              1. Pas eu le temps de répondre avant, merci michel_m (salutations) d'avoir pris la relève ;)
                0
              2. Contributeur
                @Yoyo01000salut Yoyo

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

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