un internaute
XLDnaute Impliqué
Bonjour le forum
Vous m'avez appris il y a quelques jours à éviter un bouton en faisant un clic sur une cellule.
Macro ci-dessous:
Mais je voudrais le faire avec la macro ci-dessous
Mais j'ai quelques souccis pour y parvenir
alors je reviens vers vous encore une fois
Merci d'avance pour vos retours
Cordialement
Vous m'avez appris il y a quelques jours à éviter un bouton en faisant un clic sur une cellule.
Macro ci-dessous:
Code:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal R As Range)
If R.Address = "$A$3" And R.Count = 1 Then Columns("G:I").Hidden = Not Columns("G:I").Hidden: R(1, 2).Select
End Sub
Mais je voudrais le faire avec la macro ci-dessous
Code:
Sub LignesRegularisationColonnesExplications()
Application.ScreenUpdating = False
With ActiveSheet
.Unprotect
If .Columns("G:I").Hidden = True Then
.Columns("G:I").Hidden = False
Else: .Columns("G:I").Hidden = True
End If
For Each Cel In .Range("E10:E14,E16:E29,E40:E44,E46:E59,E70:E74,E76:E89,E100:E104,E106:E119")
If Cel = "" Then
Cel.EntireRow.Hidden = Not Cel.EntireRow.Hidden
End If
Next Cel
.Range("A1").Select
.Protect
End With
End Sub
alors je reviens vers vous encore une fois
Merci d'avance pour vos retours
Cordialement