masquer colonne automatiquement avec VBA

stayshen87 · 9 Mars 2019

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 · 9 Mars 2019

Bonjour stayshen,

avec ce code:

VB:

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 · 9 Mars 2019

phlaurent55 à dit:

Bonjour stayshen,

avec ce code:

VB:

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,

masquer colonne automatiquement avec VBA

stayshen87

XLDnaute Nouveau

Pièces jointes

phlaurent55

Nous a quittés en 2020

stayshen87

XLDnaute Nouveau

Pièces jointes

Discussions similaires