Masquer une colonne en fct d'une valeur

[BRUNO62]

Bonsoir,

Cette macro fonctionne très bien pour une feuille
Elle cache chacune des Colonnes contenant ok (ou OK) dans la ligne 10.

Par contre pour deux feuilles, cela ne va pas.
Avez vous une idée
A+

Sub test()🙂
With Sheets("Feuil1").Select

Dim Cel As Range
Do
* * Set Cel = Rows(10).SpecialCells(xlCellTypeVisible).Find("ok")
* * If Cel Is Nothing Then
* * * * Exit Sub
* * Else
* * * * Columns(Cel.Column).Hidden = True
* * End If
Loop
End Sub
__________________________________________________________

Sub test()😕
With Sheets("Feuil1").Select

Dim Cel As Range
Do
Set Cel = Rows(10).SpecialCells(xlCellTypeVisible).Find("ok")
If Cel Is Nothing Then
Exit Sub
Else
Columns(Cel.Column).Hidden = True
End If
Loop

With Sheets("Feuil2").Select

Dim Cel As Range
Do
Set Cel = Rows(10).SpecialCells(xlCellTypeVisible).Find("ok")
If Cel Is Nothing Then
Exit Sub
Else
Columns(Cel.Column).Hidden = True
End If
Loop

End Sub

 

[julberto]

Re : Masquer une colonne en fct d'une valeur

Bonjour BRUNO62

Ceci devrait le faire

Option Explicit

Sub test()

Dim Cel As Range
With Sheets("Feuil1")
   Do
      Set Cel = .Rows(10).SpecialCells(xlCellTypeVisible).Find("ok")
      If Cel Is Nothing Then
         Exit Do
      Else
         .Columns(Cel.Column).Hidden = True
      End If
   Loop
End With

With Sheets("Feuil2")
   Do
      Set Cel = .Rows(10).SpecialCells(xlCellTypeVisible).Find("ok")
      If Cel Is Nothing Then
         Exit Sub
      Else
         .Columns(Cel.Column).Hidden = True
      End If
   Loop
End With

End Sub

cordialement

 

[bbb38]

Re : Masquer une colonne en fct d'une valeur

Bonjour Bruno62, le forum,
Une solution dans le fichier ci-joint, à adapter à ton projet.
Cordialement,
Bernard


Bonjour julberto : une minute de retard, le temps d’envoyer… Salutations.

 

[BRUNO62]

Re : Masquer une colonne en fct d'une valeur

Bonjour julberto et bbb38,

C'est ok, j'ai utilisé celle de julberto. Grand merci.
bbb38, encore merci pour ta solution donnée.
Bonne journée
A+