Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Faire apparaitre ou non une ligne en fonction du choix d'un ligne précédente

juanitos

XLDnaute Nouveau
Bonjour,

Je vais essayer de m'expliquer mais cela n'est pas simple.

Je joins un fichier cela sera plus explicite

Dans mon 1er onglet (Feuil1), en fonction du nom de société choisit dans la liste déroulante de la cellule C1, si la société fait parti de l'ORG0011 dans le 2ème onglet (Feuil2) alors faire apparaitre les lignes 3 et 5 dans mon 1er onglet (Feuil1) sinon masquer ces 2 lignes.

D'avance merci de votre aide
 

Pièces jointes

  • juanitos_test.xlsm
    22 KB · Affichages: 11
Solution
Bonjour,

Cette macro événementiel sur la feuille1 résout votre problème :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$1" Then 'Si la cellule qui a changé est la cellule C1
  If Application.WorksheetFunction.VLookup(Target, Feuil6.Range("A1:B100"), 2, False) = "ORG0001" Then 'Si la société fait partie de ORG0001 alors
    Rows("2:5").Hidden = False 'on affiche les lignes 2 à 5
  Else 'sinon
    Rows("2:5").Hidden = True 'on les masque
  End If
End If
End Sub

cf. Fichier joint

Softmama

XLDnaute Accro
Bonjour,

Cette macro événementiel sur la feuille1 résout votre problème :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$1" Then 'Si la cellule qui a changé est la cellule C1
  If Application.WorksheetFunction.VLookup(Target, Feuil6.Range("A1:B100"), 2, False) = "ORG0001" Then 'Si la société fait partie de ORG0001 alors
    Rows("2:5").Hidden = False 'on affiche les lignes 2 à 5
  Else 'sinon
    Rows("2:5").Hidden = True 'on les masque
  End If
End If
End Sub

cf. Fichier joint
 

Pièces jointes

  • juanitos_test.xlsm
    27.5 KB · Affichages: 4

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…