XL 2019 Sélectionner toutes les cellules avec une valeur X

[niiroby]

Bonjour à tous,

J'essaie de sélectionner uniquement toutes les cellules avec les valeurs X.

Je pense ne pas être loin du compte dans le fichier joint.

Le but final est de cacher les colonnes qui n'ont aucune cellule sélectionnée.

Je vous remercie d'avance.

 

[Wayki]

Bonjour,
Dans l'idéal il faudrait je pense utiliser un tableau dans VBA mais je ne sais pas faire.
J'ai trouvé une façon de faire avec une recherche via Inputbox.
Ci-joint
A +

 

[job75]

Bonjour niiroby, Wayki,

Voyez le fichier joint et ces 2 macros :

Sub Masquer()
'se lance par les touches Ctrl+M
Dim v, r As Range
v = ActiveCell
Application.ScreenUpdating = False
Afficher 'RAZ
With ActiveSheet.UsedRange
    .Replace v, "#N/A", xlWhole
    .SpecialCells(xlCellTypeConstants, 16).Select
    Selection = v
    For Each r In .Rows
        If Intersect(r, Selection) Is Nothing Then r.Hidden = True
    Next
    For Each r In .Columns
        If Intersect(r, Selection) Is Nothing Then r.Hidden = True
    Next
End With
End Sub

Sub Afficher()
'se lance par les touches Ctrl+A
ActiveCell.Select
Rows.Hidden = False
Columns.Hidden = False
End Sub

A+