Salut Karen, Salut Stef, Salut le forum,
le code suivant permet d'afficher uniquement les lignes dont toutes les colonnes commencent par "!". J'espère que c'est bien cela que tu demandes.
Si dans la ligne il y a au moins une cellule sans point d'exclamation, la ligne entière sera masquée.
voici le code à recopier :
Public Sub Exclam()
Dim ligne As String
Dim plage As String
ligne = Range("A1:A" & Range("A65536").End(xlUp).Row).Address
For Each cel In Range(ligne)
plage = Range(cel, Cells(cel.Row, 16)).Address
For Each cellul In Range(plage)
If Mid(cellul.Value, 1, 1) <> "!" Then
cellul.EntireRow.Hidden = True
GoTo fin
End If
Next cellul
fin:
Next cel
End Sub
pour réafficher toutes les lignes, sélectionne tout (Ctrl A), puis menu Format / Ligne / Afficher (ou avec le clic droit de la souris dans n'importe que en-tête de ligne).
À plus,
Robert