Masque afficher lignes en fonction valeur cellule
Bonjour,
L'objectif: si la réponse oui (cellule a1=1) les lignes 6,7 et 8 s'affichent. Si la réponse est non (cellule a2=2) les lignes 6,7 et 8 se masquent
Merci infiniment
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Cells("a1").Value = "1" Then
Rows("6:8").Hidden = True
Else
Rows("6:8").Hidden = False
End If
End Sub
End Sub
soleil75 a écrit :Bonjour,
L'objectif: si la réponse oui (cellule a1=1) les lignes 6,7 et 8 s'affichent. Si la réponse est non (cellule a1=2) les lignes 6,7 et 8 se masquent
Merci infiniment
Cette macro s'active en changeant de feuille :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Cette macro s'active en modifiant la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
Si on utilise Cells, on écrit Cells(la ligne, la colonne), Exemple : Cells(1,1)
Pour utiliser "A1", on choisit Range, Exemple : Range("A1")
Pour le reste, c'est bon .... excepté qu'il y a 2 End Sub ... un seul est plus que suffisant, le 2e va générer une erreur.
LaCéline
merci beaucoup la céline
j 'ai trouvé la réponse
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("a1") = "2" Then
Rows("2:3").Hidden = False
Else
Rows("2:3").Hidden = True
End If
End Sub