Microsoft 365 Masquer toute la colonne si une condition est remplie

[RCAVBA]

Bonjour,

Je souhaiterais masquer une colonne si toutes les cellules de cette colonne sont valorisées par une valeur "X", via une macro.

Colonne A :
x
x
x
x
x

L'objectif est de créer une macro permettant de masquer toute la colonne si toutes les cellules sont valorisées par un texte "X".

Je vous en remercie.
Cdt,

 

[Yoyo01000]

Bonjour,
quelle colonne doit être masquée ? De quelle cellule à quelle cellule doit-il y avoir des X pour que la macro masque la colonne ?

 

[Yoyo01000]

Quelle colonne ???
De quelle ligne à quelle ligne ???

 

[job75]

Bonjour RCAVBA, Yoyo01000,

Exécutez cette macro :

Sub Masquer()
Application.ScreenUpdating = False
With ActiveSheet.UsedRange
    .Rows(.Rows.Count + 1) = "=1/COUNTIF(R1C:R[-1]C,""X"")"
    On Error Resume Next 'si aucune SpecialCell
    .Rows(.Rows.Count + 1).SpecialCells(xlCellTypeFormulas, 1).EntireColumn.Hidden = True
    .Rows(.Rows.Count + 1).Delete xlUp
End With
End Sub

La ou les colonnes contenant des "X" se masquent.

A+

 

[job75]

@RCAVBA : que vous arrive-t-il ? Remettez au moins le texte du post #1 !

Vous n'êtes pas seul au monde mon ami 🙄

 

[RCAVBA]

Bonjour @job75
Merci pour ce code.
Cependant, ça masque la colonne contenant au moins un "X". L'objectif étant de masquer la colonne si TOUTES les cellules sont valorisées par "X";
Merci

 

[job75]

OK toutes :

Sub Masquer()
Application.ScreenUpdating = False
With ActiveSheet.UsedRange
    .Rows(.Rows.Count + 1) = "=1/(COUNTIF(R1C:R[-1]C,""X"")=" & .Rows.Count & ")"
    On Error Resume Next 'si aucune SpecialCell
    .Rows(.Rows.Count + 1).SpecialCells(xlCellTypeFormulas, 1).EntireColumn.Hidden = True
    .Rows(.Rows.Count + 1).Delete xlUp
End With
End Sub