Recherche code VBA pour masquer colonnes en fonction de valeurs

[Aramis06]

Bonjour,

je suis à la recherche d'un code pour créer une macro faisant l'opération suivante :

Contrôler les valeurs contenues dans chaque cellule d'une ligne donnée.
Si une cellule contient le texte "OK" alors cacher la colonne entière.

J'ai trouvé le code ci-dessous, permettant de réaliser une opération similaire sur des lignes, mais je n'arrive pas à le retravailler pour faire ce que je souhaite :

Sub HideRows()
BeginRow = 1
EndRow = 100
ChkCol = 3

For RowCnt = BeginRow To EndRow
If Cells(RowCnt, ChkCol).Value < 5 Then
Cells(RowCnt, ChkCol).EntireRow.Hidden = True
End If
Next RowCnt
End Sub

Pouvez-vous m'aider?
Merci d'avance,😱

 

[Fred0o]

Re : Recherche code VBA pour masquer colonnes en fonction de valeurs

Bonjour Aramis06 et bienvenue sur le Forum.

Voici la transcription exacte du code, adaptée aux colonnes :

Sub CacheColonnes()
    ColDebut = 1
    ColFin = 100

    For ColCnt = ColDebut To ColFin
        If Cells(ColCnt, ActiveCell.Row).Value = "OK" Then
            Cells(RowCnt, ChkCol).EntireColumn.Hidden = True
        End If
    Next
End Sub

Ce code cache chaque colonne (entre colonne 1 et colonne 100) de la ligne sur laquelle se trouve le curseur, si la cellule contient "OK"

A+

 

[Gorfael]

Re : Recherche code VBA pour masquer colonnes en fonction de valeurs

Salut Aramis06 et le forum
Bienvenue

Sub test()
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

C'est juste un principe de code : il cache chacune des Colonnes contenant ok (ou OK) dans la ligne 10 (Rows(10)).
A+

 

[Aramis06]

Re : Recherche code VBA pour masquer colonnes en fonction de valeurs

Bonjour,
Merci pour vos réponses rapides! Cela marche bien, et correspond bien à ce que je recherchais.
Petite complication : comment faire si l'on veut rechercher plusieurs valeurs dans la ligne de contrôle?

Par exemple, je veux cacher les colonnes si dans la ligne 3, je trouve soit "OK" soit "Standby" ?

Merci d'avance pour votre aide!