Discussion :

[judoka]

bonjour, j'ai un soucis avec un programme vba au secours

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range) 
If Application.WorksheetFunction.CountIf(Range("C6:C11"), "21") + Application.WorksheetFunction.CountIf(Range("C:C"), "10") = 2 Then
    MsgBox "attention"
If Application.WorksheetFunction.CountIf(Range("C6:C11"), "fp ") + Application.WorksheetFunction.CountIf(Range("C6:C11"), "10") = 2 Then
    MsgBox "attention"
End if
End sub

merci

[unparia]

Bonjour
Ton code ne contenant pas d'erreur, ton "ne marche pas" voudrait dire que tu n'as pas le résultat espéré .
Sans autres précisions de ta part, j'imagine que la cause en est peut-être que cet évènement WorkSheet_Change n'intervient pas toujours comme tu l'espère.
Entre autres : la modification par formule Excel de la valeur d'une cellule ne déclenche pas d'évènement WorkSheet_Change

[judoka]

j'ai trouve il manque un end if
merci