Excel, cacher des lignes sous coudition

ARodriguezzz -  
via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'aimerai pouvoir faire apparaitre/disparaitre les lignes 20 à 67 en fonction de la réponse en cellule E18 :

- Si "oui" alors faire apparaitre lignes
- Si "non" : qu'elles n'apparaissent pas

Je pensais que ce serait simple, mais incapable d'y arriver...

Configuration: Macintosh / Safari 13.1.1

1 réponse

  1. via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759
     
    Bonsoir

    Faisable par une macro mise dans worksheet de la feuille concernée

    ALT+F11 pour ouvrir l'éditeur VBA
    Sélectionner la feuille dans l'arborescence à gauche par double-clic
    Copier-coller la macro ci-dessous
    Fermer l'éditeur

    Private Sub Worksheet_Change(ByVal Target As Range)
    ' si  modification en E18
    If Not Intersect(Target, Range("E18")) Is Nothing Then
    ' plage à selectionner
     Rows("20:67").Select
     ' si oui en E18 on masque la selection
    If Target.Value = "oui" Then
     Selection.EntireRow.Hidden = True
    Else
    'sinon on demasque la selection
     Selection.EntireRow.Hidden = False
    End If
    ' cellule où se positionner après le choix en E18
    Range("F18").Select
    End If
    End Sub
    

    Cdlmnt
    Via
    0