Re : affiné un code checkbox
Bonsoir Robert,
la parti thisworbook est vide
le voici en entier ça peut venir d'ailleurs ?
en tout cas merci
A+
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Feuil1.Columns("h:j").EntireColumn.Hidden = True
Else
Feuil1.Columns("h:j").EntireColumn.Hidden = False
End If
End Sub
Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
Feuil1.Columns("k:m").EntireColumn.Hidden = True
Else
Feuil1.Columns("k:m").EntireColumn.Hidden = False
End If
End Sub
Private Sub CheckBox3_Click()
If CheckBox3.Value = True Then
Feuil1.Columns("n
").EntireColumn.Hidden = True
Else
Feuil1.Columns("n
").EntireColumn.Hidden = False
End If
End Sub
Private Sub CheckBox4_Click()
If CheckBox4.Value = True Then
Feuil1.Columns("q:s").EntireColumn.Hidden = True
Else
Feuil1.Columns("q:s").EntireColumn.Hidden = False
End If
End Sub
Private Sub CheckBox5_Click()
If CheckBox5.Value = True Then
Feuil1.Columns("t:v").EntireColumn.Hidden = True
Else
Feuil1.Columns("t:v").EntireColumn.Hidden = False
End If
End Sub
Private Sub CheckBox6_Click()
If CheckBox6.Value = True Then
Feuil1.Columns("w:y").EntireColumn.Hidden = True
Else
Feuil1.Columns("w:y").EntireColumn.Hidden = False
End If
End Sub
Private Sub CheckBox7_Click()
If CheckBox7.Value = True Then
Feuil1.Columns("z:ab").EntireColumn.Hidden = True
Else
Feuil1.Columns("z:ab").EntireColumn.Hidden = False
End If
End Sub
Private Sub CheckBox8_Click()
If CheckBox8.Value = True Then
Feuil1.Columns("ac:ae").EntireColumn.Hidden = True
Else
Feuil1.Columns("ac:ae").EntireColumn.Hidden = False
End If
End Sub
Private Sub CommandButton1_Click()
Unload UserForm1
End Sub
Private Sub ListBox1_Click()
On Error Resume Next
With ListBox1
Cells(.List(.ListIndex, 1), 5).Select
End With
End Sub
Private Sub TextBox1_Change()
Dim Plage As Range, Cell As Range
Dim Recherche As String, Adresse As String
Dim Ligne As Integer
Dim C As Object
ListBox1.Clear
Recherche = TextBox1.Value
Range("e1").Select
Ligne = Sheets("SURG").Range("e" & "65536").End(xlUp).Row
Set Plage = Sheets("SURG").Range("e" & "2:" & "e" & Ligne)
With Plage
Set C = .Find(Recherche)
If Not C Is Nothing Then
Adresse = C.Address
Do
If UCase(Recherche) = UCase(Left(C, Len(Recherche))) Then
With ListBox1
.AddItem C '
.List(.ListCount - 1, 1) = C.Row 'Ajout mDF
End With
End If
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Adresse
End If
End With
End Sub
Private Sub UserForm_Click()
End Sub