Worksheet_Change

Question

Bonjour j'ai ce code qui fonctionne.

Le problème est que a chaque validation de n'importe quelle cellule de la feuille le code s'exécute .

je précise toute de même que la valeur des cellules change ($A$5 et $A$3) s'obtient par formule et non par saisie direct.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim CellChange As Range
Set CellChange = Range("A5")

If CellChange = "OKCOU" Then

    Call COUL
Else

If CellChange = "OKBAT" Then

 Call BB

 Else

 If CellChange = "" Then

 Call PACOUL
 Call PABB
End If
End If
End If
'---------------

Set CellChange = Range("A3")
If CellChange = "OK" Then

 Call PORTI
 Else
 If CellChange = "" Then

  Call PAPORTI
    End If
    End If
End Sub

Invité · Answer

Je pense que vous voulez plaisanter Qu'est-ce que je vous ai donné ICI https://forum.excel-pratique.com/s/goto/1020738 ' Vérifier si la cellule est la bonne, sinon on sort If Intersect(Target, Range("W28,W30,W32")) Is Nothing Then Exit Sub C'est la même chose à utiliser dans l'évènement Change, il faut juste adapter les cellules A+...