Quel message d'erreur ?je n ai pas reussis a chaque fois je suis bolque par message d erreur
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, [C7:C35]) Is Nothing Then
If Target <> "" Then
[O15] = Target: Calculate
If [P15] = 0 Then MsgBox "ATTENTION."
End If
End If
... suite du code
=SIERREUR(INDEX('TAB LIV'!D5:D150;EQUIV(LIVRAISON!$O$15;'TAB LIV'!C5:C150;0);EQUIV(LIVRAISON!O14;Tableau23[[#En-têtes];[ABDELMALEK FES]:[Colonne12]];0));0)