Question : Modifier le macro de cellules de peau pour inclure les gammes multiples

J'ai le macro suivant et je veux l'augmenter pour inclure plus de conditions. Par exemple, je veux dire cela si G5 = non, puis la peau rame le 14h16 ou si G5=U, puis la peau rame le 18h19. En d'autres termes, je veux ajouter plus de conditions.

How j'écris ce code ((je sais que je suis un stupide, je dois acheter un livre de VBA). Voici un exemple du macro fonctionnel que j'ai : Le
du

Option Explicit

Private Worksheet_Change (cible de ByVal comme gamme) sinon intersectent (cible, gamme (« G5 »)) N'est rien Then
si UCase (cible) = « Y » Then
rame (« 8h11 ").EntireRow.Hidden = True
Else
rame (« 8h11 ").EntireRow.HidEnd If
End Sub
de/>den = de False
class= de

Réponse : Modifier le macro de cellules de peau pour inclure les gammes multiples

La solution ad hoc


Option explicite

Worksheet_Change secondaire privé (cible de ByVal comme gamme)
Sinon intersecter (cible, gamme (« G5 »)) N'est rien alors
    Si UCase (cible) = « Y » puis
        Rangées (« 8h11 ").EntireRow.Hidden = rectifient
    Autrement
        Rangées (« 8h11 ").EntireRow.Hidden = faux
    Finir si
       Si UCase (cible) = « pas » puis
        Rangées (« 14h15 ").EntireRow.Hidden = rectifient
    Autrement
        Rangées (« 14h15 ").EntireRow.Hidden = faux
    Finir si
   Si UCase (cible) = « U » puis
        Rangées (« 18h19 ").EntireRow.Hidden = rectifient
    Autrement
        Rangées (« 18h19 ").EntireRow.Hidden = faux
    Finir si

Finir si
Finir le sous-marin