Microsoft 365 Masquer une colonne via une macro

[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,

 

[_Thierry]

Bonsoir @RCAVBA, le Forum

Un exemple de base :

Sub HiddingX()
Dim Cell As Range
Dim x As Integer

For Each Cell In Range("A2:A21")
    If Cell = "x" Then
        x = x + 1
    End If
Next Cell

If x = 20 Then
Columns("A:A").EntireColumn.Hidden = True
End If

End Sub

Bien à toi, à vous
@+Thierry

 

[eriiic]

Bonjour,

doublon.
Sans doute que ça n'allait pas assez vite ici : https://www.excel-downloads.com/thr...olonne-si-une-condition-est-remplie.20045681/
eric