bonjour,
comment à l'aide d'un checkbox masquer les lignes de mon tablea
contenant la valeur "mineur" en colonne D lorsque l'on coche la case e
les faire réapparaître lorsqu'on la décoche?
Merc
--
benjaminalim
-----------------------------------------------------------------------
benjaminalimi's Profile: http://www.msusenet.com/member.php?userid=209
View this thread: http://www.msusenet.com/t-187090878
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
CAP2
Salut,
essaie ça :
Private Sub CheckBox1_Change() Dim dercell As Range Dim cell As Range
Set dercell = [D65536].End(xlUp) If CheckBox1 = True Then For Each cell In Range("D4", dercell) If cell = "mineur" Then cell.EntireRow.Hidden = True End If Next
Else: For Each cell In Range("D4", dercell) If cell = "mineur" Then cell.EntireRow.Hidden = False End If
Next
End If
End Sub
Ca marche ?
CAP2
Salut,
essaie ça :
Private Sub CheckBox1_Change()
Dim dercell As Range
Dim cell As Range
Set dercell = [D65536].End(xlUp)
If CheckBox1 = True Then
For Each cell In Range("D4", dercell)
If cell = "mineur" Then
cell.EntireRow.Hidden = True
End If
Next
Else: For Each cell In Range("D4", dercell)
If cell = "mineur" Then
cell.EntireRow.Hidden = False
End If
Private Sub CheckBox1_Change() Dim dercell As Range Dim cell As Range
Set dercell = [D65536].End(xlUp) If CheckBox1 = True Then For Each cell In Range("D4", dercell) If cell = "mineur" Then cell.EntireRow.Hidden = True End If Next
Else: For Each cell In Range("D4", dercell) If cell = "mineur" Then cell.EntireRow.Hidden = False End If
