Masquer une ligne sous conditions

Oui bien sûr.

Dans l'éditeur VBA, vous double cliquez sur votre feuille. Vous cliquez ensuite sur (Général) en haut et vous mettez "Worksheet". A droite sera normalement écrit "SelectionChange" sinon, le mettre.

Ensuite, écrire la macro dessous.

Exemple :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim DL As Long, i As Long

DL = Cells(Application.Rows.Count, 1).End(xlUp).Row 'A adapter, 1 est la colonne de référence pour savoir quelle est ta dernière ligne (mettre le numéro de colonne qui est remplie le plus bas du tableau)

For i = 1 To DL 'A adapter également, 1 est le numéro de la ligne où commence le code

If Range("B" & i) = "Non" Then 'Si la cellule B de la ligne i est égale à "Non" alors...

    Rows(i).Hidden = True 'Masquer la ligne concernée (i)

End If

Next i

End Sub

Cordialement.

Oui normalement vous pouvez choisir (Worksheet). Mais peu importe, double cliquez sur votre feuille (dans le panneau de gauche (Feuil1 normalement)). Ensuite copiez collez le dernier code que je vous ai indiqué dans le cadre du dessous et le tour est joué.

La macro n'a pas disparu. Il ne s'agit pas d'une macro, en fait pas d'un module. Il s'agit d'un code exécuté à chaque changement de sélection sur la feuille.

Dans l'onglet "Développeur", cliquer sur "Visual Basic". Double cliquez sur votre feuille dans le panneau de gauche en haut. En dessous de Microsoft Excel Objects (Feuil 1 normalement).

Copier le code suivant :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim DL As Long, i As Long

DL = Cells(Application.Rows.Count, 1).End(xlUp).Row 'A adapter, 1 est la colonne de référence pour savoir quelle est ta dernière ligne (mettre le numéro de colonne qui est remplie le plus bas du tableau)

For i = 1 To DL 'A adapter également, 1 est le numéro de la ligne où commence le code

If Range("B" & i) = "Non" Then 'Si la cellule B de la ligne i est égale à "Non" alors...

    Rows(i).Hidden = True 'Masquer la ligne concernée (i)

End If

Next i

End Sub

Le coller dans la partie blanche de droite.

Sortir et essayer. (le code s'exécute à chaque fois que vous sélectionnez n'importe quelle cellule de la feuille).

Cordialement.

Si ca ne marche pas, je vous propose de m'envoyer un fichier anonymé via le site www.cjoint.com.

Cordialement.

je ne sais pas si c'est à moi que tu répondais (bonjour, michel?)
j'ai rectifié un truc ou deux (end if supprimé) mais je viens de tester avec succès ma proposition suivant ta demande:
dans la cellule B4 j'ai le choix de sélectionner "Oui" ou "Non", Si B4 = "Non" je voudrais que la ligne 5 (en entier) soit masquée.
le code modifié

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$B$4" Then 'limite l'action au changement dans B4
    If Target = "Non" Then Rows(5).Hidden = True 'ligne 5 cachée
    If Target = "Oui" Then Rows(5).Hidden = False
    'si B4 vide: aucune action
End If
End Sub