Bonjour à tous,
j'aimerais faire marcher ces ligne de codes VBA mais il y a un problème et comme je ne m'y connais pas trop, j'ai besoin de votre aide :
Sub Caseàcocher173_Cliquer()
With Sheets("predim")
If .[AK103] = False Then
.Rows("107:113").EntireRow.Hidden = False
Else
.Rows("107:113").EntireRow.Hidden = True
ElseIf .[AK103] = True Then
.Rows("105:106").EntireRow.Hidden = True
Else
.Rows("105:106").EntireRow.Hidden = False
End If
End With
End Sub
Merci beaucoup!
j'aimerais faire marcher ces ligne de codes VBA mais il y a un problème et comme je ne m'y connais pas trop, j'ai besoin de votre aide :
Sub Caseàcocher173_Cliquer()
With Sheets("predim")
If .[AK103] = False Then
.Rows("107:113").EntireRow.Hidden = False
Else
.Rows("107:113").EntireRow.Hidden = True
ElseIf .[AK103] = True Then
.Rows("105:106").EntireRow.Hidden = True
Else
.Rows("105:106").EntireRow.Hidden = False
End If
End With
End Sub
Merci beaucoup!