Deux actions distinctes sur une feuille dans Worksheet_Change

Bonjour à tous,

J'ai essayé beaucoup de chose en cherchant ici et ailleurs et toutes les solutions trouvées se soldent par un echec...

J'ai tenté de synthétiser ma demande dans le fichier ci joint.

En gros j'ai besoin sur plusieurs onglet d'avoir 2 actions indépendantes qui s'activent suivant des changements dans 2 cellules différentes.

La meilleure solution pour moi serait via Worksheet_Change...

J'ai essayé plein de code différent et je commence à m'y perdre.

Merci pour votre aide.

Cordialement.

Bonjour,

J'ai adapté au fichier fourni > si fichier de travail a des paramètres différents > il faudra ajuster le code ...

Option Explicit
Option Compare Text

Private Sub Worksheet_Change(ByVal Target As Range)
Dim X As Integer, Y As Integer

   If Target.Count > 1 Then Exit Sub

   If Not Intersect(Target, Range("E6", "E10:E30")) Is Nothing Then

      If Target.Address = "$E$6" Then Call mamacro

      If Target.Column = 5 And Target.Row >= 10 And Target.Row <= 14 Then
         Y = 0
         For X = 10 To 14
            If Cells(X, "E") = "x" Then Y = Y + 1
         Next X
         ActiveSheet.Rows("8:8").EntireRow.Hidden = IIf(Y > 0, False, True)

      End If
   End If
End Sub

ric

Bonjour ric,

J'ai bien compris le fonctionnement et oui j'ai réussi à adapter!! Merci beaucoup.

Peux tu juste m'expliquer le rôle de :

If Target.Count > 1 Then Exit Sub

??

Merci pour ton aide!!

Bonjour,

Le code est prévu s'exécuter sur 1 cellule non sur 1 plage ...

S'il y a plusieurs cellules de sélectionner "If Target.Count > 1 then Exit Sub" met fin à l'exécution du code afin de prémunir contre une erreur d'exécution ...

ric

Merci ric!

ric