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

  • Initiateur de la discussion Initiateur de la discussion juanitos
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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
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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour