Bonjour,
Je souhaite masquer une ou plusieurs colonnes en fonction de variable "A" ou "B" positionner sur la ligne 2.
Ci-dessous extrait VBA
Sub A()
Dim Cel As Range
Do
Set Cel = Rows(2).SpecialCells(xlCellTypeVisible).Find("A") or Set Cel = Rows(2).SpecialCells(xlCellTypeVisible).Find("B")
If Cel Is Nothing Then
Exit Sub
Else
Columns(Cel.Column).Hidden = True
End If
Loop
End Sub
Cela ne fonctionne pas. Merci, de votre aide.
Bonne soirée.
A+
Je souhaite masquer une ou plusieurs colonnes en fonction de variable "A" ou "B" positionner sur la ligne 2.
Ci-dessous extrait VBA
Sub A()
Dim Cel As Range
Do
Set Cel = Rows(2).SpecialCells(xlCellTypeVisible).Find("A") or Set Cel = Rows(2).SpecialCells(xlCellTypeVisible).Find("B")
If Cel Is Nothing Then
Exit Sub
Else
Columns(Cel.Column).Hidden = True
End If
Loop
End Sub
Cela ne fonctionne pas. Merci, de votre aide.
Bonne soirée.
A+