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