Worksheet Change avec plusieurs Target

Bonjour,

j'aimerais intégrer ces deux procédures ensemble... lorsqu'elles sont séparées tout fonctionne bien. En séparant les deux (Private Sub) seulement la première fonctionne avec le target (C12).

Voici mon code

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

If Not Intersect(Target, [C12]) Is Nothing Then

Cells.EntireRow.Hidden = False

If Target = "Aucun" Then

Range("16:28,49:70").EntireRow.Hidden = True

ElseIf Target = "SR&ED" Then Range("16:28,49:70").EntireRow.Hidden = False

End If

End If

End Sub

Private Sub Worksheet_SheetChange(ByVal Target As Range)

On Error Resume Next

If Not Intersect(Target, [C14]) Is Nothing Then

Cells.EntireRow.Hidden = False

If Target = "CDAE" Then

Range("77:84").EntireRow.Hidden = True

ElseIf Target = "Multimedia" Then Range("72:75").EntireRow.Hidden = True

ElseIf Target = "Aucun" Then Range("31:39,72:84").EntireRow.Hidden = True

End If

End If

End Sub

Merci d'avance pour vos propositions

Bonjour et bienvenue sur le forum

Essaie ce code :

Private Sub Worksheet_Change(ByVal Target As Range)

    'On Error Resume Next
    If Not Intersect(Target, [C12]) Is Nothing Then
        Cells.EntireRow.Hidden = False
        If Target = "Aucun" Then
            Range("16:28,49:70").EntireRow.Hidden = True
        ElseIf Target = "SR&ED" Then
            Range("16:28,49:70").EntireRow.Hidden = False
        End If
    ElseIf Not Intersect(Target, [C14]) Is Nothing Then
        Cells.EntireRow.Hidden = False
        If Target = "CDAE" Then
            Range("77:84").EntireRow.Hidden = True
        ElseIf Target = "Multimedia" Then
            Range("72:75").EntireRow.Hidden = True
        ElseIf Target = "Aucun" Then
            Range("31:39,72:84").EntireRow.Hidden = True
        End If
    End If
End Sub

Bye !

Merci de cette réponse rapide.

Il y a depuis quelque temps que ce forum me permet de me débrouiller avec VBA.

Le code proposé fonctionne en parti. Cependant, j'aimerais que le résultat de la cellule cible C12 n'ai pas d'impact sur le choix de la cellule cible C14 (ces deux cellules comportent des listes déroulantes et indépendamment des résultats se trouvant dans ces deux cellules, certains lignes doivent se cacher.)

J'espère être assez clair,

Merci d'avance.