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

juanitos · 17 Juin 2021

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

Softmama · 17 Juin 2021

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 · 17 Juin 2021

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

juanitos · 18 Juin 2021

Merci Beaucoup @Softmama
C'est exactement ce dont j'avait besoin
Encore merci à toi

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

juanitos

XLDnaute Nouveau

Pièces jointes

Softmama

Softmama

XLDnaute Accro

Pièces jointes

juanitos

XLDnaute Nouveau

Discussions similaires