Microsoft 365 Masquer colonnes selon valeur d'une cellule

[nike780]

Bonjour,

J'aimerai savoir s'il est possible de masquer certaines colonnes selon la valeur d'une cellule

Merci d'avance de votre réponse

Cdt

 

[Nain porte quoi]

Hello,

avec macro : oui

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Not Intersect(Target, Range("C4")) Is Nothing Then
        
        Dim Nb_votants As Double
        Dim Nb_Enveloppes As Integer
        Dim Col_a_Masquer As Integer
        
        Columns("C:U").EntireColumn.Hidden = False
        
        Nb_votants = Range("C4").Value
        
        If IsNumeric(Nb_votants) And Nb_votants > 0 Then
            Nb_Enveloppes = Application.WorksheetFunction.RoundUp(Nb_votants / 100, 0)
            Col_a_Masquer = (Nb_Enveloppes * 2) + 2
            If Col_a_Masquer <= 20 Then
                Range(Cells(1, Col_a_Masquer), Cells(1, "U")).EntireColumn.Hidden = True
            End If
        End If
    End If

End Sub

Mais y'a un truc qui me chiffonne : tel que conçu, si il y a 2104 votants il n'y a pas assez d'enveloppes, non ?

 

[cathodique]

Bonjour,

Il te faut du vba. une question si le nombre saisie est supérieur que fait-on?
j'ai supposé qu'un nombre inférieur affiche toutes les colonnes.
Merci de donner plus de précision.

 

[sylvanu]

Bonjour,
Comme "tout déplié" on a au maximum 10 enveloppes ( de 100 bulletins ) on peut en déduire que le niveau de participation maximum sera de 1000/2104 soit 47%.
Et si le taux de participation est supérieur, que fait on ?