Explication de code

Bonjour à tous,

j'ai trouvé ce fichier sur le site j'aimerai faire la même chose dans mon fichier

mais ça ne fonctionne pas..

quelle qu'un peux m’explique le code svp

Sub AffichCol(slc As Boolean)
    Dim k%, nk%, Plg As Range
    With ActiveSheet.Range("A3").CurrentRegion
        nk = .Columns.Count
        Set Plg = .Range(.Cells(1, 7), .Cells(1, nk))
    End With
    Application.ScreenUpdating = False
    Plg.EntireColumn.Hidden = slc
    If slc Then
        With Me.lbxSélec
            For k = 0 To .ListCount - 1
                If .Selected(k) Then
                    Plg.Cells(1, k * 3 + 1).Resize(, 3).EntireColumn.Hidden = False
                End If
            Next k
        End With
    End If
    Unload Me
End Sub

Private Sub cbSélec_Click()
    AffichCol True
End Sub

Private Sub cbToutes_Click()
    AffichCol False
End Sub

Private Sub Label1_Click()

End Sub

Private Sub UserForm_Initialize()
    Dim Soc(), LgET, k%, s%
    LgET = ActiveSheet.Range("A3").CurrentRegion.Resize(1).Value
    ReDim Soc(UBound(LgET, 2))
    For k = 7 To UBound(LgET, 2)
        If LgET(1, k) <> "" Then Soc(s) = LgET(1, k): s = s + 1
    Next k
    If s > 0 Then
        ReDim Preserve Soc(s - 1)
        If s > 1 Then
            lbxSélec.List = Soc
        Else
            lbxSélec.AddItem Soc(0)
        End If
    End If
End Sub

voici le fichier que j'ai trouvé :

merci

bonne journée

Bonjour

jonat28 a écrit :

j'aimerai faire la même chose dans mon fichier

Bye !

Bonjour gmb ,

voici mon fichier j'aimerai avoir les noms de la ligne 5 si possible merci

merci !

jonat28 a écrit :

j'aimerai avoir les noms de la ligne 5 si possible merci

Peux-tu me péciser les colonnes que tu veux voir masquées ou démasquées ?

Bye !

oui bien sur voici toutes la liste..

Personnel : colonne H a N

CCPM : P a T

Medical : U a AA

Avancement : AC a AG

Permis : AH a AL

Formation :AM a AT

Plan de charge :AU a AX

Garde : AZ a BM

Recyclage :BQ

Adosspp : BQ

Mutelle : BR a BS

FMA : BU a BX

PAE1 :BZ a CB

PAE3 : CD a CF

BNSSA :CH a CJ

ISTC : CL a CN

PRV2 : CP a CR

SDE : CT a CV

CEP : CX a CY

CMOV : DA a DF

STA : DH a DI

MEA : DJ a DK

AME : DL a DM

COD : DN a DO

SIC : DG a DR

SSIAP : DS a DT

Cérémonies : DV a EA

Mutation : EC a EF

Telephone : EH

J'aimerai pouvoir masquer tout ou afficher tout ou alors tout masquer est afficher un ou des groupe de colonne que je sélection

comme dans le fichier plus haut

merci beaucoup

ou quelque chose autre qui permet de faire la même choses

car javais mis des cases a cocher mais j'ai beaucoup trop de colonne...

j'ai trouvé cette solution la sinon qui me convient aussi

Bonjour

Un essai à tester. Te convient-il ?

Bye !

bonsoir GBM

super !!!!! merci beaucoup je n'y serai jamais arrivé sans ton aide c'est exactement ce que je voulais

est-il possible de garde la partie "personnel" toujours fix (visible ) sans à avoir à la sélectionner a chaque fois?

encore merci !!!

Nouvelle version.

Bye !

parfait !!

gros gros merci je vais pouvoir gagné pas mal de temps grace a toi

merci beaucoup GMB

bonne soiré

bonjour GMB

désolé de te déranger encore, je viens de m'apercevoir que la dernier colonne créer une erreur (si je sélectionné téléphone )

par contre si je crée une colonne apres telephone (telephone fonctionne ) mais plus celle que je viens de creer (erreur)

merci de ton aide

a+

Bonjour

Nouvelle version.

Bye !

Bonsoir,

merci beaucoup pour cette version c'est parfait!

a+