Cacher une ligne sous conditions

Résolu
imsa -  
Yoyo01000 Messages postés 1720 Date d'inscription   Statut Membre Dernière intervention   -
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. imsa
     
    Top, c'est parfait.
    Merci beaucoup.

    Bonne journée à vous et merci
    1
  2. Yoyo01000 Messages postés 1720 Date d'inscription   Statut Membre Dernière intervention   168
     
    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
  3. imsa
     
    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
  4. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    bonjour,

    Oui, mais à condition que tu écrives "Entreprises" manuellement
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. imsa
     
    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
  7. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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. Yoyo01000 Messages postés 1720 Date d'inscription   Statut Membre Dernière intervention   168
       
      Pas eu le temps de répondre avant, merci michel_m (salutations) d'avoir pris la relève ;)
      0
      1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320 > Yoyo01000 Messages postés 1720 Date d'inscription   Statut Membre Dernière intervention  
         
        salut Yoyo

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

        Cordialement
        0
      2. Yoyo01000 Messages postés 1720 Date d'inscription   Statut Membre Dernière intervention   168 > michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention  
         
        J'ai même remarqué l'écriture de ton code, d'une autre façon sans qu'il n'y ait de Select ;)
        0