Target.value avec entirerow
Fermé
pseudomi
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
J'ai besoin de votre aide svp...
Je cherche à "démasquer" une ligne en fonction de 2 conditions :
1 / la cellule I25 doit avoir comme valeur via liste deroulante "ULTIMATE"
2 / la cellule P25 doit avoir comme valeur "288166530 ou 288166548" (via un =autre cellule)
si Ultimate est sélectionné mais que la valeur de P25 ne correspond pas aux 2 codes ci dessus, alors la ligne reste masquée.
Par contre, si les conditions 1 et 2 sont remplies et que l'on vient rechanger une des valeurs, alors il faut que la ligne se masque à nouveau
la ligne est celle du dessous.
Ci dessous le code que j'ai déja travaillé,
celui ci fonctionne si les 2 conditions sont remplies, la ligne se "démasque", par contre si une des 2 conditions n'est pas ok alors j ai un message d'erreur execution 13
Pourriez vous m'aider svp?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$25" Then
If Target.Value = "ULTIMATE" And Range("P25").Value = "288166530" Or Range("P25").Value = "288166548" Then
Rows("26:26").Select
Selection.EntireRow.Hidden = False
End If
End If
End Sub
J'ai besoin de votre aide svp...
Je cherche à "démasquer" une ligne en fonction de 2 conditions :
1 / la cellule I25 doit avoir comme valeur via liste deroulante "ULTIMATE"
2 / la cellule P25 doit avoir comme valeur "288166530 ou 288166548" (via un =autre cellule)
si Ultimate est sélectionné mais que la valeur de P25 ne correspond pas aux 2 codes ci dessus, alors la ligne reste masquée.
Par contre, si les conditions 1 et 2 sont remplies et que l'on vient rechanger une des valeurs, alors il faut que la ligne se masque à nouveau
la ligne est celle du dessous.
Ci dessous le code que j'ai déja travaillé,
celui ci fonctionne si les 2 conditions sont remplies, la ligne se "démasque", par contre si une des 2 conditions n'est pas ok alors j ai un message d'erreur execution 13
Pourriez vous m'aider svp?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$25" Then
If Target.Value = "ULTIMATE" And Range("P25").Value = "288166530" Or Range("P25").Value = "288166548" Then
Rows("26:26").Select
Selection.EntireRow.Hidden = False
End If
End If
End Sub
2 réponses
Bonjour,
Essaies :
Essaies :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$25" Or Target.Address = "$P$25" Then
If [I25].Value = "ULTIMATE" And ([P25].Value = "288166530" Or [P25].Value = "288166548") Then
Rows("26:26").EntireRow.Hidden = True
Else
Rows("26:26").EntireRow.Hidden = False
End If
End If
End Sub
