Afficher/Masquer les Lignes Selon Déroulante de Sélection

C'est la première fois que je travaille avec des Macros.
J'ai créé une liste déroulante en B2 avec un "Oui" et "Non" options.

  • Si l'Utilisateur sélectionne "Oui", Ligne 10 Montre /Ligne 11 se Cache
  • Si L'Utilisateur Sélectionne "Non", Ligne 11 Montre /Ligne 10 Cache

J'ai utilisé ce code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
If Range("B2") = Yes Then
    ActiveSheet.Rows("10:10").EntireRow.Hidden = False
    ActiveSheet.Rows("11:11").EntireRow.Hidden = True
ElseIf Range("B2") = No Then
    ActiveSheet.Rows("10:10").EntireRow.Hidden = True
    ActiveSheet.Rows("11:11").EntireRow.Hidden = False
End If
End If
End Sub

J'ai Créé un nouveau Module dans Feuil1, et l'a mis là. J'ai sauvé le excel en tant que Macro Activé Tamplate, cependant rien ne se passe lorsque je modifie la liste déroulante.

Merci pour votre aide!

InformationsquelleAutor pufAmuf | 2013-06-05
  1. 2
    If Range("B2") = "Yes" Then

    et de même avec l'option "Non"

    • Merci, je viens de pensé à elle :). Josie, est-il un moyen de masquer une ligne de l'affectation d'un nom de variable pour elle? J'ai remarqué que si j'ai une macro de script insérer une nouvelle ligne, puis Rows("10:10") n'est plus la ligne droite - comme tous les soutiennent a été déplacé vers le bas.
    • oui, vous pouvez nommer une cellule dans la ligne 10 et ensuite utiliser range("range_name").EntireRow.Hidden = False par exemple
    • Merci! Je pense que je aalmost l'a obtenu. Maintenant, j'ai une Erreur d'EXÉCUTION 1004. Method of 'Range' of object '_Worksheet' Failed. Voici le code que j'utilise: jsfiddle.net/tG5X3
    • le code qui attribue les noms de préciser la feuille de Lignes appartient à je suis en supposant que c'est le même que celui de votre événement de changement de code est dans
    InformationsquelleAutor JosieP
  2. 3

    Faites-vous une faveur énorme et obtenir dans l'habitude d'écrire Option Explicit en haut de chaque module de code VBA que vous écrivez.

    J'ai ajouté des commentaires expliquant votre besoin de révisions.

    'this requires you to dimension all variables
'when you used '= yes' VBA thought you were saying
'the same as, = aVariable
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$2" Then
        If Range("B2").Value = "Yes" Then
            'You can reference the row directly on the same sheet
            'and do not need ActiveSheet
            Rows("10:10").EntireRow.Hidden = False
            Rows("11:11").EntireRow.Hidden = True
        ElseIf Range("B2").Value = "No" Then
            Rows("10:10").EntireRow.Hidden = True
            Rows("11:11").EntireRow.Hidden = False
        End If
    End If
End Sub

    Aussi être conscient c'est seulement à l'aide de "Oui" par "oui" ou "OUI" va causer des problèmes. Vous pouvez utiliser le UCase méthode comme suit si vous voulez éviter ces situations à l'avenir:

            If UCase(Range("B2").Value) = "YES" Then
    InformationsquelleAutor enderland