Masquer colonne selon variable

[BRUNO62]

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+

 

[mapomme]

Re : Masquer colonne selon variable

Bonsoir BRUNO62,

Essayer le code suivant:

Sub Masquer()
Const Quoi = "A;B"
Dim elem, Cel As Range, adr$

  For Each elem In Split(Quoi, ";")
    Set Cel = Rows(2).Find(elem)
    If Not Cel Is Nothing Then
      adr = Cel.Address
      Do
        Cel.EntireColumn.Hidden = True
        Set Cel = Rows(2).FindNext(Cel)
      Loop Until Cel.Address = adr
    End If
  Next elem
End Sub

 

[BRUNO62]

Re : Masquer colonne selon variable

Bonjour mapomme,

Je viens d'essayer ton code, il fonctionne très bien.
Grand merci.
Bonne journée à tous.
A+