masquer colonne automatiquement avec VBA

[stayshen87]

bonjour je suis novice alors un peu d'indulgence avec moi;
alors je m'explique, je voudrai masquer des colonnes selon le résultat d'une formule dans des casses précises, exemple dans la colonne "C" la case "C4" contient une formule, si elle est égale à 0 alors les colonne de "C" jusqu’à "AD" doivent se masquer, ensuite la colonne "D "à la case D4 , si la formule de cette case égale à 0 alors les colonne D jusqu’à "AD" doivent se masquer..etc jusqu’à se qu'on arrive à la dernière colonne qui est "AD", tous cela automatiquement si les case de "C4" a "AD4" affichent un résultat

 

[phlaurent55]

Bonjour stayshen,


avec ce code:

Sub Macro1()
Application.ScreenUpdating = False
With Sheets("hiérarchisation AE")
For i = 3 To 30
If .Cells(4, i) = 0 Then
    For j = i To 30
      .Columns(j).EntireColumn.Hidden = True
    Next j
    Application.ScreenUpdating = True
    Exit Sub
End If
Next i
End With
End Sub

à+
Philippe

 

[stayshen87]

Bonjour stayshen,


avec ce code:

Sub Macro1()
Application.ScreenUpdating = False
With Sheets("hiérarchisation AE")
For i = 3 To 30
If .Cells(4, i) = 0 Then
    For j = i To 30
      .Columns(j).EntireColumn.Hidden = True
    Next j
    Application.ScreenUpdating = True
    Exit Sub
End If
Next i
End With
End Sub

à+
Philippe

merci pour votre réponse philippe;
le code fonctionne mais il est pas automatique,
je m'explique plus clairement
si je ne sélection rien sur les listes déroulantes de (A10:A700) dans la feuille "evaluation AE" , la valeur renvoyée dans la cases C4:AC4 est zero (0), a priori les colonnes doivent se masquer, mais y a aucun changement,